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Preface 


Dear  Reader, 

With  the  1570/1571  disk  drive  you  have  one  of  the  most  powerful 
5  1/4"  disk  drives  available  for  home  computers.  The  1570  is  a  single-sided 
disk  drive  that  contains  the  electronics  of  the  1571,  but  is  currently  available 
only  in  Europe.  The  1570/1571  processes  two  different  Commodore  disk 
formats  and  a  number  of  different  CP/M  disk  formats.  In  addition,  the 
Commodore  drives  are  probably  the  only  drives  which  contain  their  own 
computers — they  have  independent  microprocessor  controllers. 

This  book  is  intended  to  help  you  get  acquainted  with  all  of  the 
functions  of  the  1570  and  the  1571.  With  this  in  mind,  you  will  find  a 
reader's  guide  following  the  table  of  contents.  My  goal  is  to  lead  you  to  the 
successful  use  of  this  disk  drive —  doesn't  matter  if  you  are  a  beginner  or  a 
professional.  The  1571  Internals  book  is  not  only  a  tutorial  guide,  but  above 
all  it  is  also  a  reference  work. 

Expert  programmers  will  find  this  book  helpful.  The  ROM  listing  is  in  a 
class  by  itself.  Never  before  has  a  ROM  listing  been  so  thoroughly 
documented.  Two  unique  features  of  this  listing  are  the  entry  points  and 
calling  address  cross-references.  You'll  see  these  in  Chapter  7. 

Finally,  I'd  like  to  wish  you  the  best  when  working  with  your 
1570/1571  disk  drive.  Hopefully  this  book  will  offer  you  a  much  deeper 
understanding  of  the  capabilities  of  the  disk  drive  man  can  be  obtained  with 
the  1570/1571  user's  guide  alone. 

RainerEllinger  October,  1985 
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Reader's  Guide 


1571  Internals  is  a  very  large  book.  A  lot  of  information  is  packed  in 
these  pages.  How  exactly  should  you  use  the  book? 

The  book  has  a  table  of  contents,  but  this  alone  cannot  make  it  a 
helpful  handbook.  For  this  reason,  we've  put  together  a  Reader's  Guide  for 
this  book.  We've  divided  the  audience  into  several  categories,  based  on  the 
reader's  experience  and  previous  knowledge.  By  reading  the  suggested 
sections,  each  reader  will  be  able  to  gain  the  maximum  benefits  that  this 
book  has  to  offer.  If  you've: 

1  Never  worked  with  a  computer  before  and  are  a  complete 
beginner,  read: 

Sections  1.1,  1.2,  1.3,  1.4  and  1.5 

2  Worked  with  other  computers,  have  used  the  C-64  or 
C-128  without  a  disk  drive  and  understand  BASIC,  read: 

Sections  1.1,  1.3,  1.4,  1.5  and  5.1 

3  Worked  with  other  computers  and  disk  drives,  read: 

Sections  1.2  and  1.3 

4  Used  the  earlier  1541  disk  drives,  read: 

Sections  2.1,  2.2,  2.3,  3.1,  and  4 

5  Worked  with  other  computers  and  disk  drives,  and  know 
machine  language,  read: 

Sections  2.2,  3.1,  4,  5.2,  6,  7,  and  Appendices 

6  Worked  with  1541  and  know  machine  language,  read: 

Chapters  6  and  Appendices 

All  other  sections  should  be  used  according  to  your  areas  of  interest. 
Once  you  have  the  fundamentals,  other  information  is  available  to  the 
advanced  user.  The  first  chapters  may  also  prove  helpful  to  the  professional 
for  reference. 
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(fundamentals  FOR  beginners) 


1.1  The  first  contact  with  the  disk  drive 

1.2  The  disk  drive  and  Commodore  BASIC 

1.3  Disk  drive  system  commands 

1.4  The  sequential  file 

1.5  The  relative  file 
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1.1  The  first  contact  with  the  disk  drive 


1.1.1  After  unpacking 


Naturally  you  want  to  get  started  right  away  and  begin  using  your  disk 
drive.  In  spite  of  this,  please  be  patient  for  a  few  moments  as  we  cover  this 
introductory  section.  First  we  will  discuss  setting  up  and  connecting  the 
drive.  All  our  discussion  are  applicable  to  the  1570,  a  single  sided  disk 
drive  with  1571  electronics  (currently  available  in  Europe)  and  the  1571 
dual  sided  disk  drive.  In  the  following  sections  we  will  discuss  connecting 
the  disk  drive  and  the  data  medium  itself~the  diskette.  If  you  are  already 
familiar  with  these  things,  you  can  move  on  to  Section  1.1.3. 

The  following  are  included  with  the  disk  drive: 

Power  cord 

Connector  cable  to  the  computer 
Test/Demo  disk 
Instruction  manual 

First  connect  the  1570/1571  to  the  wall  socket  with  the  electrical  cord. 
Be  sure  that  die  device  is  turned  off.  Next  connect  the  drive  to  the  computer 
using  the  black  connector  cable.  One  side  of  the  connector  cable  plugs  into 
the  back  of  the  computer  as  shown  below: 


User  port 


Cassette  Port 


Serial  bus 


/ — t-j# 


Monitor  Ports    Cartridge  Port 

i—t- 


[uiiiiiii  I 

Channel  Selector 


Figure  1  The  back  of  the  C-128 


The  other  end  of  the  connector  plugs  into  one  of  the  two  jacks  on  the 
disk  drive.  Each  device  which  you  can  connect  to  the  computer  (disk  drive, 
printer,  etc.)  has  two  connectors.  Otherwise  you  could  operate  only  one 
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peripheral  from  the  computer  because  it  had  only  one  connector.  One  of  the 
two  connectors  serves  as  an  input  and  the  other  as  output.  A  second  disk 
drive  or  a  printer  would  then  be  connected  to  this  output  connector  on  the 
1570/1571.  It  does  not  matter  which  of  the  two  connectors  you  connect  to 
the  computer.  The  important  thing  is  that  the  other  connector  can  be  used 
only  as  an  output.  You  cannot  connect  two  computers  to  one  disk  drive. 


Power  Jack   On/Off  switch  Serial  bus    DIP  switches 


Figure  2  The  back  of  the  disk  drive 


If  you're  using  a  1571,  take  a  look  at  the  two  little  switches,  called 
DIP  switches,  on  the  back  of  the  housing  before  you  start  using  it.  Their 
function  is  described  in  Section  1.2.1.  Both  of  them  should  be  up.  On  the 
1570  these  switches  are  inside  the  device  and  are  already  set  correctly. 

Now,  when  everything  is  ready,  you  can  turn  on  the  disk  drive.  On  the 
1570  a  green  LED  lights  up  and  on  the  1571  a  red  LED  lights  up  to  indicate 
operation  and  the  drive  motor  runs  briefly.  The  green  (1570)  or  red  (1571) 
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light  indicates  that  the  drive  is  turned  on.  If  you  observe  the  power-up 
process  carefully,  you  will  notice  that  the  other  LED  lights  up  briefly.  If  all 
of  this  happens,  then  your  C- 1570/71  is  functioning  normally.  If  the  red 
(1570)  or  green  (1571)  LED  flashes,  then  the  internal  self-test  routine  has 
found  an  error.  < 

The  red  (1570)  or  green  (1571)  LED  also  normally  serves  as  a 
operating  indicator.  It  indicates  that  the  diskette  inserted  is  currently  being 
accessed.  As  long  as  this  LED  is  lit  you  should  not  remove  the  diskette  from 
the  drive. 


Power  light     Function  light 


mum  ^m^^mm 

1571 

\ 

Figure  3  The  front  of  the  disk  drive 


5 


Abacus  Software  1571  Internals 


1.1.2  What  is  a  diskette? 


Figure  4  Diskette 


Figure  4  shows  a  5  1/4  inch  diskette.  The  large  opening  in  the  lower 
section  is  immediately  obvious.  This  is  where  the  actual  data  media,  a 
magnetic  diskette,  is  visible.  The  read/write  head  in  the  drive,  which 
transfers  the  data  to  and  from  the  diskette  makes  contact  with  the  media 
surface  at  this  location. 

A  diskette  is  inserted  into  the  drive  with  this  opening  going  in  first  as  in 
Figure  5.  On  the  1571,  rotate  the  closing  lever  to  the  vertical  position.  On 
the  1570  press  the  closing  latch  downward.  This  seats  the  diskette  properly 
over  the  drive  hub  as  the  motor  runs  for  a  few  seconds  to  align  the  diskette 
better. 

When  the  drive  is  in  operation,  the  diskette  rotates  at  about  300  RPM. 
The  media  is  sealed  in  a  plastic  sleeve  which  protects  the  sensitive  magnetic 
surface.  The  inside  of  the  sleeve  is  lined  with  a  cleaning  cloth  material  that 
removes  dust  particles  and  other  dirt.  Keep  in  mind  that  the  information 
stored  on  the  diskette  is  only  a  few  thousandths  of  an  inch  thick.  Always 
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handle  the  diskettes  with  care  and  never  touch  the  actual  media  surface,  only 
the  protective  sleeve.  Your  fingers  contain  oil  and  the  cleaning  cloth  cannot 
remove  it  Also  remember  to  remove  the  diskette  from  the  disk  drive  before 
you  turn  it  off  or  on.  Small  uncontrolled  voltages  may  damage  important 
data. 

The  square  notch  in  the  right  side  is  called  the  write-protect  notch.  As 
the  name  implies,  it  prevents  accidental  writing  or  erasing  of  data.  By 
covering  the  notch  with  a  write-protect  tab  (supplied  with  the  diskette),  the 
write  mechanism  on  the  drive  is  disabled. 


Figure  5  Correct  position  for  disk  insertion 

Now  we'll  find  out  how  the  data  is  stored  on  the  diskette.  A  diskette's 
surface  is  organized  into  tracks,  as  is  shown  in  Figure  6.  Tracks  on  a 
diskette  are  similar  to  the  grooves  on  a  phonograph  record.  The  1570/1571 
drive  can  have  a  maximum  of  40  tracks  per  side.  Each  track  has  a  capacity 
of  about  5000  characters. 

Each  track  is  organized  into  sectors.  The  number  of  sectors  varies 
between  18  and  21  per  track.  Each  sector  has  a  capacity  of  256  characters. 

A  special  marker  on  the  diskette  is  used  to  identify  the  sectors  on  a 
track.  If  you  examine  a  diskette,  you'll  notice  a  small  hole  next  to  the  hub. 
A  photocell  in  the  drive  can  sense  when  this  hole  is  directly  over  the 
photocell.  Here  is  where  the  first  sector  of  the  track  begins.  The  position  of 
the  other  sectors  can  be  determined  based  on  the  rotation  speed  of  the  drive. 
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Does  using  the  index  hole  have  any  advantages?  Yes.  It  is  flexible  in 
that  the  size  of  each  sector  may  be  varied.  By  setting  the  start  of  the  first 
sector,  the  position  of  other  sectors  may  be  determined  regardless  of  their 
length.  For  the  1570/157 1  the  length  is  256  characters. 

The  index  hole  method  is  used  by  the  CP/M  operating  system.  Diskettes 
which  you  use  in  C-64  or  C-128  mode  do  not  need  the  index  hole.  So  that 
the  drive  still  knows  where  a  sector  starts,  special  synchonization  marks  are 
written  to  the  diskette  magnetically.  The  drive  recognizes  these  marks  and 
thereby  recognizes  the  start  of  a  sector.  But  where  is  the  first  sector  on  the 
track?  How  are  the  sectors  identified? 

Each  sector  has  a  header.  The  header  consists  of  information  which 
precedes  the  actual  data.  In  particular,  the  track  number  and  sector  number 
are  found  in  the  header.  Using  the  header  information,  the  drive  electronics 
can  "navigate"  the  diskette.  To  read  a  particular  sector,  the  drive  analyzes 
the  next  sector.  It  knows  which  track  at  which  the  head  is  currently 
positioned  and  can  move  the  head  to  the  desired  track.  Once  there,  the 
desired  sector  is  found  similarly. 

Now,  where  do  you  write  your  data?  Since  there  are  more  than  13300 
sectors  on  a  diskette,  this  could  be  an  enormous  task.  But  the  1570/1571 
disk  operating  system  (DOS)  handles  these  details.  The  DOS  keeps  tabs  on 
the  sector  usage,  the  file  names  and  disk  locations.  We'll  talk  more  about 
this  later. 


Figure  6  The  diskette  structure 
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1.1.3  Diskette  formats 


There  are  many  ways  to  organize  the  storage  of  data  on  a  diskette:  index 
hole  or  sync  mark;  128,  256,  512,  or  1024  characters  (bytes)  per  sector; 
varying  the  number  of  sectors  per  track;  and  others.  The  1570/1571  writes 
40  tracks  per  disk  side.  But  there  are  also  drives  which  can  write  80  tracks 
per  side  (higher  track  density).  Furthermore  there  are  different  recording 
processes.  These  are  primarily  different  data  packing  factors  and  are 
therefore  called  single  density  and  double  density.  There  are  also  the  tables 
about  sector  and  disk  allocation.  Their  organization  depends  on  the  type  of 
computer  used. 

The  result  of  these  differences  is  that  there  are  more  diskette  formats 
than  there  are  computer  manufacturers. 

What  type  of  diskette  should  be  used  for  the  1570/1571?  Any  diskette 
that  is  rated  for  40  tracks  at  double  density  and  double  sided  can  be  used. 
This  is  often  described  on  the  diskette  carton  as: 

2D         (2sided,  Double  density) 
or 

DS/DD   (Double  sided,  Double  density). 

New  diskettes  are  always  blank.  Before  using  them  to  store  data  or 
programs,  you  must  format  the  diskettes.  More  about  this  in  Section  1.2.2. 
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Commodore  format 


Format 

1541/1570 

1571 

Sides  of  diskette 

1 

2 

Bits  per  sector,  max. 

307692 

307692 

Total  number  of  sectors 

683 

1366 

iNumDer  ot  Tree  sectors 

CCA 

664 

1328 

onaraciers  per  sector 

2t>6 

ore 

256 

Number  of  sectors  per  track 

Tracks  1-17 

21 

21 

Tracks  1 8  -  24 

19 

19 

Tracks  25  -  30 

18 

18 

Tracks  31  -  35 

17 

17 

CP/M  format 

Sides  of  diskette 

1 

2 

Bytes  per  sector 

500000 

500000 

Number  of  sectors  per  track 

1 28  bytes  per  sector 

26 

26 

256  bytes  per  sector 

16 

16 

512  bytes  per  sector 

9 

9 

1 024  bytes  per  sector 

5 

5 

Total  number  of  sectors 

128  bytes  per  sector 

1040 

2080 

256  bytes  per  sector 

640 

1280 

51 2  bytes  per  sector 

360 

720 

1 024  bytes  per  sector 

200 

400 
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12  The  disk  drive  and  Commodore  BASIC 


1.2.1  From  BASIC  2.0  to  BASIC  7.0 


To  put  the  1570/1571  to  work,  you  must  give  it  commands.  This  is  not 
very  complicated.  Simply  enter  the  command  and  press  the  <RETURN> 
key.  This  key  tells  the  computer  to  execute  the  command.  As  you  know, 
your  C-128  accepts  these  commands  in  the  BASIC  language. 

Just  as  there  are  various  dialects  of  human  languages,  there  are  also 
different  dialects  of  BASIC.  Many  of  the  fundamental  commands  are 
usually  the  same  for  all  versions,  but  some  commands  differ  in  each 
version.  In  fact,  the  different  versions  of  Commodore  BASIC  do  not  use 
the  same  commands  for  handling  the  disk  drives.  The  table  below  lists  the 
various  Commodore  computers  and  the  versions  of  BASIC  each  contains. 
They  are  listed  in  order  of  appearance  on  the  market 


Computer 

Version 

PET  2000 
CBM  3000 
CBM  8000 
VIC-20  /  C-64 
C-16/Plus4 
C-128 

BASIC  1.0 
BASIC  3.0 
BASIC  4.0 
BASIC  2.0 
BASIC  3.5 
BASIC  7.0 

The  version  numbers  is  a  measure  of  the  power  of  the  BASIC.  BASIC 
4.0  is  somewhat  more  powerful  that  BASIC  2.0.  But  there  are  often 
exceptions  to  the  rule  since  BASIC  3.5  should  probably  be  renamed  BASIC 
4.5,  because  it  is  more  powerful  than  the  Commodore  8000's  BASIC  4.0. 
As  you  can  see,  version  7.0  is  ranked  highest,  exactly  as  far  as  the  level  of 
the  C-128  BASIC — the  most  powerful  BASIC  that  Commodore  has 
produced. 

For  us,  version  3.0  plays  a  deciding  role.  All  versions  of  BASIC 
greater  than  3.0  have  easy-to-use  disk  commands.  For  the  other  versions, 
working  with  the  disk  drive  is  somewhat  more  complicated.  The  syntax  of 
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the  versions  which  are  less  then  3.0  (referred  to  as  BASIC  <  3.0  hereafter) 
is  also  understood  by  the  higher  versions.  The  additional  disk  commands 
for  BASIC  >  3.0  (greater  than  BASIC  3.0)  do  not  function  on  computers 
with  lower  BASIC  versions.  In  the  following  sections,  both  forms  of  the 
commands  are  shown,  that  of  BASIC  <  3.0  as  well  as  that  of  BASIC  >  3.0. 

Finally,  there  is  a  third  option  for  using  disk  commands~in  the  built-in 
machine  language  monitor.  The  syntax  of  these  commands  is  similar  to 
syntax  of  BASIC  <  3.0  and  is  also  included. 

So  by  sending  a  command  to  the  1570/1571,  you  can  make  it  go  to 
work.  But  what  happens  if  two  disk  drives  are  connected  to  the  computer? 
How  does  it  know  to  which  device  the  command  applies? 

Every  device  connected  to  the  C-128  has  a  device  number  associated 
with  it.  Normally,  the  disk  drive  is  assigned  device  number  8,  a  printer 
device  number  4  and  the  cassette  recorder  device  number  1.  If  you  have  a 
second  disk  drive  connected,  it  cannot  have  the  same  device  number  8. 
Instead,  you  must  use  a  different  device  number. 

On  the  1571,  there  are  two  DIP  switches  on  the  back  of  the  unit  which 
determine  the  drive's  device  number.  You  can  change  the  device  number  by 
changing  the  setting  of  the  switches  with  a  pencil  point.  On  the  1570,  the 
DIP  switches  are  located  inside  of  the  drive  housing.  To  change  the  device 
number  you  must  unscrew  the  housing. 

The  following  table  lists  the  switch  settings  for  changing  the  device 
numbers: 


Switch  1 

Switch  2 

Device 

(left) 

(right) 

Number 

up 

up 

8 

down 

up 

9 

up 

down 

10 

down 

down 

11 

To  change  the  settings,  you  must  turn  the  drive  off,  select  the  DIP 
switch  settings  and  then  turn  the  drive  back  on  to  effect  a  new  device 
number. 
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Let's  now  take  a  look  at  data  transfer  between  the  computer  and  the  disk 
drive.  The  1570/1571  can  not  only  store  programs,  it  can  also  manage  files. 
Let  us  assume  that  you  are  working  with  two  files  at  once  and  you  want  to 
write  new  data  in  one  of  the  files.  When  you  send  the  data,  how  does  the 
disk  drive  know  what  file  it  belongs  to? 

In  order  to  solve  this  problem  the  1570/1571  uses  data  channels.  Each 
of  these  channels  is  used  only  for  specific  tasks.  They  are  similar  to  radio 
channels.  On  one  frequency  there  is  police  radio,  on  another  the  fire  station 
and  emergency,  and  so  on. 

On  the  1570/1571  there  are  a  total  of  16  channels.  Usually  only  three  or 
four  of  these  can  be  used  at  one  time,  however.  The  channels,  like  the 
individual  devices,  are  assigned  numbers.  The  following  table  shows  the 
use  of  the  channels: 


Channel  Number 

Function 

0 
1 

2-14 
15 

Load 
Save 
for  Files 

Command  Channel 

In  order  to  activate  a  certain  channel,  you  use  the  OPEN  command  on 
both  the  C-64  and  C-128.  The  syntax  of  this  command  looks  like  this: 

OPEN  lfn,Y, Z, "data/name" 

We  haven't  talked  about  parameter  If  n.  This  is  an  arbitrary  number 
between  0  and  255  and  is  call  the  logical  file  number.  The  logical  file 
number  is  used  by  subsequent  disk  commands  to  refer  to  the  opened 
channel.  For  example,  to  send  data  to  the  disk  over  the  channel  you  would 
use  a  PRINT* If  n  command  where  If  n  is  the  logical  file  number  from  the 
OPEN  command.  The  logical  file  number  thereby  shortens  the  specifications 
for  other  commands,  making  it  easier  to  work  with  the  disk. 

These  channel  commands  are  especially  important  for  file  management. 
They  will  therefore  be  discussed  in  detail  in  Sections  1.4  and  1.5. 
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1.2.2  HEADER  -  Formatting  a  diskette 


BASIC  >  3.0: 

HEADER  "diskette  name",Dx,lyy,Uz 

ADDrGviation. 

neA 

BASIC  <  3.0: 

OPEN  1  ,z,15,"Nx:disk  name.yy" 

Mnnitnr* 

VJ^fcjl  X  .a  .uiorv  1  IGI 1  Iw 

Parameters  (optional) 

Dx:  x 
lyy:  yy 
Uz:  z 

=  drive  number 
=  2  ID  characters 
=  device  address 

In  Section  1.1.3  we  talked  about  formatting.  Every  new,  blank  diskette 
must  be  formatted  before  it  can  be  used  for  data  storage.  Formatting  places 
sync  markers,  headers,  and  sectors  on  the  diskette. 

If  new  diskettes  are  formatted,  an  ID  must  be  specified.  These  two 
identification  characters  allow  the  disk  operating  system  (DOS)  to 
distinguish  between  diskettes  and  to  determine  if  a  new  diskette  has  been 
inserted.  This  is  why  it  is  important  to  use  a  different  character  combination 
for  each  diskette.  The  ID  information  is  placed  in  each  sector  header  during 
formatting.  In  addition,  the  ID  characters  are  also  placed  in  the  directory 
(title  line)  of  the  diskette.  To  change  the  ID  later,  the  disk  monitor  described 
in  Section  6.1  will  be  of  help. 

Not  all  character  combinations  are  acceptable  as  an  ID  for  BASIC  7.0. 
This  is  because  the  computer  interprets  the  characters  as  a  BASIC  command 
and  uses  the  corresponding  abbreviation  in  place  of  the  characters.  But 
don't  worry,  there  are  quite  enough  combinations  which  are  allowed. 
Together  with  the  digits  0-9  there  are  1296  possibilities.  If  there  are  100  of 
these  which  you  cannot  use,  it  won't  limit  you  too  greatly.  In  addition,  you 
can  use  the  BASIC  <  3.0  commands. 
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The  following  combinations  of  characters  are  not  acceptable  to  BASIC 
7.0:  (Note  upper  and  lower  case) 


on  fn  to  aP  aU  bA  bE  bL  bO  bS  bU  cA  cl  cO  dC  dL  dO  dR  dS  dV  eN  fA  fE  fl 
fR  gR  gS  hE  jO  kE  mO  pA  pE  pL  pO  pU  rC  rD  rE  rR  rS  rU  rW  sC  sL  sO  sP  sS 
sT  sW  tE  tR  vO  wl  xO  aB  aN  aS  aT  cH  cL  cM  cO  dA  dE  dl  eN  eX  fO  fR  gE  gO 
iN  IE  II  10  ml  nE  nO  oP  pE  pO  pR  rE  rl  rN  rU  sA  sG  si  sP  sQ  sT  sY  tA  tH 
US  vA  vE  wA 

If  you  use  the  header  command  without  an  ID,  the  diskette  is  not 
reformatted,  but  the  data  is  erased.  But  just  like  complete  formatting,  all  data 
will  be  lost  in  this  process.  This  is  why  the  computer  asks  "are  you 
sure? "  so  that  you  must  confirm  the  command  before  it  is  executed.  If 
you  answer  the  question  with  "y"  for  yes,  it  will  perform  the  command. 
You  can  also  use  the  header  command  in  a  program.  In  this  case  the  user  is 
not  asked  to  confirm  the  command  to  format  the  diskette.  The  command  is 
executed  immediately,  so  you  should  program  confirmation  questions 
yourself  in  your  own  programs. 

As  you  already  know  from  Section  1.1.3,  the  diskette  formats  in  the 
C-64  and  C-128  modes  are  not  identical.  CP/M  diskettes  have  a  completely 
different  organization.  The  differences  between  the  two  modes  result  from 
the  fact  that  the  disk  drive  behaves  like  a  1541  drive  when  in  the  64  mode  or 
when  connected  to  a  C-64.  If  the  computer  is  in  the  C-128  mode,  the  drive 
switches  to  the  1571  mode.  The  greatest  difference  between  the  two  modes 
is  the  disk  capacity.  The  1571  uses  both  sides  of  the  disk  while  the  1541 
uses  only  one  side,  since  it  has  only  one  read/write  head.  In  spite  of  this, 
1571  diskettes  can  also  be  used  in  the  C-64  mode-provided  a  1571  drive  is 
used.  The  1570  does  not  recognize  a  second  side  and  always  behaves  like  a 
1541. 
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1.2.3  DLOAD/RUN  -  Loading  and  executing  BASIC  programs 


BASIC  >  3.0: 

DLOAD  "program  name",Dx,Uy 

RUN  "program  name",Dx,Uy 

Abbreviation: 

dL  /  rU 

BASIC  <3.0: 

LOAD  "x:program  name",y 

RUN  "program  name"  is  impossible 

optional  Parameter:  x 

Monitor: 

L  "xerogram  name",yy,aaaa 

auto-start  is  impossible 

aaaa  =  Starting  addr.  of  program 

Parameters  (optional): 

Dx:  x  = 

Drive  (0/1) 

Uy:  y  = 

Device  #  (4-15) 

Now  we're  getting  serious.  These  are  the  first  commands  for  working 
with  the  diskette.  Initially  you  will  probably  use  your  disk  drive  to  store 
mainly  programs. 

Therefore  we  want  to  first  discuss  the  commands  with  which  you  can 
read  a  program  from  the  diskette  into  the  computer.  Its  simplest  form  is: 

DLOAD  "program  name" 

The  D  in  DLOAD  stands  for  "disk."  DLOAD  is  just  a  special  version  of 
the  familiar  LOAD  command  in  which  you  do  not  need  to  specify  the  device 
address. 

If  the  desired  program  is  on  diskette,  it  is  loaded  into  the  memory  of  the 
computer.  If  the  program  is  not  found,  the  computer  responds: 

FILE  NOT  FOUND 
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This  also  happens  if  the  dload  command  is  used  in  a  program.  In 
addition,  the  program  is  interrupted  and  the  computer  returns  to  the  direct 
mode. 

You  can  try  this  command  with  the  Test/demo  diskette.  Try  to  load  the 
various  programs  from  the  diskette.  To  execute  the  program  immediately 
after  it  is  loaded,  use  RUN  in  place  of  DLOAD. 

The  keys  <SHIFT  +  RUN/STOP>  offer  a  still  greater  ease  of  use.  If 
you  press  them  together,  the  commands  DLOAD  (in  abbreviated 

form)  automatically  appears  on  the  screen  and  after  it  "RUN".  This  causes 
the  computer  to  read  the  first  program  on  the  diskette  and  run  it. 

Naturally  there  are  differences  between  the  load  commands  in  the  64 
and  128  modes.  The  most  serious  contrast  is  the  transfer  speed.  In  the  C-64 
mode  the  characters  are  transferred  over  the  bus  at  a  rate  of  400  characters 
per  second,  while  they  travel  at  a  rate  of  3500  bytes  per  second  over  the 
C-128  bus.  In  practice  this  means  that  a  graphic  picture  is  no  longer  loaded 
in  20  seconds,  but  in  3. 

In  addition,  the  load  command  behaves  differently  when  overlaying 
programs.  While  the  C-64  normally  "forgets"  all  of  its  variables,  they  all 
retain  their  values  on  the  C-128.  So  you  can  easily  divide  large  programs 
into  several  sections  without  problem 
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1.2.4  DSAVE  -  Saving  BASIC  programs 


BASIC  >  3.0: 

DSAVE  "program  nameM,Dx,Uy 

Abbreviation: 

dS 

BASIC  <3.0:         SAVE  "xerogram  nameH,y 
optional  Parameter:  x 

Monitor: 
aaaa/bbbb  = 

S"x:program  name",yy,aaaa,bbbb+1 
Start  &  End  addr.  of  program 

Parameters  (optional): 

Dx:  x  = 
Uy:  y  = 

Drive  (0/1) 
Device  #  (4-1 5) 

If  a  program  is  to  be  transferred  from  the  computer  memory  to  the 
diskette,  we  do  it  like  DLOAD  only  here  with  the  command  DSAVE.  If,  for 
example,  we  want  to  save  a  BASIC  program,  we  must  find  a  suitable  name 
for  it.  Let's  assume  it  should  be  called  minitest.  The  save  command 

reads: 


DSAVE  "minitest" 

The  name  may  not  be  more  than  16  characters  long  and  a  program  with 
the  same  name  may  not  exist  on  the  diskette.  In  addition,  there  are  some 
characters  which  may  not  be  used  in  program  and  file  names.  These 
characters  are  control  characters.  If  they  are  used,  the  program  cannot  be 
loaded  because  the  drive  will  interpret  the  name  as  a  command.  Here  are  the 
prohibited  characters: 

,    :   ?  *  #  &  @ 

If  you  have  changed  your  program  and  would  like  to  save  the  new 
version  with  the  same  name,  you  can  precede  the  name  with  the  @  character. 
For  example: 
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DSAVE  "@minitest" 

The  special  function  saves  the  new  version  and  then  erases  the  old 
version.  Therefore  there  must  always  be  enough  free  space  on  the  diskette 
to  hold  a  copy  of  the  new  version.  Unfortunately,  there  are  problems  with 
this  replace  function.  If  the  diskette  is  almost  full,  the  function  will  not  work 
correctly  and  your  program  may  be  lost.  You  should  therefore  use  the  @ 
with  care~or  better  yet,  not  at  all.  In  BASIC  <  3.0  as  well  as  in  the  monitor, 
a  colon  must  follow  the  @  in  order  to  separate  it  from  the  program  name 
(such  as  "@  :minitest"). 

The  save  times  on  the  1570/1571  are  not  as  fast  as  the  loading  time. 
Saving  a  program  is  no  faster  than  on  the  1541.  In  addition,  saving  is 
generally  slower  than  loading  because  after  each  write  the  data  must  be 
checked  to  see  if  it  was  stored  correctly  on  the  diskette. 

Loading  and  Saving  Times 


Read 

Write 

C-64  10K  Byte-program 

0:27 

0:30 

C-64  10K  Byte-file 

2:25 

2:45 

C-128  10K  Byte-program 

0:03 

0:25 

C-128  10K  Byte-file 

3:05 

2:50 
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1.2.5  D VERIFY  -  Verifying  programs 


BASIC  >  3.0: 

DVERIFY  "program  name",DxIUy,z 

Abbreviation: 

dV 

BASIC  <3.0: 

VERIFY  "x:program  name",y,z 

optional  Parameter:  x 

Monitor: 

V"x  prog  ram  name"  ,yy, aaaa 

aaaa  =  Starting  addr.  of  program 

Parameters  (optional): 

Dx:  x  = 

Drive  (0/1) 

Uy:  y  = 

Device  #  (4-1 5) 

z  :  z  = 

0:  relative  load  1 :  absolute  load 

This  command  verifies  that  a  program  on  the  diskette  is  the  same  as  the 
one  in  the  computer's  memory.  It  compares  it  with  the  one  found  in  the 
memory  of  the  computer.  If  they  match,  the  computer  responds  Ok.  If  not, 
the  message  Verify  Error  will  be  displayed. 


Historically  DVERIFY  originates  from  cassette  usage.  Because  of  the 
relative  low  reliability  of  cassette  storage,  it  was  advisable  to  verify  the 
stored  program.  In  this  age  of  affordable  disk  drives,  this  function  is  really 
superfluous. 

The  disk  drive  checks  the  data  it  has  written  to  a  sector  for  accuracy. 
Verify  is  automatically  performed  upon  every  write  access  by  the  1570/71 
disk  drive.  This  is  also  why  saving  a  program  takes  somewhat  more  time 
than  loading  it 
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1.2.6  BLOAD/BSAVE  -  Saving/loading  machine  language 


BASIC  >  3.0: 

BLOAD  "program  name,\Dx,Uy)ON 
Bz.Pa 

BSAVE  "program  name,,,Dx,Uy,ON 
Bz.PaTOPb 

Abbreviation 

bL/bS 

BASIC  <3.0:         LOAD  "xerogram  name",y,1 

SAVE  not  available 
optional  Parameter:  x 

Monitor: 
aaaa/bbbb  = 

L"x:program  name",yy,aaaa 
S"x:program  name",yy,aaaa,bbbb+1 
Start  &  End  address  of  program 

Parameters  (optional): 

Dx:  x  = 
Pa:  a  = 
Pb:  b  = 
Uy:  y  = 
Bz:  z  = 

Drive  (0/1) 

Starting  address  (decimal) 
Ending  address  (decimal) 
Device  #  (4-15) 
Bank  number  (0-15) 

BLOAD,  like  the  name  says,  is  another  load  command.  But  we  have 
already  encountered  DLOAD.  Why  do  we  need  another  command? 

The  solution  to  this  puzzle  lies  in  the  way  in  which  data  are  loaded. 
With  DLOAD,  the  program  is  always  loaded  at  the  start  of  the  BASIC 
storage,  regardless  of  the  area  from  which  it  was  saved.  This  isn't  bad  for 
BASIC  programs.  But  programs  which  are  written  in  machine  language 
may  not  run  if  loaded  with  DLOAD.  They  can  execute  only  in  a  certain 
memory  area.  Graphic  pictures  too  must  be  loaded  to  the  original  location. 
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For  this  reason  the  start  address  of  the  program  is  always  saved  along 
with  the  program  itself.  BLOAD  loads  the  program  back  at  this  address. 

The  counterpart  of  BLOAD  is  bsave.  This  command  is  used  to  save 
arbitrary  sections  of  memory.  DSAVE  saves  only  the  BASIC  program 
located  at  the  start  of  the  BASIC  storage. 

The  corresponding  load  and  save  commands  of  the  monitor  require  you 
to  specify  a  memory  range  for  DLOAD.  The  monitor  commands  cannot  be 
accessed  from  a  BASIC  program.  This  is  the  purpose  of  BLOAD  and 

BSAVE. 

These  disk  drive  functions  should  not  be  ignored.  They  can  be  used  to 
load  sprites  or  graphic  pictures  into  the  proper  memory  locations.  They  are 
also  used  by  the  machine  language  programmer,  who  can  load  machine 
language  programs  more  easily.  In  these  applications,  you  should  not 
deviate  from  the  start  address  saved  along  with  the  program.  Whenever 
possible,  specify  the  parameter  Pa.  Then  you  can  be  certain  that  the  data  is 
loaded  in  the  proper  memory  location.  Otherwise  the  program  may  be 
loaded  into  an  area  with  contains  important  parts  of  your  current 
program-causing  the  computer  to  crash. 

One  more  thing  is  important.  While  the  starting  and  ending  addresses  of 
the  memory  range  must  be  given  in  hexadecimal  in  the  monitor,  only 
decimal  values  are  allowed  in  BASIC.  If  you  want  to  use  hexadecimal 
specifications,  you  must  use  the  command  DEC  ( "  ") .  The  expression 
must  be  enclosed  in  parentheses. 

Furthermore  the  BSAVE  command  or  the  monitor  Save  command  has  a 
peculiarity.  The  contents  of  the  last  specified  range  address  is  not  saved.  So 
you  should  always  specify  the  ending  address+1. 
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1.2.7  DIRECTORY/CATALOG  -  Display  the  disk  contents 


BASIC  >  3.0: 

DIRECTORY  Dx  ON  Uy,"nameH 
i  "Luo  uy  \jim  uy,  name 

Abbreviation: 

diR/cA 

BASIC  <3.0: 

LOAD  "$x:name",y :  LIST 

Monitor: 

@y,x:$name 

Parameters  (optional): 

Dx:  x  = 
Uy:  y  = 
name  : 

Drive  (0/1) 
Device*  (4-15) 

Search  string  for  selection  of  files 

We've  now  saved  and  loaded  programs  several  times.  But  what 
programs  are  now  on  the  diskette?  Under  what  name  was  the  last  program 
stored?  We  need  to  see  the  contents  of  the  diskette. 


To  save  you  from  reaching  for  pencil  and  paper,  the  1570/1571  disk 
drive  automatically  keeps  a  directory  of  the  programs  and  files  stored  on  the 
diskette.  It  may  be  displayed  by  using  the  CATALOG  or  DIRECTORY 
commands.  But  why  are  there  two  commands  to  perform  the  same 
function?  This  is  also  probably  a  sort  of  tradition  (like  D VERIFY)  because 
both  commands  were  implemented  in  the  BASIC  4.0  of  the  CBM-8000 
series  computers.  Also,  BASIC  7.0  is  supposed  to  be  compatible  with  all 
previous  Commodore  dialects. 

The  parameters  are  standard  except  for  name.  If  you  specify  this 
parameter,  you  can  select  certain  files  to  be  displayed.  This  only  makes 
sense  with  wildcards,  of  which  you  learn  more  in  Section  1.3.9.  For 
example,  it  is  possible  to  list  only  the  entries  whose  name  begins  with  "a". 
If  the  name  specification  is  missing,  the  entire  directory  will  be  printed. 

Now  to  the  directory  itself.  Let's  take  a  look  at  an  example: 
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The  drive  number,  disk  name,  ID,  and  disk  format  are  displayed  in 
reverse  in  the  title  line.  The  drive  for  the  1571  is  naturally  always  0  since  it 
is  a  single  drive.  The  disk  name  and  the  two  character  ID  follow.  The 
identifier  "2  A"  serves  only  to  recognize  which  diskette  format  is  involved. 

Next  the  contents  are  listed.  First  the  number  of  blocks  (sectors)  is 
displayed.  This  gives  an  indication  of  how  large  the  program  or  file  is.  After 
this  comes  the  file  name  and  finally  the  file  type.  This  specification  gives 
information  about  the  type  of  the  entry,  whether  it  is  a  file,  a  program,  or 
whatever.  The  standard  file  types  are  listed  below: 

DEL  =  deleted  entry 

PRG  =  program 

SEQ  =  sequential  file 

USR  =  user  file 

REL  =  relative  file 

At  the  end  of  the  listing  is  the  number  of  sectors  (blocks)  which  are  still 
free  on  the  disk. 
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1.2.8  SCRATCH  -  Deleting  programs  and  files 


BASIC  >  3  0- 

SCRATCH  "namel  name2  "  Dx  Uv 

AbbrGviation* 

sC 

BASIC  <3.0: 

OPEN  1  ,y,15,"SX:name1  ,name2,.." 

Monitor: 

@y,Sx:name1  ,name2,.. 

Parameter: 

name  : 

Up  to  five  filenames  separated  by 
commas 

Parameters  (optional): 

Dx:  x  = 
Uy:  y  = 

Drive  (0/1) 
Device  #  (4-15) 

If  you've  stored  a  few  test  programs  and  now  want  to  erase  them  you 
can  use  the  SCRATCH  command  to  do  this.  It  deletes  the  entry  from  the 
directory  and  releases  the  blocks  occupied  by  the  program  or  file. 

Up  to  five  entries  can  be  deleted  at  a  time.  The  names  of  the  individual 
entries  are  separated  by  commas. 

It's  a  very  short  time  between  pressing  the  <RETURN>  key  and 
erasing  the  wrong  file  because  you  specified  the  wrong  name.  BASIC  7.0 
asks  you  to  confirm  scratches.  If  you're  sure,  press  <Y>.  Any  other  key 
terminates  the  command. 

When  a  program  or  file  is  SCRATCHed,  it  is  not  really  erased  or 
overwritten.  Instead  it  is  just  flagged  as  deleted.  It's  possible  to  change  this 
flag  and  thereby  recover  the  file.  A  disk  monitor  which  writes  directly  to  the 
tracks  and  sectors  of  the  diskette  can  be  used  for  this. 
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After  deleting,  the  following  message  is  displayed  on  the  screen: 

01,   FILES  SCRATCHED,   XX,  00 

The  number  XX  indicates  how  many  files  were  removed.  This  is 
especially  important  when  using  wildcards  in  the  name  specification. 

The  SCRATCH  command  can  naturally  also  be  used  in  a  BASIC 
program.  The  question  "Are  your  sure?  "  is  asked  only  in  the  direct 
mode,  however.  This  question  is  omitted  in  the  program.  If  you  want  to 
check  the  message  in  the  program,  you  must  request  it  from  the  disk  drive. 
More  about  this  in  the  next  section. 

One  further  note.  Files  which  are  listed  with  an  asterisk  (*)  in  the 
directory  may  not  be  deleted  with  the  SCRATCH  command.  The  save 
process  was  interrupted  when  these  files  were  being  saved.  Always  use  the 
validate  command  with  "*"  files  to  remove  them  from  the  diskette. 
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1.2.9  DS/DS$/ST  -  When  an  error  occurs... 


BASIC  >  3.0: 

PRINT  DS  /  PRINT  DS$  /  PRINT  ST 

Abbreviation* 

9  DS  /  ?DS$  /  f ST 

BASIC  <3.0: 

10  OPEN  1,y,15 

20  GET#1  ,A$:PRINT  A$;:IFST<>64 

THEN  20 
30  CLOSE1 
RUN 

Monitor: 

@y        y  =  Device  #(4-1 5) 

"Only  he  who  does  not  try,  makes  no  errors."  Have  you  ever  made  an 
error?  Imagine  that  you  want  to  load  a  program  and  forgot  to  insert  a 
diskette  in  the  drive.  What  does  the  disk  drive  do?  Try  it  out  once! 

Immediately  the  red  (1570)  or  green  (1571)  LED  starts  to  flash  on  and 
off.  If  the  disk  drive  is  in  the  1570/1571  mode,  the  LED  flashes  twice  as 
fast  as  in  the  1541  mode.  If  the  light  flashes  after  power-up,  the  internal 
self-test  routine  found  an  error  in  the  operating  electronics.  In  this  case 
consult  Section  6.3.6  for  help. 

So  that  you  can  (ktermine  the  cause  of  the  error,  the  disk  drive  stores  an 
error  message.  This  can  be  read  via  the  variables  DS  and  DS$.  This  is  why 
these  variable  names  may  not  be  used  in  your  programs.  The  error  message 
can  be  read  only  once.  After  this  the  flashing  LED  on  the  drive  goes  out. 
The  next  time  the  error  message  is  read,  you  will  get  the  OK  message.  In 
BASIC  7.0  the  last  read  is  stored  in  DS/DS$.  The  complete  message  is 
displayed  on  the  screen  with  print  ds$. 


Let's  take  a  look  at  the  construction  of  such  an  error  message: 
NN,   MESSAGE,   TT,  SS 
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Every  error  has  a  number  (NN).  The  exact  cause  of  the  error  can  be 
determined  through  this.  Then  comes  the  name  of  the  error,  such  as  "Read 
Error".  The  specifications  TT  and  SS  stand  for  track  and  sector  number  of 
the  location  at  which  the  error  occurred.  The  exact  meaning  of  the  error,  the 
causes  and  possible  solutions  are  listed  in  Appendix  D. 

If  you  use  just  the  variable  D  S  instead  of  D  S  $ ,  you  get  only  a 
number-in  this  case  the  error  number.  This  is  often  helpful  when  analyzing 
a  message.  If  a  command  was  executed  without  error,  then  the  drive  returns 
an  "OK"  message,  which  has  the  number  0.  Naturally,  the  red/green 
(1570/1571)  light  does  not  flash  then.  In  your  programs  you  should  always 
check  to  see  if  DS  contains  zero  after  disk  commands  or  if  an  error 
occurred.  This  can  be  done  through  the  following  program  sequences,  for 
example: 

C-64  mode: 

10  open  1,8,15   :   input #1, a, a$, b, c  :  close  1 
20  if  a<>0  then  print  a;a$;b;c  :  stop 
for  all  messages  (including  scratch) 

10  open  1,8,15   :  input#l, a, a$,b, c  :  close  1 
20  if  a>19  then  print  a;a$;b;c  :  stop 
for  errors  only  (ignore  scratch) 

C-128  mode: 

10  if  ds<>0  then  print  ds$  :  stop 
for  all  messages  (including  scratch) 

10  if  ds>19  then  print  ds$  :  stop 
for  errors  only  (ignore  scratch) 

Beside  DS  and  DS$  there  is  another  variable  that  gives  information 
about  the  current  system  condition,  the  variable  ST.  Naturally,  you  may  not 
use  this  name  for  other  variables  either.  The  term  ST  comes  from  "status," 
and  this  is  exactly  the  function  of  ST.  This  variable  gives  information  about 
the  status,  the  condition  of  the  input/output  system.  The  fact  that  this 
involves  mainly  the  cassette  recorder  will  not  be  discussed  further  here.  The 
bits  for  the  cassette  are  therefore  omitted: 
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Bit 

Dec 

Fnnptinn  I 

1   Ul  iwll  SJI 1  I 

0 

1 

Time-out  by  write 

1 

2 

Time-out  by  read 

6 

64 

EOl  end  of  data 

7 

128 

EOT  end  of  blocks 

For  disk  operation,  only  bits  0  and  1  as  well  as  bits  6  and  7  are  of 
interest.  Bit  6  is  called  EOI,  "End  Of  Information."  This  recognizes  when 
the  last  character  of  a  transmission  has  been  sent  (see  DS$  for  BASIC  < 
3.0). 

Bits  0  and  1  indicate  a  time-out.  If  a  device  which  is  connected  to  the 
serial  bus  is  addressed  by  the  computer,  it  must  answer  within  a  certain 
time.  Otherwise  the  computer  will  assume  that  the  device  is  not  ready.  If  the 
time  span  runs  out  (time-out),  these  bits  are  set.  The  reason  for  a  time-out 
can  lie  in  the  fact  that  the  device  is  suited  only  for  sending  or  only  for 
receiving  data. 

The  other  possibility  would  be  that  the  device  (such  as  a  disk  drive)  is 
not  even  connected.  In  this  case  the  signal  "EOT"  will  be  set.  EOT  means 
"End  Of  Tape";  it  is  a  cassette  status  signal  which  was  transported  to  disk 
use. 

The  variable  ST  is  correspondingly  corrected  after  every  disk  operation. 
If  the  drive  is  not  connected  or  is  turned  off,  bit  7  of  ST  will  be  set.  In  this 
case  the  computer  responds  immediately  with  "Device  not 
present "  .  If  the  previous  disk  command  was  in  a  program,  the  program 
will  stop-an  annoying  feature.  But  it  is  possible  to  check  in  a  program  if  the 
drive  is  turned  on,  as  the  examples  below  show.  In  addition,  you  can 
determine  if  a  diskette  is  present  in  the  drive. 
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C-64  mode: 

10  poke  768,185 
20  open  l,8,15,"i" 
30  poke  768,139 

40  if  st  and  128  then  print  chr$ (19) "Please  turn 

on  the  disk  drive" : closel : gotolO 
50  input#l, a : close  1 

60  if  a<>0  then  print  chr$ (19) "Please  insert  the 
diskette":  goto  10 

C-128  mode: 
10  trap30 

20  open  1, 8, 15, "in :goto40 

30  if  er=5  then  print  chr$ (19) "Please  turn  on 

the  disk  drive" : closel : gotolO 
40  closel 

50  if  ds<>0  then  print  chr$ (19) "Please  insert 
the  diskette":  gotolO 


30 


Abacus  Software 


1571  Internals 


1.3  Disk  drive  system  commands 


1.3.1  The  command  channel 


As  you  learned  in  Section  1.2.1,  the  computer  communicates  with  the 
disk  drive  via  special  channels.  Naturally  there  is  a  separate  data  channel  for 
the  error  messages  from  the  previous  section—the  command  channel. 

As  the  name  says,  this  channel  is  responsible  not  only  for  errors,  but 
also  for  commands.  All  disk  commands  except  LOAD  /  SAVE  / 
OPEN/CLOSE  are  sent  over  this  channel.  Since  this  is  rather  complicated 
(see  BASIC  <  3.0),  there  are  separate  disk  commands  in  BASIC  7.0.  These 
put  together  the  pure  BASIC  <  3.0  disk  commands  and  send  them  to  the 
disk  drive. 

These  disk  commands  always  consist  of  one  character,  which  is  an 
abbreviation  for  a  function,  like  "s"  for  scratch.  Then  follows  the  drive 
specification,  which  is  a  remnant  from  the  time  of  the  dual  drives  on  the 
large  Commodore  computers.  The  1570/1571  is  a  single  drive,  so  the  drive 
number  should  always  be  0  (device  8,  drive  0).  If  you  select  drive  1  in  spite 
of  this,  an  error  message  will  result.  This  syntax  is  not  entirely  senseless 
because  Commodore  is  planning  a  double  drive  for  the  C-128  which  will  be 
called  the  1572.  Sometimes,  however,  the  drive  specification  is  required  to 
select  a  specific  function  (see  CONCAT  command). 

If  additional  parameters,  like  filenames,  must  be  specified,  then  a  colon 
follows  as  a  separator,  followed  in  turn  by  the  parameters.  If  the  drive 
specification  is  omitted  the  drive  always  assumes  drive  number  0.  This 
means  that  you  can  normally  do  away  with  a  drive  number  specification 
(0/1)  on  the  1570/1571.  You  may  not  forget  the  colon,  however,  if 
additional  data  are  to  be  transmitted. 

In  BASIC  versions  <  3.0  the  disk  commands  must  always  be  sent  to 
the  drive  via  the  command  channel  (except  for  LOAD /save).  In  order  to 
inform  the  computer  that  it  should  set  up  a  certain  channel  to  the  disk  drive, 
we  use  the  OPEN  command.  This  opens  the  channel  for  operation.  The 
syntax  to  open  the  command  channel  is: 

OPEN  1,8,15 
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The  first  digit  (logical  file  number)  is  an  arbitrary  number  between  1 
and  255  with  which  the  channel  will  be  designated.  Next  follows  the  device 
address  of  the  drive,  in  this  case  this  is  the  standard  device  number  of  eight 
The  last  number  specifies  the  channel  number,  here  number  15  for  the 
command  channel.  You  can  find  more  about  the  OPEN  command  in 
Sections  1.2.1,  1.4.1,  and  1.5.1. 

Now  you  can  send  commands  to  the  disk  drive  via  this  channel.  If,  for 
example,  the  scratch  command  is  to  be  executed,  then  you  must  send 
"s  :  filename".  The  PRINT*  command  is  used  for  this: 

PRINTtl, "s : filename" 

In  this  command  we  find  the  1  from  the  OPEN  command  again.  Since 
we  assigned  a  number  to  the  channel  with  the  OPEN  command,  we  don't 
have  to  give  all  of  the  specifications  (device  address,  channel  number,  etc.) 
again  if  we  want  to  send  a  message  to  a  special  channel—the  logical  file 
number  suffices. 

One  last  detail  you  should  know.  Commands  to  the  disk  drive  may  not 
be  longer  than  41  characters.  The  internal  buffer  storage  of  the  1570/1571 
does  not  allow  more.  With  very  long  filenames  this  sometimes  leads  to 
limitations,  especially  with  the  SCRATCH  or  COPY  commands.  You  cannot 
SCRATCH  three  files  with  15  character  names  with  one  SCRATCH 
command.  This  does  not  lead  to  real  disadvantages—you  will  just  have  to 
divide  a  task  up  into  several  partial  steps. 
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1.3.2  COLLECT  -  Organizing  a  diskette 


BASIC  >  3.0: 

COLLECT  Dx  ON  Uy 

Abbreviation: 

collE 

BASIC  <3.0: 

OPEN  l.y.lS.'W 

optional  Parameter:  x 

Monitor: 

@y,Vx 

Parameters  (optional): 

Dx:  x  = 

Drive  (0/1) 

Uy:  y  = 

Device  #  (4-15) 

The  COLLECT  commands  puts  the  diskette  directory  back  in  order.  In 
detail,  it  involves  the  directory  and  the  BAM,  the  table  of  free  and  allocated 
blocks,  called  the  Block  Availability  Map. 

The  COLLECT  command  first  erases  the  BAM.  Then  the  drive 
determines  the  sectors  used  by  each  valid  file  entry.  These  are  designated  in 
the  BAM  as  allocated.  Finally  the  new  BAM  is  written  to  the  diskette.  In 
addition,  the  COLLECT  command  removes  all  invalid  entries  from  the 
directory.  Now  just  what  are  invalid  entries? 

Such  files  are  designated  by  an  asterisk  (*).  They  are  created  when  an 
OPEN  file  is  not  CLOSEd  or  if  a  program  is  saved  which  is  larger  than  the 
free  space  on  the  diskette.  The  saving  process  is  then  interrupted,  an  error 
message  displayed  and  all  previously  free  blocks  are  allocated~only  the 
COLLECT  command  will  reclaim  them. 


33 


Abacus  Software 


1571  Internals 


1.3.3  RENAME  -  Renaming  a  file  in  the  directory 


BASIC  >  3.0: 

RENAME  old  TO  new  ,Dx,Uy 

Abbreviation: 

reN 

BASIC  <3.0: 

OPEN  1,y,15,"Rx:new=old" 

Monitor: 

@y,Rx:new=old 

Parameters: 

old  : 

old  filename 

new  : 

new  filename 

Parameters  (optional): 

Dx:  x  = 

Drive  (0/1) 

Uy:  y  = 

Device  #  (4-15) 

With  this  command  you  can  give  an  existing  directory  entry  a  new 
name.  As  you  see  above  in  the  syntax  diagram,  this  is  not  very  complicated. 

Naturally  this  function  is  not  just  suited  for  beautifying  the  directory.  It 
is  particularly  interesting  when  files  are  to  be  processed  from  programs.  The 
files  can  all  receive  the  same  name.  When  changes  are  made,  you  must  save 
the  file  under  a  temporary  name  and  delete  the  old  file.  The  temporary  name 
is  then  changed  to  the  name  of  the  old  file.  Using  this  method  you  end  up 
with  one  file  in  the  end.  You  can  use  this  technique  not  only  for  files  but  for 
programs  as  well.  This  way  you  don't  get  100  versions  of  the  program  on 
the  diskette,  just  the  most  current,  and  always  with  the  same  name. 
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1.3.4  CONCAT  -  Chaining  files 


BASIC  >  3.0: 

CONCAT  Dx,  source  TO  Dy,  target 
ONUz 

Abbreviation: 

cO 

BASIC  <3.0: 

OPEN 

1  ,z,1 5,"Cy:target=y:target,x:source" 

Monitor: 

@z,Cy:target=y:target,x:source 

Parameters: 

target : 
source  : 

file  to  be  appended 

file  to  which  target  will  be  attached 

Parameters  (optional): 

coo 

N  «<  X 
N  *<  X 

ii  ii  ii 

Drive  (0/1) 
Drive  (0/1) 
Device  #  (4-1 5) 

The  CONCAT  command  allows  you  to  chain  a  file  to  another  one.  The 
data  of  the  source  file  is  appended  to  the  destination  file.  The  source  file  is 
not  deleted. 


This  chaining  works  only  with  sequential  files  (SEQ  or  USR).  Programs 
cannot  be  combined  in  this  manner. 

The  CONCAT  command  is  actually  a  copy  function  and  is  therefore  a 
type  of  copy  command.  More  about  this  in  the  next  section. 


35 


Abacus  Software 


1571  Internals 


1.3.5  COPY  -  Copy  files 


BASIC  >  3.0: 

COPY  Dx,"source"  TO  Dy  ."target"  ON 

1  It 
UZ 

ADDreviation. 

COr 

bAolO  <o.O. 

UrbNI  ,Z,  15 

PRINT#1  ,"Cx:target=y:source" 
CLOSE1 

Monitor: 

@z  ,Cx:target=y  :sou  rce 

Parameters: 

target : 
source  : 

name  of  new  file 
name  of  old  file 

Parameters  (optional): 

COD 

N  *<  X 
II    II  II 

Drive  (0/1) 
Drive  (0/1) 
Device  #(4-15) 

This  command  copies  individual  files.  This  seems  intelligent  for  a 
double  drive,  but  what  will  it  do  on  a  single  drive  like  the  1570/1571? 
Naturally,  the  application  possibilities  of  the  COPY  command  are  somewhat 
limited.  There  are,  however,  useful  applications  of  the  command.  You  have 
already  become  acquainted  with  one  of  these  in  the  previous  section  in  the 
form  of  the  CONCAT  command. 

With  a  single  drive  the  COPY  command  can  be  used  to  chain  files.  A 
new  file  is  formed  out  of  two,  three,  or  even  four  already  existing  files.  The 
data  of  the  source  files  are  appended  to  the  destination  file  in  the  order  in 
which  the  names  of  the  source  files  where  specified.  Only  sequential  files 
(SEQ  or  USR)  can  be  combined  in  this  manner. 
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Naturally  program  files  can  be  copied  as  well.  Only  one  source  program 
is  allowed.  Programs  cannot  be  combined  in  this  manner.  This  is  a  problem 
which  must  be  solved  in  the  computer. 

Copying  individual  files  still  makes  sense.  If  manipulations  are  to  be 
performed  on  files,  men  this  should  often  be  tried  out  on  duplicates  first. 
With  the  COPY  command  you  can  create  a  copy  of  the  original  file. 

One  aspect  of  this  should  not  be  overlooked:  The  destination  file  must 
have  a  name  which  is  not  present  on  the  disk.  But  here  too  there  is  a  special 
case.  If  for  both  the  source  and  destination  files  you  specify  the  drive 
number  and  use  a  name  which  already  exists  on  the  diskette,  these  file  will 
be  overwritten  by  the  new  destination  file.  The  CONCAT  command  works 
according  to  this  method. 

To  copy  a  program  from  one  diskette  to  another,  you  need  a  special 
copy  program.  Such  a  program  is  contained  on  the  Test/demo  diskette  under 
the  name  "  s d .  copy .  c  6  4  " .  You  must  load  and  start  this  program  in  the 
C-64  mode.  It  has  the  disadvantages  of  being  very  slow  and  difficult  to  use. 
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1.3.6  BACKUP  -  Duplicating  diskettes 


DnOlU  >  O.yJ. 

rapki  ip  r>v  to  rw  i  \i 

ADDreviaiion. 

oau 

BASIC  <3.0: 

OPEN1>y,15>,,Dy=x,, 

Monitor* 

<S)z  Dv— x 

Parameters: 

Dx:  x  = 
Dy:  y  = 
Uz:  z  = 

Drive  #  of  source  disk  (0/1 ) 
Drive  #  of  target  disk  (0/1 ) 
Device  #(4-15) 

This  is  the  only  command  of  the  C-128  or  1570/1571  which  cannot  be 
used  at  all.  BACKUP  is  intended  to  duplicate  entire  diskettes.  The  destination 
diskette  is  formatted  at  the  same  time.  This  works  only  with  a  dual  drive. 
On  a  single  1570/1571  drive,  this  is  senseless. 

What  do  you  do  if  you  need  to  copy  an  entire  diskette.  You  can  make 
backup  copies  with  a  special  backup  programs.  A  copy  program  for 
backups  is  included  in  the  "DOS  SHELL"  on  the  Test/demo  diskette. 
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1.3.7  DCLEAR  -  Closing  all  channels 


BASIC  >  3.0: 

DCLEAR  Dx  ON  Uy 

Abbreviation: 

dclE 

BASIC  <3.0: 

not  available 

Monitor: 

not  available 

Parameters  (optional): 

Dx:  x  = 
Uy:  y  = 

Drive  #  of  source  disk  (0/1 ) 
Device  #  (4-15) 

This  command  closes  all  of  the  channels  to  the  disk  drive.  This  is  an 
internal  function  of  the  computer.  The  command  does  not  send  a  "close 
channel"  command  (CLOSE)  to  the  disk  drive.  Open  files  cannot  be 
properly  handled  in  this  manner.  To  do  this  there  is  the  DCLOSE  command 
(see  Sections  1.4  and  1.5). 

For  file  applications,  DCLEAR  has  little  use.  You  can,  however, 
terminate  CMD  channels  to  the  disk  drive  with  it  These  are  data  channels  to 
which  the  normal  screen  output  has  been  redirected  to  another  device  with 
CMD.  This  allows  the  output  to  be  written  to  a  disk  file  instead  of  the  screen. 

If  you  use  DCLEAR  in  your  own  programs,  you  must  be  sure  that  the 
input  and  output  will  take  place  on  the  standard  devices. 
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1.3.8  BOOT  -  Starting  the  CP/M  operating  system 


BASIC  7.0: 

BOOT  name  ,Dx,Uy 

Abbreviation: 

bO 

BASIC  <7.0: 

not  available 

Monitor: 

G  FF88C  (Track  0,  Sector  1) 

Parameters  (optional): 

Dx:  x  = 
Uy:  y  = 

Drive  #  of  source  disk  (0/1) 
Device  #  (4-15) 

BOOT  is  a  command  with  a  double  meaning.  If  parameters 
(name,  .  .  . )  are  given,  then  it  behaves  differently  than  when  these  are 
omitted.  Let's  first  look  at  the  BOOT  command  with  parameters. 

The  most  important  parameter  is  the  name.  The  computer  searches  for  a 
machine  language  program  with  this  name  in  the  directory  and  loads  it  in  to 
the  memory  area  specified  by  the  file  in  the  current  bank  (normally  0). 
Execution  then  begins  at  the  starting  address.  You  must  ensure  that  the 
machine  code  makes  sense  at  this  address  or  the  computer  will  crash. 

If  you  simply  enter  BOOT,  the  computer  reads  sector  0  on  track  1 .  If  the 
first  three  characters  of  the  sector  are  CBM,  then  it  is  an  autoboot  sector. 
Otherwise  the  boot  command  is  ended. 

The  autoboot  sector  must  contain  a  set  of  data  and  a  startup  program. 
This  is  then  responsible  for  performing  additional  actions.  For  a  detailed 
study  of  the  BOOT  command,  see  the  book  128  Internals  from  Abacus. 
Section  7.7  of  that  book  explains  the  command  in  detail.  The  book  also 
contains  the  relevant  kernal  listing. 
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Byte 

Function  S 

0-2 

"CBM"-  marker  for  identification 

3/4 

memory  address  of  further  boot  sectors 

IT 

5 

bank  number  for  following  sectors 

6 

number  of  boot  sectors  still  to  follow 

7  on 

text  to  be  outputted  after  the  message 

"BOOTING"  followed  by  a  zero 

name  of  program  to  load  after  loading  the  blocks 

followed  by  a  zero 

machine  language  routine  that  is  executed  after 

loading 

If  the  boot  message  is  specified,  it  is  printed  on  the  screen  after 
"Booting".  If  no  message  is  to  be  printed,  the  separator  $00  must  be 
placed  in  byte  7.  After  this  a  test  is  made  to  see  if  other  boot  sectors  are  to 
be  loaded  (byte  6  not  equal  to  0).  If  so,  the  data  in  bytes  3  to  5  apply. 

The  boot  command  loads  the  program  from  the  diskette  whose  name  is 
given  in  the  string  following  the  boot  message. 

Finally,  you  can  write  your  own  boot  routine.  The  program  is  loaded 
into  the  cassette  buffer  in  the  computer  and  executed.  The  boot  routine  must 
be  present  because  the  computer  will  try  to  execute  whatever  it  finds  in  the 
cassette  buffer.  A  system  crash  will  probably  be  the  result.  The  CP/M 
system  diskette  is  started  with  BOOT.  The  boot  routine  in  track  1,  sector  0 
switches  the  Z-80  on,  which  organizes  the  loading  of  CP/M  Plus. 

As  you  have  no  doubt  noticed,  the  BOOT  command  is  automatically 
called  after  every  reset  or  power-up  of  the  computer.  If  an  appropriate 
diskette  is  inserted  in  the  drive,  the  boot  sector  will  be  loaded  an  executed. 
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1.3.9  Wildcards 


Up  to  now  you  have  had  to  specify  the  whole  name  of  the  program  or 
file  to  which  a  disk  command  is  to  refer.  Let's  assume  that  you  have  created 
various  programs,  say  Test  1,  Test 2,  and  so  on,  and  you  want  to  delete 
all  of  these.  You  would  have  to  enter  all  of  the  filenames—a  rather 
time-consuming  task. 

For  this  reason  the  disk  drive  offers  the  ability  to  abbreviate  names  or  to 
address  entire  groups  of  names  at  once.  The  key  characters  are  the  asterisk 
(*)  and  the  question  mark  (?).  This  is  why  these  two  characters  cannot  be 
used  in  filenames.  They  are  called  wildcards. 

First  we'll  talk  about  the  (?)  wildcard  character.  The  question  mark  is  a 
place  holder  for  an  arbitrary  character.  For  example,  if  you  enter  TEST?  in 
a  SCRATCH  command  as  a  file  name,  all  files  whose  name  begins  with 
TEST  plus  one  additional  character  are  deleted.  Thus  TEST1 ,  TEST2  and 
TESTy  are  deleted.  There  is  no  limit  to  the  number  of  question  marks  that 
may  be  used.  A  file  name  ?  ?  ?  ?  ?  refers  to  all  files  whose  name  are  five 
character  in  length. 

The  second  wildcard  character  is  the  asterisk  (* ) .  If  it  is  entered  alone, 
the  first  directory  entry  on  the  diskette  is  selected.  Entered  following  a 
combination  of  characters,  the  asterisk  represents  "I  don't  care"  characters. 
For  example,  a*  selects  any  file  name  that  begins  with  the  letter  a  and  has 
any  characters  (or  none  at  all )  following. 

A  third  wildcard  is  the  equals  sign  (=) .  This  selects  file  types  of  a 
particular  kind.  To  do  this,  the  equal  sign  is  appended  to  a  file  name 
specification  followed  by  the  first  letter  of  the  desired  file  type.  For 
example,  a*=p  selects  the  first  file  whose  name  begins  with  a  and  is  also  a 
program  file. 

Here  are  some  examples  of  the  use  of  wildcards  and  the  equal  sign: 

first  entry  which  starts  with  "a", 
as  above.  Everything  after  the  asterisk  is  ignored, 
all  two-character  names  starting  with  "a", 
all  entries  with  at  least  3  characters, 
all  sequential  files  which  start  with  "a". 


a* 

a*cd 
a? 

???* 
a*=s 
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Wildcaids  may  not  be  used  with  all  disk  functions.  In  addition,  the  use 
of  wildcards  has  different  results  with  different  commands.  The  table  below 
gives  information  about  this. 


Command 

is  wildcard 
anoweu  r 

file  chosen 

ULUAU  /  BLUAU 

DVERIFY 

always 

TIISI  KJciUIMcU  lllelldlMe 

DSAVE  /  BSAVE 

no 

new  filename 

1  1  \S  WW      III       1  ■  Ml  I  I  >J 

DIRECTORY 

always 

all  identified  files 

SCRATCH 

always 

all  identified  files 

RENAME 
CONCAT/COPY 

no 

given  filenames  only 
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1.4  The  sequential  file 


1.4.1  What  is  a  sequential  file? 


There  are  basically  two  types  of  data  files  that  can  be  managed  on  the 
1570/1571.  These  are  sequential  and  relative  files.  The  chapters  on 
sequential  and  relative  files  discuss  each  in  detail. 

Data  storage  on  a  diskette  is  comparable  to  the  scrolls  of  biblical  times. 
Historically,  the  first  form  of  written  record  was  the  papyrus  scroll. 
Information  is  written  on  the  scroll  in  a  strict  start  to  finish  order.  To  find  a 
given  piece  of  information,  you  would  begin  to  search  through  the  whole 
scroll.  If  you  want  to  add  information,  you  must  add  it  at  the  end  of  the 
scroll.  Insertion  in  the  middle  of  the  scroll  is  not  possible.  This  very  simple 
method  of  data  storage  is  also  found  on  computers.  This  concept  is  referred 
to  as  sequential  file  storage. 

For  an  example,  let's  set  up  a  file  containing  names  and  birth  dates.  Li  it 
we'll  store  the  first  and  last  names  of  our  acquaintances  and  their  birth 
dates.  For  example: 


As  the  name  indicates,  the  data  is  stored  sequentially.  In  a  sequential 
file,  data  items  are  stored  one  after  another.  As  a  consequence  these  data 
items  must  be  later  read  in  this  same  order.  If  we've  written  the  above  data 
to  a  sequential  file  and  want  to  find  the  birthday  of  Jean  Schmidt  we  have  to 
skip  over  the  data  of  Harvey  Miller  and  Tom  Schneider  until  we  get  to  Jean. 

How  does  the  computer  recognize  the  end  of  a  name  or  a  birth  date? 
Let's  ask  how  we  do  that  without  a  computer?  Now  it's  easier,  there's  a 
space  between  the  data  items.  We  could  program  the  computer  such  that  it 
interprets  spaces  accordingly.  But  if  someone's  middle  name  is  ever 
entered,  such  as  "Harvey  James  Miller,"  then  our  program  doesn't  work 
anymore,  since  we  have  four  items  on  a  line  instead  of  just  three. 

To  overcome  this  problem  we  simply  use  a  different  character  to 
separate  the  data.  For  computer  files  this  is  usually  the  ASCII  value  13.  You 
probably  recognize  this  value  already.  It  has  the  same  code  as  the 


Harvey  Miller 
Tom  Schneider 
Jean  Schmidt 


3/1/1966 

7/24/1952 

9/2/1967 
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<RETURN>  key.  But  it  is  also  the  character  that  causes  the  cursor  to  jump 
to  the  next  line  (carriage  return).  The  RETURN  character  will  be  called 
"carriage  return"  or  simply  "CR"  from  now  on. 

A  sequence  of  characters  which  is  ended  with  "CR"  is  called  a  data 
field.  Several  data  fields  together  make  up  a  data  record.  In  our  case  the 
names  and  birthdates  would  be  the  individual  data  fields,  which  together 
form  a  data  record.  The  file  would  then  have  three  data  records.  The  data 
records  can  be  distinguished  by  using  another  separator.  Normally  this 
separation  is  handled  by  the  program  logic,  however.  This  means  that  the 
program  knows  exactly  how  many  data  fields  each  data  record  has  and  can 
therefore  tell  the  start  and  end  of  a  record. 


1.4.2  Opening  a  file 

Now  we  want  to  put  the  example  from  the  previous  section  into  practice 
and  build  a  sequential  file.  To  do  this,  we  must  first  tell  the  disk  drive  what 
the  file  is  to  be  called,  what  type  it  will  be,  and  so  on.  You  are  already 
familiar  with  the  command  required  for  this--the  OPEN  command.  Let's  take 
a  look  at  the  syntax  of  this  command: 

OPEN  x,  y,  z,  "a  :name, b,  c" 

The  parameters  x,  y,  and  z  are  the  logical  file  number,  device  address,  and 
secondary  address,  which  we  discussed  in  Section  1.2.1.  "a :  "  is  the  drive 
number,  which  can  always  be  omitted  on  the  1570/1571.  Next  follows  the 
name.  The  only  limitations  are  that  a  filename  may  not  exceed  16  characters, 
and  that  it  may  not  exist  already  on  the  diskette. 

Next  follow  the  important  parameters  for  the  file  management.  The  ,  b 
is  the  file  type  and  ,  c  is  the  file  mode.  For  a  sequential  file  the  file  type 
must  be  s.  Then  comes  the  operating  mode.  If  the  file  is  to  be  set  up  for 
writing,  that  is,  for  the  first  time,  a  w  (for  write)  is  specified  here. 

As  you  have  probably  noticed,  the  BASIC  <  3.0  syntax  is  used  above. 
Naturally,  there  is  also  a  BASIC  7.0  command  which  is  easier  to  use.  You 
should  be  familiar  with  both  commands.  BASIC  7.0  sends  nothing  more  to 
the  disk  drive  than  the  BASIC  3.0  command  string.  Now  the  equivalent 
BASIC  7.0  command: 
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DOPEN#x, "name", Da,Ux,b 

As  you  can  see,  the  z  parameter  is  missing.  The  secondary  address  for 
files  must  be  between  2  and  14.  The  computer  selects  this  automatically. 
The  device  address  Ux  may  also  be  omitted  for  drive  8.  Dx  is  also 
superfluous  since  the  1570/1571  is  a  single  drive.  Thus  the  command 
usually  reduces  itself  to: 

DOPEN#x, "name",b 

The  logical  channel  number  x  must  be  retained,  however.  This 
determines  in  the  individual  outputs  to  which  file  they  will  go.  Use  only 
numbers  between  1  and  127.  Values  between  128  and  255  have  the  result 
that  a  linefeed  (ASCII  value  10)  will  be  added  to  the  carriage  return  after 
each  output. 

Now  back  to  our  example~the  birthday  file.  Open  this  file  with: 

DOPEN#l, "birthday", w 

Now  the  disk  drive  goes  into  action.  First  it  checks  to  see  if  the  name  is 
already  on  the  disk.  This  would  result  in  a  "File  Exists  Error". 
This  is  why  it  is  advisable  to  check  the  status  variable  DS  after  the  dopen 
command.  If  it  is  0,  you  can  be  sure  that  the  file  was  opened  successfully. 

The  red  (1570)  or  green  (1571)  LED  stays  lit  as  long  as  the  file  is  open. 
It  tells  that  you  may  not  remove  the  diskette  from  the  drive  in  the  meantime. 
The  disk  drive  is  now  waiting  for  data  from  the  computer.  The  light  will  not 
go  out  again  until  the  last  active  file  was  been  closed  again. 
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1.4.3  Storing  data 

After  the  file  has  been  opened  successfully,  we  can  now  write  the 
individual  data  fields  into  the  file.  The  same  command  which  outputs 
information  on  the  screen  is  used  for  this~the  PRINT*  command. 

It  is  modified  a  bit  for  the  output  via  data  channels,  since  you  must  also 
know  over  what  channel  the  data  are  to  go.  It  is  therefore  called: 


The  abbreviation  for  the  PRINT#  is  therefore  not  the  question  mark  and  the 
#,  but  pR.  You  must  note  this  when  entering  programs  if  you  make  use  of 
the  abbreviations.  Our  birthday  file  would  contain  the  following  command 
sequence: 


40  INPUT  "birthday  ";c$ 

50  PRINT#1,  a$;CHR$  (13)  ;b$;CHR$  (13)  ;c$      Write  data  in  file 

As  you  see,  we  must  separate  the  individual  data  fields  with  a  CR, 
which  is  created  with  CHR$  ( 13 ) .  But  why  is  it  missing  after  the  last  data 
field,  the  birthdate?  Quite  simple—the  PRINT #  command  sends  it  itself 
automatically.  With  logical  channel  numbers  over  127,  it  will  also  send  a 
linefeed  character.  There  are  also  cases  in  which  this  automatic  linefeed  is 
not  desired.  Then  you  must  simply  terminate  the  PRINT*  line  with  a 
semicolon  (; ).  The  computer  then  knows  not  to  output  a  CR. 


PRINT#x, "data 


ii 


10  DOPEN#l, "birthday", w 
20  INPUT  "first  name  ";a$ 
30  INPUT  "last  name  ";b$ 


Open  file 
Input  data 
into  variables 
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1.4.4  Closing  the  sequential  Hie 


Once  all  the  data  is  entered  into  the  file,  you  may  not  simply  remove  the 
diskette  from  the  drive.  The  drive  must  end  the  sector  chaining,  count  up  the 
blocks  used,  and  note  this  in  the  directory.  If  all  of  this  has  been  successful, 
then  the  directory  entry  of  the  file  will  be  designated  to  indicate  that  the  file 
has  been  closed  successfully. 

This  function  to  do  all  this  is  called  with  the  CLOSE  command.  Its  syntax  is: 

DCLOSEtx  ON  Uy 

The  x  is  again  the  logical  number  of  the  data  channel  to  the  file.  The 
device  can  be  selected  with  y.  This  can  be  omitted  if  the  device  address  is  8. 
But  even  the  channel  number  is  not  always  necessary.  The  command 
DC  LOSE  alone  closes  all  currently  open  files.  A  maximum  of  10  can  be 
managed  on  the  C-64/C-128  at  once.  You  will  hardly  be  able  to  use  all  of 
these  since  no  more  than  three  sequential  files  can  be  processed  at  once. 

In  BASIC  <  3.0  there  is  only  one  command  to  close  a  very  definite  file. 
But  there  is  a  trick  here  too.  If  one  closes  the  command  channel,  then  the 
disk  drive  will  automatically  close  all  other  channels  and  files  as  well.  So 
simply  open  the  command  channel  at  the  beginning  of  your  BASIC  <  3.0 
programs.  When  you  then  close  it  again,  it  has  the  same  effect  as  DCLOSE. 

If  you  forget  to  close  the  file,  then  the  data  will  still  not  be  lost.  You 
will  discover  how  to  rescue  it  in  the  next  section. 
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1.4.5  Reading  from  a  file 


Just  storing  data  by  itself  isn't  terribly  interesting.  You  also  want  to  be 
able  to  do  something  with  it.  This  is  why  there  are  more  commands  for 
processing  the  data  in  files  then  there  are  for  writing  data  in  files. 

To  process  the  data  you  must  open  the  file  again,  now  for  reading,  of 
course.  There  are  two  different  modes  for  doing  this,  one  for  normal 
reading  and  special  mode  with  which  you  can  recreate  improperly  closed 
files. 

In  order  to  read  normal  sequential  files,  the  operating  mode  must  be  r 
(for  read).  The  computer  automatically  assumes  this  if  no  w  is  given.  The 
birthday  file  is  once  again  available  after, 

DOPEN#l, "birthday" 

In  order  to  now  read  the  data  into  the  computer,  there  are  two  options, 
the  GET*  command  and  the  INPUT*  command.  The  simpler  of  the  two  is 
the  GET*  command,  so  we  will  discuss  it  first 

The  command,  like  its  counterpart  print*,  was  modified  somewhat 
for  file  management.  You  must  specify  the  channel  number  of  the  file  to  be 
read  from.  The  syntax  of  the  command  is: 

GET#x, a$ 

Just  as  the  normal  GET  command  reads  a  character  from  the  keyboard, 
here  a  character  is  read  from  the  corresponding  file.  The  disk  drive  starts  at 
the  beginning  of  the  file  and  reads  character  by  character  to  the  end  of  the 
file. 

You  cannot  read  any  arbitrary  character  in  the  file  in  this  manner.  This 
shows  you  one  of  the  disadvantages  of  sequential  files. 

Turning  back  to  our  example,  you  could  read  the  individual  data  fields 
back  in  again  in  the  following  manner: 

10  DOPEN#l, "birthday" 

20  GET#l,z$:a$=a$+z$:IF  z $<>CHR$ (13) THEN2 0 

30  GET#l,z$:b$=b$+z$:IF  z $<>CHR$ (13) THEN3 0 

40  GET#l,z$:c$=c$+z$:IF  z$OCHR$  (13)  THEN40 


49 


Abacus  Software 


1571  Internals 


50  PRINT  "last  name  :  ";a$ 
60  PRINT  "first  name   :  ";b$ 
7  0  PRINT  "birthday  :  ";c$ 

In  the  program  above,  characters  are  read  from  the  diskette  until  a 
separator  "CR"  occurs.  All  of  the  character  read  up  to  that  point  (including 
CR)  are  then  assigned  to  a  string  variable,  which  can  then  be  processed 
further  (a$,b$,c$).  The  individual  data  fields  can  be  separated  with  this 
method. 

How  do  you  find  out  when  the  last  data  field,  the  last  data  record  has 
been  read?  The  status  variable  ST,  discussed  in  Section  1.2.9,  is  used  for 
this.  Bit  6  of  this  status  variable  has  the  value  1  if  an  EOI  signal  was 
transmitted.  EOI  means  End  Of  Information.  The  bit  therefore  tells  us  when 
the  last  character  has  been  sent.  The  test  to  see  if  this  bit  has  the  value  1 
could  look  something  like  this: 

IF  ST  AND   64  THEN   . . . 

Make  sure  that  you  place  a  space  between  ST  and  the  AND  command  or 
the  computer  will  interpret  it  as  "s  TAN  d",  and  we  don't  need  the  tangent 
in  our  case.  The  IF  command  branches  when  the  last  character  has  been 
sent.  If  you  want  to  program  a  loop  that  will  be  exited  when  the  last 
character  has  been  read,  that  is,  branches  when  EOI  is  not  set,  the  line  must 
read  as  follows: 

IF  NOT  ST  AND  64  THEN   . . . 

You  must  note  one  thing  yet.  The  GET#  command  reads  everything, 
including  control  characters,  with  one  exception,  the  ASCII  value  0.  It  is 
not  transmitted.  If  a  character  is  equal  to  CHR$  ( 0 ) ,  nothing  will  be  sent.  In 
this  case  you  will  get  an  empty  string.  You  must  always  keep  this  behavior 
of  the  command  in  mind  when  programming.  The  following  step  is  always 
recommended: 

GET#1, a$ : IF  a$=" "THEN  a$=CHR$(0) 

or 

GET#l,a$ :a$=LEFT$ (a$+CHR$ (0)  ,1) 

Even  with  this  small  advantage,  the  GET#  command  is  a  model  pupil  in 
contrast  to  its  colleague,  the  INPUT*  command.  There  are  many  special 
cases  and  possibilities  for  error  when  using  INPUT*. 
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The  INPUT  command  has  been  adapted  for  data  channels  and  is  now 
worded: 

INPUT* l,a$ 

This  INPUT#  command  behaves  just  like  the  INPUT  command  that 
takes  input  from  the  screen.  Naturally,  the  inputs  cannot  be  arbitrarily  long. 
A  string  cannot  accept  more  than  255  characters.  But  as  you  have  already 
determined  with  normal  input,  the  termination  actually  comes  much  earlier. 
This  has  to  do  with  the  fact  that  the  computer  stores  all  input  in  a  buffer 
before  it  processes  it.  And  this  is  only  88  characters  (on  the  C-64)  or  160 
characters  (on  the  C-128)  long.  If  more  than  88  or  160  characters  are  read 
with  the  input#  command,  an  error  message  will  result.  This  is,  logically, 
worded  " String  too  long . "  We  must  be  sure  that  this  error  does  not 
occur  or  the  computer  will  terminate  the  program.  This  also  leads  to  the 
question  of  how  long  an  INPUT*  instruction  will  actually  continue  to  read 
characters  from  a  file. 

This  works  just  like  screen  input.  When  the  CR  code  is  sent,  which  is 
done  when  you  press  the  <RETURN>  key  in  normal  input,  the  INPUT 
command  ends  the  input  sequence.  The  problem  lies  in  the  fact  that 
individual  data  fields  may  not  be  longer  then  87  or  159  characters  and  a  CR 
must  be  at  the  end.  It  is  the  job  of  the  program  to  make  sure  of  this.  You  as 
the  programmer  must  ensure  that  the  data  fields  do  not  become  longer  than 
this. 

But  this  is  not  enough.  The  operating  system  places  other  stones  in 
your  path.  These  are  the  characters  ",  and  " ; ".  These  are  normally 

used  in  BASIC  to  separate  commands  and  parameters  from  each  other.  The 
INPUT*  command  does  the  same  thing  when  it  encounters  these  characters. 
If  a  colon,  comma,  or  semicolon  occurs  in  data  field,  the  INPUT* 
command  behaves  as  if  it  had  read  a  CR~it  terminates  the  input  and 
assumes  that  the  data  field  is  done.  And  as  an  encore  from  the  operating 
system  you  get  an  "Extra  ignored  error .  " 

You  must  pay  attention  to  more  than  just  these  three  characters.  If  you 
read  numbers  with  INPUT*,  such  as  with  INPUT*  1 ,  a  it  can  lead  to  more 
problems.  This  is  always  the  case  when  characters  other  than  digits  occur  in 
the  data  field  to  be  read.  The  computer  announces  this  immediately  with 
"File  Data  Error."  You  can  prevent  this  only  by  making  sure  that 
you  have  stored  a  data  field  of  the  same  variable  type  in  which  you  want  to 
read  it  in  again  later. 
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You  have  probably  asked  yourself  why  there  is  an  INPUT #  command 
at  all,  given  all  of  these  disadvantages.  The  answer  is  simple-it  is  faster 
than  the  GET#  command.  The  reason  for  this  is  that  the  disk  drive  must  be 
readdressed  before  each  message.  With  the  GET#  command  this  happens 
for  every  character,  while  the  procedure  is  required  only  once  per  string  for 
the  INPUT#  command.  In  spite  of  this  you  cannot  ignore  the  GET# 
command.  It  is  required  whenever  the  INPUT#  command  would  fail. 

The  second  mode  for  opening  a  file  is  the  modify  mode.  This  mode  is 
used  so  that  improperly  closed  files  can  still  be  read.  These  are  all  files 
which  are  designated  with  an  asterisk  in  the  directory.  In  order  to  rescue 
such  files,  one  opens  them  with  (for  example): 

OPEN  1, 8,2, "file, s,m" 

As  you  see,  this  is  again  the  BASIC  <  3.0  command.  This  is  because 
BASIC  7.0  does  not  recognize  the  modify  mode. 

In  order  to  rescue  data  from  an  improperly  close  file,  open  a  new  file, 
read  the  data  in  the  modify  mode  from  the  unclosed  file  and  write  it  to  the 
new  one  and  then  close  this  one  properly  (CLOSE). 

The  end  of  an  improperly  closed  file  can,  like  a  normal  file,  be 
recognized  with  the  status  variable  ST.  There  is  a  problem  with  this, 
however.  Since  the  file  was  not  closed,  the  end  marker  for  sector  chaining 
was  also  not  placed.  For  this  reason  you  will  almost  certainly  read  more 
data  than  were  actually  written.  These  data  come  from  other  sectors  which 
were  randomly  chained  into  the  sector  sequence.  The  only  thing  that  can  be 
done  about  this  is  to  process  the  data  manually  afterwards. 

At  the  end  you  must  delete  this  unclosed  file.  This  can  be  done  only 
with  the  COLLECT  command  (Section  1.3.2).  The  SCRATCH  command 
would  free  the  wrong  sectors  because  of  the  erroneous  sector  chaining. 
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1.4.6  Appending  data 


Usually  just  storing  data  once  in  a  file  isn't  enough.  New  data  keep 
arriving  that  must  be  added  to  the  sequential  file.  To  do  this  one  must  read 
the  entire  file  into  the  computer  and  then  store  it  as  a  new  file.  The  new  data 
are  then  placed  at  the  end  of  the  file. 

This  procedure  is  very  time-consuming.  For  this  reason  there  is  a 
special  disk  drive  function  to  append  data  to  a  file.  If  a  file  is  opened  with 
the  operating  mode  "a"  (append),  data  can  be  added  to  the  file.  There  is  a 
separate  command  for  this  in  BASIC  7.0: 

APPEND#x, "name", Dy,  Uz 

The  specifications  x,  y,  and  z  represent  the  logical  file  number,  drive, 
and  device  number,  which  you  are  familiar  with  from  the  other  commands. 
The  "name"  is  the  name  of  the  file  which  you  want  to  expand.  It  can  also  be 
given  with  a  wildcard.  The  disk  drive  then  simply  selects  the  first  suitable 
entry.  For  our  example  application,  the  command  would  be  as  follows: 

APPEND#1, "birthday" 

All  data  which  will  be  written  to  the  file,  as  explained  in  Section  1.4.3, 
will  be  appended  to  the  end  of  the  existing  file.  The  append  function  can 
create  a  problem  because  when  the  append  function  is  called  the  disk  drive 
will  assign  at  least  one  more  block  to  the  file.  This  happens  only  for  the 
block  specification  in  the  directory.  This  means  that  the  number  of  used 
blocks  in  the  directory  does  not  match  the  blocks  actually  allocated  to  the 
file.  You  can  determine  this  by  adding  up  all  of  the  block  specifications  in 
the  directory;  you  will  get  a  different  value  than  the  directory  indicates  when 
you  subtract  the  number  of  free  blocks  from  the  total  capacity,  664  blocks. 

So  the  APPEND #  mode  is  not  completely  error  free.  It  must  be  ended 
with  CLOSE,  just  like  the  DOPEN  command,  so  that  the  file  is  properly 
closed.  If  you  forget  this,  then  not  only  are  the  added  data  lost,  but  the 
entire  file  as  well.  This  also  occurs  if  there  is  not  enough  space  on  the  disk 
for  the  additional  data,  the  disk  drive  returns  a  "Disk  Full"  message. 

For  this  reason  you  should  probably  use  the  CONCAT  command  from 
Section  1.3.4.  This  command  appends  a  sequential  file  to  an  existing  file. 
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The  advantage  of  using  this  method  lies  in  the  fact  that  you  don't  have 
to  touch  the  old  file  at  all.  You  store  simply  store  the  new  data  in  a 
temporary  file.  The  method  functions  exactly  as  described  in  Sections  1.4.2 
to  1.4.4. 

Once  the  new  data  are  placed  in  the  temporary  file,  it  can  be  appended  to 
the  existing  file.  In  practice  this  could  look  like  this: 

10  DOPEN#l, "temp", w 

...  Program  section  to  write  data  in  file  ... 

50  DCLOSE#l 

60  CONCAT  "temp"  TO  "birthday" 
70  SCRATCH  "temp" 

This  method  is  significantly  safer  than  an  APPEND  procedure.  The  only 
disadvantage  is  that  there  must  be  enough  space  on  the  disk  so  that  the  old 
file  "birthday"  and  the  temporary  file  "temp",  as  well  as  the  new  larger 
file  "birthday"  can  be  stored  on  it.  The  reason  for  this  is  that  first  the 
new  file  "birthday"  is  written  and  then  the  old  file  "birthday"  is 
erased.  Finally,  "temp"  can  be  removed  because  the  data  from  "temp"  are 
now  in  "birthday". 
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1.4.7  Using  sequential  files 


As  you  have  already  learned  in  Section  1.4.1,  the  sequential  file  is  the 
simplest  form  of  data  storage.  The  data  is  stored  one  after  the  other,  that  is, 
sequentially.  The  data  is  read  back  in  the  same  way. 

With  the  CMD  command,  the  normal  screen  output  can  be  redirected  to  a 
data  channel.  And  why  shouldn't  that  be  a  channel  to  a  sequential  file?  In 
this  manner  you  can  output  program  listings  to  a  file.  These  could  then  be 
edited  with  your  word  processor,  among  other  things. 

The  sequential  file  is  always  useful  when  you  must  store  data 
temporarily  or  it  is  not  necessary  to  have  free  selection  in  data  access.  With 
sequential  storage,  the  entire  file  must  be  read  until  you  have  found  the  right 
entry.  This  can  take  a  long  time  for  large  files. 

An  alternative  would  be  to  first  read  the  entire  file  into  the  computer. 
Then  you  could  access  the  data  as  desired,  if  you  have  placed  them  in 
indexed  arrays.  In  addition,  access  to  variables  in  the  computer  runs  much 
faster  than  reading  from  the  diskette.  This  area  of  data  processing  would 
exceed  the  scope  of  this  book.  I  refer  you  to  the  BASIC  tutorial  books  listed 
in  the  bibliography  for  more  information. 

Storing  all  the  data  in  the  computer's  memory  has  one  big  disadvantage. 
As  large  as  the  memory  may  be,  it  is  not  inexhaustible.  The  maximum  size 
of  a  file  would  be  limited  to  the  memory  space  in  the  computer. 
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1.5  The  relative  file 


1.5.1  What  is  a  relative  file? 


As  you  have  seen  in  previous  sections,  the  sequential  file  is  a  practical 
way  to  store  files  but  is  far  from  optimal.  A  really  capable  data  form  must 
offer  the  following  characteristics: 

ability  to  select  every  data  record 
ability  to  delete  individual  records 
avoid  having  to  read  the  entire  file 
ability  to  read  and  write  to  the  file 

The  1570/1571  allows  you  to  use  the  relative  file . 

Let's  turn  back  to  our  example  from  Section  1.4.1.  There  we  compared 
a  sequential  file  to  a  papyrus  scroll.  If  we  extend  this  example  to  relative 
files,  then  we  could  compare  it  to  an  empty  book.  You  can  enter  information 
on  any  page  of  this  book.  The  book  can  be  opened  to  any  arbitrary  page.  In 
this  manner  you  can  access  any  desired  data  record.  This  is  just  how  a 
relative  file  behaves. 

With  a  relative  file  you  must  define  the  exact  length  of  each  data  field, 
and  therefore  each  data  record,  before  the  file  is  written.  To  access  the 
2031st  data  record,  for  instance,  is  not  a  problem.  The  disk  drive  can 
calculate  the  position  in  the  file  from  the  fixed  data  record  lengths  and  the 
number  of  the  data  record.  Actually,  like  the  book,  the  data  record  is  already 
predefined.  Each  page  can  store  a  very  specific  set  of  characters.  Normally 
we  don't  use  the  entire  page  of  the  book,  if  you  assign  each  data  record  its 
own  page. 

Now  you  see  the  dilemma  of  data  processing.  Either  we  store  data 
sequentially  and  make  optimum  use  of  the  disk  capacity,  since  no  space  is 
lost  between  data  records,  or  we  define  a  fixed  data  record  length  and  some 
of  the  space  on  the  diskette  is  lost.  But  the  advantage  gained  is  that  you  can 
select  any  data  record  since  its  possible  to  calculate  its  exact  position. 

Back  to  a  concrete  example,  the  birthday  file.  As  we  said,  each  data 
record  must  have  a  fixed  length.  To  do  this  you  predefine  the  exact  lengths 
of  the  individual  data  fields  in  the  record.  The  lengths  should  be  chosen 
such  that  the  data  will  fit  in  the  field.  Naturally  there  can  be  cases  in  which 
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the  name,  for  example,  is  too  long  and  doesn't  fit  in  the  data  field.  On  the 
average,  however  the  individual  data  records  will  never  be  completely  used 
up.  You  must  select  your  record  lengths  between  these  two  extremes.  We 
have  done  this  as  follows  for  our  birthday  file: 

First  name  15  characters 

Last  name  10  characters 

Birth  date  10  characters 

unused  5  characters 

total  40  characters 

You  may  have  encountered  the  specification  "max.  size"  in  your  instruction 
manual.  A  relative  file  may  be  up  to  167132  bytes  large-even  if  the  diskette 
is  double-sided.  The  is  a  limitation  of  the  disk  operating  system,  which 
cannot  manage  larger  relative  files. 

To  use  the  entire  capacity  of  the  relative  file,  we  can  store  a  total  of 
4178  data  records  of  40  characters  each. 


1.5.2  Opening  a  file 


We  want  to  establish  a  relative  file.  This  is  no  more  difficult  than  for  a 
sequential  file.  The  difference  is  that  you  must  define  the  data  record  length. 
Values  between  2  and  254  characters  are  allowed.  This  is  set  with  the 
operating  mode  "  1 "  (length).  This  lets  the  computer  know  that  it  is 
working  with  a  relative  file. 

It  is  no  longer  important  whether  a  file  is  opened  for  read  or  for  writing. 
This  distinction  does  not  apply  to  relative  files.  You  can  overwrite,  append, 
or  read  records  to  your  heart's  content.  The  DOPEN#  command  for  our 
birthday  file  is: 

DOPEN#l, "birthday", L40 

An  entry  is  again  placed  in  the  directory.  If  the  relative  file  already 
exists  on  the  diskette,  the  length  specification  "L4  0  "  can  be  omitted.  But  it 
can  also  be  specified.  It  must  match  the  data  length  that  was  defined  when 
the  file  was  first  opened. 
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In  addition,  when  you  open  the  relative  file  you  should  consider 
approximately  how  many  data  records  will  be  contained  in  it.  Then  select 
the  last  expected  data  record  and  write  CHR$  (255)  to  it.  Through  this 
procedure  the  disk  drive  then  allocates  all  previous  data  records.  This 
process  can  take  up  several  minutes. 

The  advantage  of  doing  this  lies  in  that  you  can  be  certain  that  the 
diskette  space  will  not  be  used  for  other  storage  causing  your  relative  file  to 
run  out  of  room. 


1.5.3  Storing  data 


First  we  need  a  command  with  which  we  select  what  data  record  the 
write  operation  will  refer.  This  command  is: 

RECORDtx, y, z 

In  order  to  be  able  to  access  a  certain  record,  the  data  records  have 
numbers  running  from  1  to  a  maximum  of  65535.  You  will  hardly  need  this 
enormous  span.  Any  relative  file  whose  data  records  are  more  than  2 
characters  long  will  never  reach  this  maximum-the  disk  capacity  will  be 
exhausted  first 

Now  on  to  the  parameters  of  the  RECORD*  command.  The  number  x  is 
the  logical  file  number,  exactly  the  same  number  as  for  PRINT*  or 
INPUT*  command.  Then  comes  the  record  number.  Finally,  the  current 
position  within  the  data  record  is  specified.  A  read  or  write  operation  would 
then  start  at  this  location.  You  can  use  this  function  to  set  the  position 
pointer  to  a  data  field  within  the  record. 

The  PRINT*  command  is  again  available  for  storing  the  data.  This  is 
used  just  like  is  was  with  sequential  files  (see  Section  1.4.3).  The  only 
thing  which  you  have  to  pay  attention  to  is  not  to  output  more  data  than  will 
fit  in  the  data  record.  If  you  try  to  write  beyond  the  end  of  the  record 
anyway,  the  data  is  ignored  and  the  disk  drive  will  return  a  "  5 1 
Overflow  in  Record"  message.  Check  the  error  variable  DS  to  make 
sure. 
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1.5.4  Closing  the  relative  file 


In  contrast  to  sequential  files,  the  DCLOSE  command  is  not  as  crucial 
with  relative  files.  At  least  your  data  isn't  immediately  lost  if  you  forget  the 
DCLOSE  command  once. 

The  sector  chaining  of  the  relative  file  is  set  up  when  the  file  is  opened 
or  extended.  This  cannot  be  disturbed  if  the  file  is  not  closed. 

The  blocks  used  by  the  file  are  also  always  placed  in  the  appropriate 
table  in  directory.  It  is  not  possible  for  other  files  to  accidentally  overwrite 
the  relative  file.  For  this  reason,  a  relative  file  is  never  marked  with  an 
asterisk  in  the  directory.  It  is  always  fully  functional. 

In  spite  of  this,  you  should  not  omit  DCLOSE.  It  has  another  function. 
When  the  file  is  closed  the  disk  drive  determines  the  number  of  blocks 
allocated  and  updates  the  directory  entry. 

Therefore  do  not  omit  DCLOSE.  We  merely  wanted  to  point  out  that  the 
relative  file  is  more  tolerant  of  errors. 

Beyond  this,  the  disk  drive  announces  not  only  errors,  but  also  makes 
available  messages  when  the  file  is  expanded,  the  record  does  not  exist,  the 
disk  is  full,  and  so  on. 


1.5.5  Changing  a  record 


Data  is  usually  short-lived.  For  this  reason  it  is  important  that  the  data  in 
a  file  can  be  changed.  This  is  rather  involved  for  a  sequential  file. 

The  relative  file  does  not  have  any  of  these  limitations  in  this  regard. 
You  may  use  read  and  write  operations  arbitrarily.  To  change  data  you  need 
only  set  the  record  and  position  of  the  change  with  the  RECORD*  command. 
With  print*  you  write  over  the  data  field  or  record. 

With  the  print*  command  you  must  under  certain  circumstances, 
specify  a  semicolon  after  the  data.  This  suppresses  the  output  of  CR,  which 
would  otherwise  be  written  in  the  data  record. 
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1.5.6  Appending  new  records 

A  relative  file  can  be  expanded  up  to  a  maximum  size  of  one  disk  side. 
You  need  only  access  the  required  data  record  with  RECORD*  and  write  it 

Especially  important  when  expanding  is  the  error  message  "50 
Record  not  present .  "  When  writing,  the  error  message  can  be 
ignored  (it  also  arises  when  first  writing  to  the  data  record).  It  signals  only 
that  the  data  record  accessed  did  not  exist  before  and  is  being  constructed. 

You  may  not  ignore  this  error  message  when  reading,  however.  The 
disk  drive  is  indicating  that  an  attempt  was  made  to  access  a  data  record 
which  is  not  present. 


1.5.7  Finding  a  record 


Searching  for  data  is  a  troublesome  problem.  You  could  easily  fill  an 
entire  book  with  this  topic.  One  reason  is  that  there  is  no  optimum  solution. 
So  the  experts  have  come  up  with  1001  ways  to  order,  search  through,  and 
manage  data.  There  are  many  more  or  less  practical  management  methods. 
No  universal  method  has  yet  been  found  For  this  reason  we  can  only  begin 
to  look  into  the  problem.  If  you  would  like  to  work  with  this  more 
intensively,  you  will  find  corresponding  references  in  the  bibliography. 

The  main  problem  with  relative  files  lies  in  the  fact  that  each  data  record 
can  be  accessed  only  by  the  record  number.  In  our  example,  the  birthday 
file,  this  method  is  not  terribly  useful.  You  will  look  either  for  all  persons 
which  have  a  birthday  on  a  certain  date  or  you  would  like  to  find  the  data  of 
a  specific  person. 

Naturally,  you  can  start  assigning  numbers  to  your  relatives.  This  may 
work  for  007  because  of  the  notoriety  of  the  number.  But  does  Aunt  Clara 
have  number  102  or  93?  Or,  when  you  think  of  Aunt  Clara  in  the  future,  do 
you  want  to  speak  only  of  number  1652.  You  need  then  only  make  sure 
than  when  planning  the  birthday  party  of  672  to  ask  7362  about  the 
well-being  of  373  and  her  daughter  6292... 

The  problem  is  clear.  Numbering  the  records  is  very  practical  for  the 
computer,  the  master  of  juggling  numbers.  But  humans  can't  do  it. 
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Now  to  the  solution  of  the  problem.  Our  first  thought  wasn't  so  dumb. 
Each  name  is  assigned  a  number  through  the  record  number.  We  need  a  list 
with  the  names  or  the  birthdates  in  which  the  corresponding  record  number 
is  assigned.  The  relative  file  is  basically  the  same,  only  it  functions  in 
reverse. 

In  order  for  the  searching  to  be  somewhat  efficient,  the  names  should 
be  ordered.  So  we  write  a  program  which  reads  the  names  and  the 
corresponding  record  numbers  from  the  relative  file  and  sorts  them 
alphabetically.  This  data  is  then  read  into  the  computer  each  time  the  file  is 
to  be  used.  Now  it  is  possible  to  find  the  desired  name  quickly.  The  record 
number  is  included  so  that  you  can  read  the  remaining  information  from  the 
diskette  file. 

Let's  look  at  this  somewhat  differently.  Basically  it  depends  on  sorting 
the  records.  Only  then  does  the  search  run  fast  enough.  There  are  also  more 
refined  search  methods.  In  the  relative  file  the  data  is  stored  unordered.  The 
idea  of  sorted  names  and  associated  record  numbers  is  really  not  bad.  But 
then  we  have  an  additional  file,  we  need  more  storage  space,  storage  in  the 
computer,  and  so  on.  Although  the  access  time  is  quite  fast,  a  great  deal  of 
time  is  required  for  the  additional  work  (sorting,  reading  the  sorted  list, 
etc.). 

If  we  look  at  it  closely,  we  see  that  it  involves  only  knowing  in  what 
order  the  data  records  must  be  called  from  the  diskette  so  that  they  are 
ordered  according  to  a  certain  criterion.  This  criterion  can  be  the  name,  the 
date,  or  any  data  field  in  the  record.  This  is  called  the  key.  Seen  this  way,  it 
is  not  necessary  to  prepare  an  ordered  list  with  names  and  record  numbers. 
It  would  suffice  to  sort  the  record  numbers.  The  first  number  then 
corresponds  to  the  alphabetically  sorted  first  name,  the  second  corresponds 
to  the  alphabetically  sorted  second  name,  and  so  on.  This  method  always 
involves  creating  another  file-usually  a  sequential  file.  The  memory 
requirements,  on  disk  as  well  as  in  the  computer,  would  be  smaller  since 
you  save  the  space  required  for  the  names. 

This  has  one  disadvantage,  however.  Here  it  is  necessary  to  read  the 
data  in  the  key  file  before  accessing  the  information  in  the  relative  file. 

Since  the  key  file  is  now  sorted,  you  can  select  a  position  in  the 
alphabet  (such  as  the  fifth  name)  get  the  record  number  of  the  name.  But 
basically  we  only  want  to  know  which  record  is  the  first,  which  is  the 
second,  and  so  on.  The  key  file  need  specify  only  which  record  is  the  next 
in  the  alphabet. 
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In  this  case  we  speak  of  something  called  a  pointer  or  index.  We  simply 
place  a  number  in  each  data  record.  This  is  the  record  number  of  the  next 
record  in  alphabetical  sequence.  The  individual  records  are  then  chained  in 
this  manner.  And  what  do  you  place  at  the  end?  You  can  either  specify  the 
number  of  the  first  record  again,  or  assign  it  a  zero.  There  is  no  record  0,  so 
your  program  can  always  recognize  the  end. 

Naturally,  all  of  this  functions  in  reverse.  You  can  set  up  another  chain 
in  which  the  names  are  sorted  in  reverse  order.  This  gives  you  the  capability 
to  call  the  previous  record  as  well  as  the  next  record—it  doesn't  get  any 
easier. 

There  is  one  thing  we  can't  do  without:  the  record  number  at  which  this 
chaining  begins  must  be  saved.  You  can,  of  course,  set  up  a  sequential  file 
for  this.  But  it  would  be  more  practical  to  have  a  file  begin  at  the  second  or 
third  record.  Then  you  can  use  the  first  or  second  record  for  such 
information.  This  method  of  organization  is  the  business  of  your  program. 

If  the  relative  file  is  to  be  chained,  you  must  plan  enough  room  for  the 
chaining  pointers  in  each  record.  Naturally,  one  can  also  chain  the  file  later. 
To  do  this,  place  the  pointers  in  parallel  relative  file  organized  in  the  same 
manner.  This  requires  little  additional  storage  space.  But  on  the  1570/1571 
you  can  open  only  one  relative  file  at  a  time.  You  must  always  close  the 
main  file,  then  open  the  chain  file,  read  the  key  data,  then  close  the  key  file 
again,  and  open  the  main  file-this  is  not  only  a  lot  of  programming  work, 
but  is  also  very  time-consuming. 

We  have  now  created  some  nice  chains.  But  what  happens  if  we  want 
to  insert  a  new  entry  into  the  file?  This  is  no  problem.  The  new  record  is 
simply  placed  at  the  end  of  the  file,  since  the  physical  location  in  the  file  is 
irrelevant.  Now  the  record  must  be  inserted  into  the  chain  correctly.  To  do 
this  you  search  for  the  location  after  which  the  record  must  be  inserted  in  the 
chain.  Then  you  read  the  number  of  the  next  record.  This  is  entered  into  the 
new  record.  The  record  after  which  the  insertion  will  be  made  receives  the 
pointer  value  of  the  new  record. 

The  effort  increases  considerably  with  the  number  of  chains,  that  is,  the 
number  of  keys.  Therefore  you  must  be  careful  how  many  and  what  keys 
the  files  is  to  have. 
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1.5.8  Using  relative  files 


After  all  of  these  theoretical  considerations,  we  want  to  start  putting 
these  things  into  practice.  The  topic  was  a  birthday  file.  We  established  the 
length  of  the  key  in  Section  1 .5. 1  already. 

But  this  brings  up  the  next  problem.  We  also  need  space  for  the 
chaining  pointer.  How  large  is  this?  A  number  variable  is  always  stored  as  a 
string.  That  means  that  it  can  be  between  one  and  five  characters  long  (for  a 
maximum  of  65535  records).  So  there  must  be  space  for  4-5  characters, 
although  fewer  will  often  be  used. 

Here  we  use  a  little  binary  math.  Each  number  between  65535  can  be 
converted  into  a  2-byte  binary  number.  So  we  need  exactly  two  bytes  per 
data  record  for  our  chaining  pointer.  The  conversion  is  not  that  difficult: 

a  =  chaining  pointer  (0.. 65535) 

PRINT#1,  CHR$(a  and  255)   CHR$ (a/256) 

Converting  the  value  back  works  like  this: 
GET#l,a$   :  GET#l,b$ 

a  =  ASC(a$+CHR$ (0) )   +  ASC (b$+CHR (0) )   *  256 

Let's  assume  that  the  name  and  the  date  should  be  used  as  keys.  You 
have  probably  asked  yourself  how  you  now  sort  the  file  and  effect  the 
chaining.  If  you  want  to  install  the  chaining  on  an  existing  file,  this  is  not 
terribly  simple.  For  this  reason  you  should  establish  the  keys  at  the  outset. 
Then  you  proceed  exactly  as  for  appending,  which  we  described  in  the 
previous  section. 

Let  us  now  turn  to  the  individual  data  records.  The  record  length  must 
be  defined~we  won't  be  able  to  alter  that.  But  this  does  not  mean  that  you 
must  set  the  length  of  the  data  fields  in  this  manner.  This  is  naturally 
simpler. 

This  consideration  has  much  to  do  with  the  read  commands  used.  Do 
you  want  to  use  INPUT*  or  GET#?  With  INPUT*  the  data  fields  must  be 
terminated  with  CR,  which  takes  up  additional  room.  This  has  a  pay  off, 
however  because  you  can  use  variable  data  field  lengths  very  easily  with 

INPUT*. 


63 


Abacus  Software 


1571  Internals 


Every  data  field  is  then  terminated  with  a  CR  When  saving  the  data  you 
must  be  sure  that  the  field  lengths  do  not  exceed  88  or  160  characters.  If  the 
field  is  empty,  then  you  simply  save  a  CR.  The  advantage  is  that  the 
problem  of  data  not  fitting  into  a  field  rarely  occurs.  There  is  only  the 
danger  that  the  length  of  all  of  the  data  fields,  including  the  CR  characters, 
which  you  must  not  forget,  may  become  longer  that  the  record  length.  You 
should  calculate  the  total  length  in  your  program  and  request  the  user  to 
shorten  the  input  if  necessary.  The  disadvantage  of  variable  fields  is  that 
you  must  read  all  of  the  fields  from  the  start  of  the  record  in  order  to  reach  a 
given  field.  With  set  field  lengths  you  can  set  the  pointer  to  the  current 
character  position  with  the  RECORD  #  command. 

Examples  of  this  topic  are  found  in  your  disk  drive  instruction  manual. 
The  purpose  of  this  chapter  was  not  to  offer  you  the  ultimate  solution—there 
simply  isn't  one.  Instead,  we  wanted  to  give  you  some  tips  and  suggestions 
for  your  own  prograrnming. 
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2.1  The  direct  access  commands 


2.1.1  Direct  access  to  individual  sectors 


The  1570/1571  has  a  set  of  powerful  commands  that  let  you  access  the 
data  on  a  diskette  by  sector.  If  you  use  these  types  of  commands,  you  will 
have  to  perform  any  data  management  functions  yourself.  This  is  in 
contrast  to  the  sequential  and  relative  files  in  which  the  DOS  manages  the 
data  for  you. 

By  using  the  direct  access  commands  you  can  build  your  own  data 
management  system.  Of  course,  you  will  have  to  do  much  more  work  than 
is  you  are  using  sequential  or  relative  files. 

Section  2.1.2  discusses  the  commands.  Sections  2.2  and  2.3  talks 
about  the  organization  of  data  on  the  diskette.  By  discussing  these  topics, 
you  may  be  able  to  borrow  ideas  for  use  in  your  own  data  management 
system. 

We  advise  you  to  use  a  new  blank  diskette  before  you  experiment  with 
the  direct  access  commands.  Then  you'll  avoid  the  possibility  of  destroying 
important  data. 

From  Section  1.1.2,  you  know  that  a  diskette  is  organized  into  tracks 
and  sectors.  Since  the  circumference  of  the  outer  tracks  is  greater  than  that 
of  the  inner  tracks,  more  sectors  will  fit  onto  the  outer  tracks.  The  tracks  are 
numbered  beginning  with  the  outside  tracks.  Therefore  track  1  is  the 
outermost  track  and  contains  the  most  sectors.  The  innermost  track  is  35. 
Theoretically,  the  1570/1571  can  access  up  to  40  tracks.  These  last  five 
tracks  are  not  used  in  the  Commodore  formats,  however. 

A  disk  formatted  in  this  manner  has  a  capacity  of  170K.  This  is  the  case 
with  the  1570,  for  example.  The  1571  has  two  read/write  heads  and  can 
therefore  access  bom  sides  of  the  diskette.  As  a  result,  the  capacity  is  also 
twice  as  large.  But  on  a  double-sided  disk  there  would  suddenly  be  two 
tracks  with  the  number  1,  one  on  each  side.  How  does  the  disk  drive  know 
what  side  a  given  sector  is  on?  To  solve  this  problem  the  first  track  on  the 
second  side  of  the  diskette  is  numbered  36  and  increases  to  70. 
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The  following  sector  numbers  result: 


Track 

Sector 

Number 

1  -17 

0-20 

18-24 

0-18 

25  -  30 

0-17 

31  -35 

0-16 

36-52 

0-20 

53-59 

0-18 

60-65 

0-17 

66-70 

0-16 

If  you  can  instruct  the  disk  drive  to  read  a  sector  from  the  disk,  the 
question  arises,  what  to  do  with  it  once  it  is  read?  Since  the  disk  rotates  at 
300  RPM,  the  individual  characters  will  be  read  at  a  speed  of  60,000 
bytes/second.  A  BASIC  program  cannot  process  such  rates  of  data  transfer. 
The  sector  must  be  stored  temporarily  so  mat  you  can  process  it  with  normal 
commands.  It  is  no  different  for  writing  a  sector. 


The  disk  drive  has  4  buffers,  each  exactly  256  bytes  long,  the  length  of 
a  sector.  This  memory  is  used  when  you  load  programs,  work  with  files, 
and  so  on.  The  following  table  indicates  the  number  of  buffers  which  each 
type  of  file  requires: 


relative  file  3  buffers 

load/save  program  1-2  buffers 

sequential  file  1-2  buffers 

directory  1  buffer 

direct  access  1  buffer 


Now  you  can  see  why  two  relative  files  cannot  be  open  at  the  same 
time—there  are  not  enough  buffers.  In  the  age  of  cheap  memory  it  is  quite 
rare  that  a  disk  drive  would  have  only  1.25K  of  buffer  storage.  But  this  is 
the  case  with  the  1570/1571. 


To  be  able  to  access  arbitrary  sectors,  we  must  reserve  a  buffer  for 
ourselves.  This  is  also  called  the  direct  access  method.  It  involves  first 
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setting  up  a  data  channel  for  the  direct  access.  This  is  done  with  the 
following  command: 

OPEN  x, y, z, "#a" 

Theoretically  you  can  also  use  the  BASIC  7.0  command  DOPEN.  But 
since  you  must  specify  the  secondary  address  z  later,  it  is  more  practical  to 
use  the  BASIC  3.0  command.  The  secondary  address  is  automatically 
selected  by  BASIC  7.0.  The  parameters  x  and  y  give  the  channel  number 
and  the  device  address. 

A  "#"  is  specified  as  the  filename.  This  tells  the  disk  drive  that  a  direct 
access  channel  should  be  set  up.  The  1570/1571  then  assigns  a  buffer  to  the 
channel.  Its  number  (0..3)  can  be  specified  in  "a".  Normally  you  should 
omit  this  specification.  The  disk  drive  then  automatically  selects  a  free 
buffer.  Otherwise  you  might  select  a  buffer  which  is  already  being  used  for 
other  purposes. 

If  all  buffers  or  the  buffer  desired  is  allocated,  the  drive  returns  "70 
No  Channel".  Always  check  the  error  variable  DS  after  opening  the 
direct  access  channel. 


2.1.2  Block-read  and  block-write 

As  we  indicated,  there  are  special  commands  for  reading  a  certain  sector 
into  the  disk  buffer  or  for  writing  the  buffer  to  the  diskette.  The  commands 
are  sent  over  the  command  channel,  channel  15.  Therefore  for  all  direct 
accesses  you  must  first  open  the  command  channel  (see  also  Section  1.3.1). 
The  sector  commands  all  have  the  same  format: 

"aaa:c  d  t  s" 
The  parameters  have  the  following  meanings: 

aaa  Command  word 

c  Channel  number  (secondary  address) 

d  Drive  number  (0/1) 

t  Track  number  (0..35/70) 

s  Sector  number 


69 


Abacus  Software 


1571  Internals 


The  channel  number  c  is  the  parameter  z  from  opening  the  direct  access 
channel  from  the  previous  section.  Now  it  is  certainly  clear  to  you  why  we 
wanted  to  know  this  parameter.  The  drive  number  1  has  no  function  on  the 
1570/1571  because  they  are  single  drives.  In  spite  of  this,  you  may  not  omit 
it.  It  is  always  0.  Next  follow  the  data  of  the  desired  sector-the  track  and 
sector  numbers.  The  individual  parameters  are  separated  by  spaces  or 
commas  in  the  command  string.  The  command  word  can  be  separated  from 
the  parameters  by  a  space  or  a  colon. 

Now  on  to  the  command  word.  The  command  word  selects  the  exact 
disk  function  (reading/writing).  Curiously,  there  are  several  commands  that 
perform  the  the  same  thing: 


read 

write 

b-r 

b-w 

u1 

u2 

ua 

ub 

The  commands  ul/ua  oru2/ub  are  identical.  They  cause  the 
specified  sector  to  be  read  into  the  buffer  or  to  be  written  from  the  buffer  to 
the  diskette.  All  bytes  of  the  sector  can  be  accessed  in  this  manner.  The 
commands  "b-r"  and  "b-w"  do  the  same  things,  except  it  is  no  longer 
possible  to  read  all  of  the  characters  in  the  sector.  This  is  related  to  an  error 
in  the  disk  operating  system.  The  instruction  manual  for  the  1570/1571 
describes  this  special  feature  as  a  great  benefit.  But  the  only  time  it  can  be 
sensibly  employed  is  when  you  are  working  with  the  last  sector  of  a 
program  or  a  sequential  file.  In  practice  this  means  that  you  can  easily  forget 
about  "b-r"  and  "b-w".  Nothing  more  will  be  said  about  these 
commands  here. 

Now,  how  do  you  transfer  specific  bytes  from  the  buffer  to  the 
computer?  You  do  this  by  using  the  GET#orlNPUT#  command.  Usually 
the  GET*  command  is  used.  INPUT*  is  also  possible,  of  course,  a  CR 
must  follows  a  maximum  of  87  characters  (in  64  mode)  or  154  characters 
(in  128  mode). 

The  buffer  pointer  determines  the  location  in  the  buffer  at  which  the 
bytes  for  a  read/write  command  are  fetched  or  written.  This  is  set  to  the  start 
of  the  buffer  after  a  U1/U2  operation.  If  you  want  to  access  a  random 
section  of  the  buffer  (sector),  you  can  use  the  block-pointer  command. 
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The  syntax  for  this  is: 


b-p  c  b 


The  specification  c  is  the  channel  number  (secondary  address)  which 
you  have  specified  when  opening  the  direct  access  channel.  With  b  the 
position  of  the  buffer  pointer  can  be  set.  The  location  b  is  then  the  position 
to  which  reference  will  be  made  upon  the  next  write  or  read  command. 
Since  a  sector  and  therefore  a  buffer  is  256  bytes  large,  b  may  have  values 
between  0  and  255. 

In  programs  you  normally  use  variables  for  the  parameters  like  track 
and  sector.  This  is  no  problem.  If  you  output  a  variable  with  the  PRINT* 
command,  the  space  necessary  to  separate  the  parameters  is  output 
automatically.  This  is  actually  the  sign  of  the  variable  value,  which  is 
printed  as  a  space  for  positive  values. 

Now  an  example  of  how  you  can  use  the  Ul  /U2  commands: 


CLOSE  1  suffices  because  all  other  channels  are  closed  when  the  command 
channel  is  closed. 


OPEN  1,8,15 

OPEN  2,8,2,"*" 

IF  dsOO  THEN  PRINT  DS$ 

INPUT  "track  ";t 

INPUT  "sector  ";s 

PRINT#1, "ul:2  0";t;s 

IF  ds<>0  THEN  PRINT  DS$ 


Open  command  channel 

Open  access  channel 

Buffer  free? 

Input  track 

Select  sector 

Read  sector  into  buffer 

Sector  read  properly? 


Now  you  may  perform  data  manipulations: 


PRINTtl, "b-p"; 2; 10 
PRINT#2,"new  data" 
PRINTtl, "u2 : 2  0";t;s 
IF  ds<>0  THEN  PRINT  DS$ 
CLOSE  1 


Set  buffer  pointer 
Write  in  buffer 
Write  sector  back 
Sector  written? 
Close  channel  1  and  2 
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2.1.3  Block-allocate  and  block-free 


The  disk  drive  keeps  record  of  which  sectors  on  the  disk  are  allocated 
and  which  are  still  free.  If  a  sector  is  designated  as  allocated,  it  cannot  be 
overwritten  by  normal  file  and  program  data.  The  sector  commands,  on  the 
other  hand,  do  not  necessarily  follow  these  rules. 

For  this  reason  there  are  special  commands  to  allocate  or  release  a 
sector.  These  are: 

"b-f  d  t  s"  to  release 
"b-a  d  t  s"  to  allocate 

The  specification  d  is  the  drive  number  (always  0);  t  and  s  are  the  track  and 
sector  numbers  of  the  desired  block-simple  enough  in  principle  if  errors 
hadn't  crept  in  the  disk  operating  system  again.  If  you  specify  a  sector 
number  over  15  for  the  "b-a"  command,  not  only  the  sector  but  the  entire 
track  will  be  allocated.  If  you  allocate  a  sector  which  is  already  allocated, 
then  the  command  should  search  for  the  next  free  sector.  But  if  it  doesn't 
find  one  on  the  track,  then  it  tries  the  next  higher  track.  But  this  will  be 
allocated  completely.  The  "b-f"  command  too  works  only  with  sector 
numbers  up  to  15.  Li  short:  Either  limit  your  applications  to  the  sectors  0  to 
15,  or  better  yet  skip  it  completely.  If  you  use  a  separate  disk  for  the  data 
which  you  manage  in  direct  access,  the  block  management  doesn't  play  a 
role. 

If  "b-a"  and  "b-r  "  are  to  work  at  all,  it  is  necessary  to  first  initialize 
the  disk  with  "  i  "  (initialize  disk). 


72 


Abacus  Software 


1571  Internals 


2.2  The  organization  of  the  diskette 


2.2.1  The  directory 


You  may  have  wondered  how  the  directory  works.  It  is  kept 
somewhere  on  the  diskette.  So  that  working  with  the  directory  entries  is  fast 
enough,  these  are  not  scattered  wildly  but  have  their  own  track.  On 
Commodore  diskettes  this  is  track  18.  Other  data  cannot  be  stored  on  this 
track.  You  should  not  attempt  to  use  direct  access  commands  on  track  18. 
Now  it  is  understandable  why  only  664/1328  sectors  are  available  for  data 
storage  out  of  a  total  of  683/1366. 

The  directory  (the  directory  entries)  occupy  the  sectors  1-18  of  track  18 
on  the  first  side  of  the  diskette.  The  sectors  are  not  used  in  numerical  order, 
but  at  an  interval  of  3  sectors.  This  means  data  is  stored  first  in  sector  1, 
then  in  sector  4,  then  in  sector  7,  and  so  on.  When  the  end  of  the  track  is 
reached,  the  other  sectors  (2,5,8,  etc.)  are  used  in  the  same  manner. 

Each  sector  can  store  a  maximum  of  eight  entries.  Therefore  you  can 
store  up  to  144  programs  or  files  on  a  diskette. 

In  this  and  the  following  sections  we  will  become  acquainted  with  the 
organization  of  a  directory  sector.  The  first  two  bytes  are  the  chaining 
pointer.  This  indicates  the  track  and  sector  number  of  the  next  directory 
sector.  If  no  sector  follows,  then  the  first  byte,  which  represents  the  track 
number,  has  the  value  0.  The  second  indicates  how  many  bytes  are 
contained  in  the  last  sector. 

Next  comes  the  first  entry  in  the  sector,  then  two  unused  bytes,  then  the 
second  entry,  and  so  on. 
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Byte  Meaning 


0 

File  type  Bits  0-3:  0  del  entry  deleted 

2  PRG  program 

3  USR  user  file 

4  rel  relative  file 

Bit  6:     1  =  no  write  access  allowed 

on  i .      i=  entry  cioseu  properly 

1/2 

Track  and  sector  number  of  the  first  data  block  of  the  entry. 

j-lo 

Filename  of  the  entry  (maximum  of  16  characters).  The  remainder 

are  filled  with  "shifted  spaces"  (ASCII  value  160). 

19/20 

Track  and  sector  numbers  of  the  first  side-sector  block. 

Used  only  for  relative  files. 

21 

Length  of  a  record. 

u  seu  oniy  ior  relative  nies. 

22-25 

Unused  bytes 

26/27 

Temporary  storage  for  track  and  sector  number  of  the  first  data 

block  of  the  new  file  when  the  current  file  is  overwritten  with  the 

"@"  function. 

28/29 

Low  and  high  byte  of  the  number  of  blocks  used  by  the  file.  The 

number  is  stored  in  binary  form. 
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One  of  the  most  important  parts  of  the  file  entry  is  the  data  type 
indicator.  The  abbreviations  should  be  familiar  to  you  from  the  directory. 
But  what  is  "del"?  This  indicates  that  the  entry  has  been  deleted.  Such 
entries  are  not  normally  listed  in  the  directory.  The  DOS  skips  all  entries 
whose  data  type  is  0  when  displaying  the  directory.  If  you  now  set  bit  7  to 
1,  an  entry  with  the  file  type  del  would  be  listed  in  the  directory,  since  the 
file  type  is  no  longer  0. 

Bit  7  indicates  whether  the  file  was  closed  properly  or  not  If  a  new  file 
is  placed  on  the  diskette  or  a  new  program  is  stored,  the  directory  entry  is 
first  created-also  to  check  to  see  if  an  entry  with  the  same  name  is  on  the 
diskette.  The  file  type  is  also  stored,  but  bit  7  is  not  yet  set.  Once  the  data 
are  saved,  the  file  is  closed.  The  number  of  sectors  used  is  stored  in  bytes 
28/29  and  bit  7  of  the  file  type  is  set.  This  makes  the  entry  valid.  If  bit  7  is 
not  set,  an  asterisk  is  printed  in  front  of  the  file  type  in  the  directory.  Just 
setting  bit  7  does  not  correct  the  error.  You  should  also  execute  a  collect 
command  to  put  the  disk  directory  back  in  order.  This  also  guarantees  that 
the  file  is  fully  usable  again. 

Bit  6  has  a  special  function.  If  it  is  set,  you  cannot  make  any  write 
operations  to  the  entry.  This  means  that  the  SCRATCH  and  RENAME 
command  will  have  no  effect.  The  file  (or  program)  can  only  be  read. 
Unfortunately  there  is  no  BASIC  command  to  set  or  clear  this  bit.  It  can 
only  be  done  manually  using  a  disk  monitor. 


2.2.2  The  Block  availability  map  -  BAM 


In  the  previous  sections,  several  references  were  made  to  a  table  in 
which  entries  were  made  to  determine  which  blocks  on  the  diskette  were 
free  and  which  were  allocated.  On  Commodore  diskettes  this  is  called  the 
BAM,  an  abbreviation  for  Block  Availability  Map. 

The  BAM  is  stored  in  sector  0  of  the  directory  track  (18).  In  addition, 
this  sector  contains  the  name  you  gave  the  diskette  when  you  formatted  it. 

Before  we  concern  ourselves  with  the  structure  of  the  BAM,  let's  take  a 
look  at  how  the  sector  allocation  of  a  track  is  stored. 
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Block 

Sectors  0-7 

Sectors  8-15 

Sectors  16-23 

$12 

%1 1 1 1 1 1 1 1 

%1 1 1 1 1 1 1 1 

%1 1000000 

1  =  Sector  free  0  =  Sector  full 


Four  bytes  are  present  in  the  BAM  for  each  track.  The  first  byte  is  a 
binary  value  which  specifies  the  number  of  free  blocks.  The  three  bytes 
following  this  contain  a  bit  pattern  in  which  one  sector  correspond  to  each 
bit  (as  long  as  the  sector  number  exist).  If  the  bit  of  a  sector  has  the  value  1, 
this  means  that  the  sector  is  still  free,  available  for  use.  If  the  bit  of  a  sector 
has  the  value  0,  then  the  sector  is  no  longer  available  for  use. 

The  block  specification  in  the  first  byte  is  simply  a  work  saving  device 
for  the  1570/1571  operating  system.  This  way  the  set  bits  need  not  be 
counted  each  time,  since  this  requires  processing  time. 

You  can  manipulate  the  BAM  by  using  a  disk  monitor  such  that  the 
number  of  free  blocks  on  the  track  does  not  represent  the  real  state  of  the 
allocated  sectors.  You  can  for  example,  enter  that  a  block  has  255  free 
blocks,  which  is  impossible,  of  course.  Since  these  block  specifications  are 
also  used  for  calculating  the  total  number  of  free  blocks  which  you  find 
listed  at  the  end  of  the  directory,  astronomical  numbers  of  over  17,000  free 
blocks  are  possible-which  in  reality,  you  don't  really  have  at  all. 

The  disk  operating  system  doesn't  play  along  with  such  games  for 
long.  Every  time  changes  are  made  in  the  BAM,  checks  are  made  to  see  if 
the  block  specifications  of  the  track  agree  with  their  bit  maps.  If  a  deviation 
is  found,  the  1570/1571  responds  with  "71  Dir  Error .  " 

The  entire  BAM  is  found  in  sector  0  of  the  directory  track.  This  sector 
has  the  following  construction: 
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Byte  Meaning 


0/1         Track  and  sector  numbers  of  the  first  directory  sector,  normally 
track  18,  sector  1. 


2  Format  designation,  always  "A"  for  4040/1541/1570/1571 

(ASCII  value  65).  The  disk  is  write  protected  if  the  format 
designation  is  wrong. 


3  Bit  7:  0=  single-sided  1541/1570  diskette 

1=  double-sided  1571  diskette 


4-143      BAM  for  disk  side  1.  Each  track  is  represented  by  four  bytes. 
The  map  begins  with  track  1. 


144-159  Disk  name,  given  at  formatting.  Up  to  16  characters.  The 
remainder  is  filled  with  "shift  +  space"  (ASCII  value  160). 


160/161   Two  "shift  +  space"  (ASCII  160) 


162/163  ID  characters  of  the  disk 


164  This  is  supposed  to  be  the  version  number  of  the  operating 
system.  But  mis  character  is  always  "2",  although  the  1570/71 
uses  DOS  3.0. 


1 65        Format  designater  from  byte  3 


167-170  Three  "shift  +  space"  (ASCII  value  160) 


171-220  49  zeros 


221-255  Number  of  available  sectors  per  track  on  the  reverse  side  of  the 
disk.  These  are  the  block  specifications  from  the  BAM  on  the 
other  side  of  the  disk.  The  value  from  track  36  is  in  byte  221. 
The  last  specification,  in  byte  255,  concerns  track  70. 


A  marker  is  stored  in  byte  2  which  specifies  the  format  type.  If  this 
character  is  not  "A",  then  the  disk  drive  assumes  that  another  format  of 
directory  and  BAM  management  is  present.  To  avoid  disturbing  this,  no 
write  operations  are  allowed.  Such  an  attempt  would  be  answered  with  the 
power-up  message,  indicating  that  the  operating  system  can  do  nothing  with 
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this  format  Only  the  direct  access  commands  still  function.  The  sector  write 
command  (u2)  doesn't  bother  with  BAM  or  directory  entries. 

The  disk  name  is  placed  at  byte  145.  All  characters  up  to  byte  170  are 
present  only  for  the  directory  output  and  give  the  title  line.  The  contents  are 
completely  uninteresting.  This  puts  all  of  those  ID  change  programs  which 
you  see  in  magazines  in  a  completely  different  light.  If  you  change  the  ID 
here,  you  only  get  a  different  display  in  the  title  line.  This  does  not  change 
the  actual  ID  in  the  header  of  each  sector  at  all. 


2.2.3  Single  or  double-sided  diskettes 


You  may  have  asked  yourself  where  the  BAM  of  the  second  side  is 
"hidden"  on  a  double-sided  disk.  Sector  0  contains  only  the  data  for  the  first 
side. 

On  double-sided  disks,  the  directory  track  continues  on  the  second  side 
of  the  disk.  The  track  on  the  reverse  side  has  the  number  53  instead  of  18 
since  the  reverse  side  starts  at  36. 

The  BAM  of  the  second  side  is  found  in  sector  0  of  track  53  from  byte 
0  to  byte  104.  This  involves  only  the  bit  pattern  of  each  track.  The  byte  in 
which  the  number  of  free  blocks  on  the  track  is  still  stored  in  sector  0  on 
track  18  (see  table).  Otherwise,  the  map  does  not  differ  from  the  BAM  of 
the  first  side. 

The  remaining  sectors  of  track  53  (numbers  1  to  18)  are  unused.  They 
can  be  used  for  neither  the  directory  nor  for  files.  With  the  direct  access 
method  you  can  place  data  in  these  sectors—perhaps  your  own  disk 
management  map  or  copy  protection. 

If  a  double-sided  1571  diskette  is  used  in  a  1541  or  a  1570,  only  the 
first  side  can  be  read.  This  is  causes  problems  in  that  the  drive  terminates 
the  access  (loading  program,  reading  data)  with  the  error  message  "67 
Illegal  Track  or  Sector"  if  the  data  is  partially  or  completely  on 
the  other  side  of  the  diskette.  If  you  use  the  1571  in  the  C-64  mode  or  with 
a  C-64,  it  behaves  just  like  a  1541.  The  same  problem  would  then  arise.  For 
this  reason  there  are  commands  which  switch  to  1571  operation  or  to  the 
second  side  (see  Section  3.1.4). 
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2.2.4  Manipulating  the  directory  and  BAM 


You  can,  of  course,  change  the  format  of  either  the  directory  of  BAM. 
These  manipulations  can  be  divide  into  two  groups.  One  group,  includes 
such  things  as  format  tricks,  serving  to  extend  the  capabilities  of  the  disk 
drive  or  perform  other  small  tasks.  The  other  reduces  the  directory  to 
chaos.  This  is  used  to  make  it  difficult  to  load  certain  programs  or  so  that 
the  contents  of  the  diskette  can  not  be  listed,  and  so  on. 

Naturally,  none  of  these  methods  will  shock  the  experienced  disk 
programmers.  In  direct  access  you  can  read  the  BAM  and  directory  sectors 
and  look  at  what  has  happened  there.  A  disk  monitor  shows  all  such 
manipulations. 

We  will  avoid  an  endless  list  of  these  tricks  here.  But  we  do  have  some 
useful  ones  which  make  it  easier  to  work  with  the  disk  drive. 

The  first  thing  to  mention  would  be  bit  6  of  the  file  type,  by  which  you 
can  protect  individual  entries  from  deletion  or  overwriting  (see  Section 
2.2.1).  Another  popular  manipulation  is  changing  the  filename.  This  often 
involves  making  use  of  the  fact  that  even  with  names  which  are  less  than  16 
character  long,  all  16  are  saved.  They  are  filled  with  spaces,  however. 

It  is  precisely  this  which  we  want  to  change.  Perhaps  you  have  also 
tried  to  overwrite  the  block  specification  of  an  entry  with  load  command 
(RUN/DLO AD/LOAD)  after  listing  the  directory.  This  way  you  don't  have 
to  type  in  the  filename  again.  But  this  won't  function  quite  correctly.  The 
computer  always  responds  with  "Syntax  Error."  This  is  not  surprising, 
since,  after  all,  what  is  it  to  do  with  the  file  type  abbreviation  which  is  still 
in  the  command  line?  If  you  overwrite  this  with  spaces,  the  whole  thing 
works.  But  now  the  effort  is  almost  as  great  as  typing  out  the  filename. 

It  is  our  goal  that  after  the  filename  in  the  directory,  several  characters 
are  output  that  make  the  line  into  a  completely  valid  BASIC  command  line. 
Then  you  need  only  overwrite  the  block  specification  and  the  program  will 
be  loaded.  You  could  use  the  following  as  the  end  characters: 

"  :  "        if  DLOAD  or  RUN  is  used 

" ,  8  :  "     if  LOAD  is  used  for  BASIC  programs 

" ,  8 , 1 "  for  LOAD  with  absolute-loading  programs 
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As  you  have  learned  in  Section  2.2.1,  a  shifted-space  (ASCII  value 
160)  terminates  the  filename.  It  is  at  this  point  that  the  second  quotation 
mark  is  printed  in  the  directory.  This  means  that  your  filename  may  be  only 
up  to  14  characters  long.  In  order  to  perform  these  manipulations,  you  don't 
have  to  pull  a  highly  complicated  disk  monitor  out  of  the  drawer.  These 
extensions  can  be  easily  built-in  when  saving. 

For  example: 


DSAVE    ( "name " +CHR$ ( 1 60 ) +" , 8 : " ) 


or 


DSAVE   ( "name " +CHR$ (160)+ 


■I 


Here  is  an  example  printout  of  one  such  directory: 


0   "1571   PROS  "  AB 

2         "USER  FILE  CREATE" 


2A 

PRC 

PRC 

PRC 

PRO 

PRO 


4  "FORMAT  READ" s 

4  "FORMAT  ANALYZE" s 


1571  READER"; 


1  "DISK  TEST   128" s 

651   BLOCKS  FREE. 


READY . 
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2.3  The  organization  of  files 


2.3.1  Programs,  sequential  and  user  files 


Next  we'll  discuss  how  normal  programs  and  files  are  placed  on  the 
diskette.  The  first  two  topics  are  programs  and  sequential  files.  In  the  next 
section  we  will  say  more  about  relative  files,  which  are  more  complicated. 

The  simplest  form  is  still  the  sequential  file.  Data  items  are  written  one 
after  the  other  in  the  file.  The  information  first  travels  to  the  buffer  inside  the 
disk  drive.  If  the  buffer  is  full,  its  contents  are  written  to  a  free  sector  on  the 
diskette.  This  must  then  be  designated  in  the  BAM  as  allocated.  When  this 
is  done  the  additional  data  is  handled  in  the  same  manner. 

This  scheme  requires  that  you  know  which  sectors  make  up  the  file  and 
in  which  order  you  must  read  them  in  again.  There  is  a  pointer  in  the 
directory  entry  which  contains  the  track  and  sector  numbers  of  the  first  data 
sector  (byte  1/2).  This  tell  us  where  the  file  begins.  So  that  we  can  find  the 
next  sector  and  the  ones  following  it,  they  are  chained.  The  first  two  bytes 
of  each  sector  specify  the  track  and  sector  of  the  next  sector.  For  this  reason 
a  sector  can  store  only  254  bytes  of  data.  This  chaining  goes  on  like  this 
until  the  last  sector.  This  has  a  0  as  the  track  number  of  the  next  sector.  The 
disk  drive  recognizes  through  this  that  the  file  ends  with  this  sector. 

But  normally,  not  all  of  the  bytes  of  the  last  sector  are  used  to  store 
data.  For  this  reason  you  must  also  know  how  many  bytes  belong  to  file. 
This  is  stored  in  the  second  byte  of  the  sector  (previously  the  sector  number 
of  the  next  block). 

Sequential  files  and  user  files  are  managed  with  this  chaining  method. 
But  what  is  a  "user  file"?  Actually  it  is  nothing  more  that  a  sequential  file. 
They  are  accessed  in  precisely  the  same  way  as  described  in  Section  1.4. 
The  file  type  must  be  "u"  instead  of  "s",  however.  This  gives  you  the 
option  of  selecting  between  two  designations  for  a  sequential  file.  There  is 
also  a  disk  command  which  works  only  with  user  files  (see  Section  2.3.3). 

Programs  are  saved  in  virtually  the  same  manner.  The  only  difference  is 
that  the  first  two  bytes  of  a  program  file  form  the  start  address  of  the 
program  (low  byte/high  byte)  and  are  not  data.  The  disk  drive  does  not  use 
this  information;  the  computer  uses  the  start  address. 
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2.3.2  The  relative  Hie,  the  side-sector  blocks 


The  data  in  relative  files  are  stored  no  differently  from  those  in  a 
sequential  file.  But  as  you  know,  a  relative  file  is  organized  in  records.  You 
can  access  any  desired  record. 

The  most  important  thing  to  do  is  to  define  the  record  length 
beforehand.  This  makes  it  possible  to  calculate  from  the  record  number  and 
the  record  length  the  number  of  bytes  which  you  must  skip  to  reach  the 
desired  data  record.  If  you  read  over  all  of  the  previous  information  in  the 
file,  nothing  would  be  gained  over  a  sequential  file. 

This  process  is  speeded  up  considerably  if  you  divide  the  offset 
(number  of  bytes  to  skip)  to  the  desired  record  by  254.  This  is  exactly  the 
number  of  bytes  which  fits  into  each  sector.  This  means  that  we  can 
calculate  the  sector  in  the  chaining  sequence  in  which  the  record  is  to  be 
found.  The  remainder  from  the  division  indicates  the  byte  number  in  the 
sector  at  which  the  desired  data  begins.  Naturally  you  can  now  follow  the 
sector  chaining  in  order  to  find  the  proper  sector.  But  this  would  hardly  be 
faster  than  a  sequential  file. 

The  special  feature  of  relative  files  is  that  the  sector  chaining  is  stored  in 
a  special  table.  This  table  consists  of  a  maximum  of  six  sectors,  which  are 
called  side-sector  blocks.  They  are  organized  as  follows: 
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Byte  Meaning 


0/1 

Track  and  sector  number  of  the  next  side-sector  block. 

2 

Number  of  this  side-sector  block  (0..5) 

3 

Length  of  a  record  in  the  relative  file 

4/5 

Track  and  sector  numbers  of  the  first  side  sector  (0) 

6/7 

Track  and  sector  numbers  of  the  second  side  sector  (1) 

8/9 

Track  and  sector  numbers  of  the  third  side  sector  (2) 

10/11 

Track  and  sector  numbers  of  the  fourth  side  sector  (3) 

12/13 

Track  and  sector  numbers  of  the  fourth  side  sector  (3) 

14/15 

Track  and  sector  numbers  of  the  fifth  side  sector  (4) 

16-255 

Track  and  sector  numbers  of  the  data  blocks 

The  important  part  of  the  side-sector  blocks  are  the  bytes  16-255.  Here 
you'll  find  a  list  of  the  data  blocks  used.  Bytes  16/17  are  the  track  and 
sector  numbers  of  the  first  data  sector  of  the  file,  bytes  18/19  are  numbers 
of  the  second,  and  so  on.  There  is  room  for  the  track  and  sector  numbers  of 
120  data  blocks  in  a  side-sector  block.  To  be  able  to  form  larger  files,  you 
simply  use  additional  side-sectors. 

But  now  we'd  also  like  to  know  where  the  sector  is  which  contains  the 
desired  record.  To  so  this  divide  the  previously  calculated  number  of  the 
blocks  to  the  sector  which  contains  the  record.  In  this  manner  you  can 


83 


Abacus  Software 


1571  Internals 


determine  in  which  side  sector  the  specifications  for  the  desired  data  sector 
are  found.  The  remainder  resulting  from  the  division  gives  the  position  of 
the  track  and  sector  specifications  in  the  side  sector. 

In  this  way,  you  now  know  the  sector  in  which  the  record  is  contained. 
In  addition,  you  can  determine  the  position  of  the  data  record  in  the  sector 
from  the  remainder  of  the  first  division,  which  we  used  to  calculate  the  data 
blocks  to  the  proper  sector.  Eventually,  however  part  of  the  data  record 
extends  into  the  next  sector.  The  DOS  calculates  this  from  the  current 
position  and  the  record  length. 

So  with  the  side-sector  method  you  need  a  maximum  of  3  sector 
accesses,  though  normally  only  1  or  2  sector  accesses,  until  you  have  found 
the  desired  data  record.  First  you  read  the  first  side-sector.  If  you're  not 
lucky,  the  specifications  for  the  calculated  data  sector  are  not  contained  in 
this  side-sector.  This  is  why  each  side-sector  contains  the  numbers  of  the 
other  side  sectors  (bytes  4-15).  Therefore  the  DOS  always  knows  after  the 
first  access,  in  which  side-sector  the  proper  track  and  sector  specifications 
are  contained.  Then  you  must  read  the  side-sector.  From  this  you  obtain  the 
position  of  the  data  sector.  By  the  third  access,  at  most,  the  sector  with  the 
desired  record  is  found. 

But  three  accesses  represents  the  worst  case.  Normally  one  of  the 
side-sectors  is  always  stored  in  a  buffer.  Then  you  know  immediately  in 
which  side-sector  block  the  desired  data  sector  specifications  are  found.  So 
two  accesses  to  the  disk  are  usually  necessary.  If  you're  lucky  and  the  right 
side-sector  is  already  in  the  buffer,  or  the  file  is  still  so  small  that  only  one 
side-sector  is  needed,  you  can  even  read  the  correct  data  sector  directly. 
This  case  is  not  so  rare,  since  in  order  to  get  a  file  with  more  that  one 
side-sector,  it  must  be  larger  than  about  30K. 


84 


CHAPTER  3 


^  PROGRAMMING  THE  DISK  BUFFERS  ^ 


Programs  in  the  DOS  buffer 


Abacus  Software 


1571  Internals 


3.1  Programs  in  the  DOS  buffer 


3.1.1  Memory-read  and  memory-write 


As  you  read  in  the  preface,  the  1570/1571  is  controlled  by  its  own 
microprocessor  system.  In  another  section  of  this  book  we'll  go  into  these 
internal  matters  of  the  drive  more  intensively.  We'll  talk  more  about 
programming  the  disk  drive  in  6502  assembly  language,  the  language  of  the 
built-in  processor.  But  you'll  be  able  to  understand  the  following  sections 
even  if  you  are  not  an  expert  assembly  language  programmer. 

As  you  already  know,  the  disk  drive  has  internal  buffer  storage.  This 
involves  a  total  of  2K  of  RAM  located  in  the  range  from  $0000  to  $07FF. 
Part  of  this  RAM  is  required  for  system  purposes,  otherwise  the 
microprocessor  could  not  function.  The  other  part,  a  total  of  5*256  bytes,  is 
used  as  buffer  storage.  But  more  than  just  data  can  be  placed  in  these 
buffers.  It  is  also  possible  to  place  programs  in  6502  machine  language 
there.  These  can  then  be  built  into  the  operating  system  of  the  disk  drive. 

Now  we  need  a  command  to  write  the  program  into  the  disk  buffer.  The 
direct  access  methods  would  work  for  this,  for  instance.  In  this  case  you 
select  a  special  buffer  and  transfer  the  program-like  data-- with  the  print* 
command.  But  the  1570/1571  can  do  even  more.  There  are  special 
commands  which  serve  only  to  send  the  contents  of  certain  memory 
locations  of  the  disk  drive  RAM  to  the  computer.  This  command  is  called 
"memory-read."  Its  syntax  looks  like  this: 

"m-r"+chr$ (1) +chr$ (h) +chr$ (n) 

1  =  low  byte  of  the  memory  address 
h  =  high  byte  of  the  memory  address 
n  =  number  of  bytes  to  be  read 

The  parameters  1  and  h  give  the  addresses  of  the  desired  memory.  The 
parameter  n  is  the  number  of  bytes  which  you  want  to  read.  The 
specification  n  may  also  be  omitted.  Then  the  disk  drive  assumes  that  only 
one  byte  is  desired.  The  "m-r  "  command  will  be  sent  to  the  disk  drive  via 
the  command  channel.  If,  for  example,  you  want  to  read  the  memory 
location  15 1  (hex  $97),  the  command  sequence  is  as  follows: 
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a  =  151  Set  address 

OPEN  1 ,  8 , 1 5  Open  command  channel 

PRINT#1, "m-r"CHR$ (a  and  255) CHR$ (a/256) 

Address  to  drive 

GET#l,a$  Byte  to  drive 

PRINT  ASC  ( a  $  +CHR$  ( 0 ) )  Output  byte  value 

In  this  program  the  number  of  sectors  per  track  of  the  last  IBM-34 
format  is  read. 

Byte  values,  which  will  then  be  written  to  a  specific  memory  location, 
can  be  sent  to  the  disk  drive  as  well.  The  command  necessary  to  this  is  as 
follows: 

"m-w"+CHR$ (1) +CHR$ (h) +CHR$ (n) +CHR$ (bl) +CHR$ (b2) . . . 

As  you  see,  the  address  is  again  specified  with  1  and  h.  Then  follows  the 
number  of  bytes  which  will  be  written  at  this  location  in  the  disk  drive 
RAM.  This  time  you  cannot  omit  the  specification  n.  Last  come  the  actual 
data  bytes.  A  maximum  of  34  bytes  can  be  sent  with  one  "m-w"  command. 
This  is  because  the  input  buffer  of  the  1570/1571  is  only  41  characters  long. 
If  you  want  to  write  larger  memory  sections  into  RAM,  such  as  a  machine 
language  program,  you  must  write  it  in  several  sections. 


3.1.2  Memory-execute  and  block-execute 


Just  reading  a  program  into  the  buffer  doesn't  do  anything,  of  course. 
You  must  also  be  able  to  start  this  program  somehow.  This  is  done  with  the 
"m-e"  command.  The  command  has  the  following  parameters: 

"m-e"+chr$ (1) +chr$ (h) 

Again  a  memory  location  must  be  divided  into  low  and  high  bytes.  The 
operating  system  of  the  1570/1571  then  jumps  to  this  address.  An 
intelligible  program  must  start  at  this  address  or  the  disk  system  will  crash. 
When  the  drive  microprocessor  encounters  the  instruction  RTS  in  the 
program,  the  operating  system  resumes  its  work. 
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The  specialists  among  you  now  know  that  one  can  also  call  specific 
subroutines  in  the  disk  operating  system  as  well.  The  following  little 
program,  for  instance,  would  destroy  a  given  track  completely  thereby 
locking-up  your  disk  drive: 

10  s  =  18 

20  OPEN  1,8,15 

30  PRINT#1, "m-w"CHR$ (0) CHR$ (3 ) CHR$ ( 6) CHR$ (32) 

CHR$ (163)CHR$ (253) CHR$ (7  6) CHR$ (160) CHR$ (234)  40 
PRINT* 1, "m-w"CHR$ (6)CHR$ (0)CHR$ (1)CHR$ (s) 
50  PRINT* 1, "m-w"CHR$ (0)CHR$ (0 ) CHR$ ( 1) CHR$ (224) 
60  CLOSE  1 

The  track  must  be  specified  in  s.  For  this  experiment  be  sure  to  use  a 
newly  formatted  diskette  or  a  diskette  that  will  not  be  used  any  more.  This  is 
because  the  data  will  not  only  be  completely  destroyed,  but  the  operating 
system  will  always  be  rather  mixed  up  by  this  diskette.  The  program  creates 
a  so-called  "killer  track",  your  drive  locks-up  when  the  directory  is 
accessed.  You  must  power  down  the  drive  to  regain  control. 

You  may  have  noticed  that  the  "m-e"  command  is  not  used  in  this 
example.  The  program  is  started  through  a  more  refined  method  via  the 
"m-w"  command.  This  should  not  concern  us  further.  Our  intention  is  to 
show  what  possibilities  you  have  with  the  memory  access— even  from 
within  BASIC. 

If  you  want  to  place  larger  programs  in  the  buffer  in  order  to  execute 
them  there,  it  can  take  quite  some  time.  The  most  sensible  thing  to  do  would 
be  to  read  the  program  from  diskette  into  the  buffer  and  then  start  it  there. 
You  must  now  combine  the  "Ul "  and  the  "m-e"  commands.  The  contents 
of  a  sector  (the  program)  will  be  read  into  the  buffer  and  then  executed.  The 
developers  of  the  disk  drive  decided  that  this  should  also  be  possible  with 
one  command.  This  is  called: 

"b-e  c  d  t  s" 
"b-e";c;d/t/s 

The  parameters  k  and  1  are  the  channel  and  drive  numbers,  which  you  have 
already  become  acquainted  with  from  the  direct  access  commands.  The 
parameters  t  and  s  are  again  the  track  and  sector  numbers.  The  selected 
sector  is  read  into  the  buffer  assigned  to  the  channel.  Then  a  jump  is  made 
to  the  start  of  the  buffer  in  order  to  execute  its  contents  as  a  machine 
language  program. 
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The  command  has  little  advantage  over  a  combination  of  the  "Ul "  and 
"m-e"  commands.  Furthermore,  it  is  seldom  used.  If  you  want  to  read 
programs  from  the  diskette  into  the  drive's  RAM  and  there  execute  them, 
there  is  another,  better  command  which  we  will  discuss  in  Section  3.1.5. 


3.1.3  The  user  commands 


User  commands  are  those  which  tell  the  disk  drive  to  execute  programs 
at  certain  locations  in  the  memory.  The  start  with  a  "U"  followed  by  a  digit 
or  a  letter.  This  second  character  selects  from  among  several  predefined 
addresses  which  can  be  branched  to. 

The  following  user  commands  exist: 

User  command     Address  Function 


Ul 

or 

UA 

$CD5F 

Block-read  command 

U2 

or 

UB 

$CD97 

Block-write  command 

U3 

or 

UC 

$0500 

Jump  to  buffer  2 

U4 

or 

UD 

$0503 

Jump  to  buffer  2 

U5 

or 

UE 

$0506 

Jump  to  buffer  2 

U6 

or 

UF 

$0509 

Jump  to  buffer  2 

U7 

or 

UG 

$050C 

Jump  to  buffer  2 

U8 

or 

UH 

$050F 

Jump  to  buffer  2 

U9 

or 

Ul 

$FF01 

Switch  1540/41  bus 

U: 

or 

UJ 

$EAA0 

Reset 

U; 

or 

UK 

$FE67 

Interrupt  routine 

Some  of  the  user  commands  jump  to  buffer  2  (U3-U8).  The  addresses 
have  an  interval  of  exactly  3  bytes.  You  can  very  easily  set  up  a  vector  table 
in  this  buffer.  This  is  a  list  of  jump  commands  which  then  branch  to  the 
individual  functions  which  are  called  with  the  user  commands. 

The  remaining  user  commands  jump  to  various  locations  in  the 
operating  system.  This  adds  some  additional  disk  drive  functions.  You  are 
already  familiar  with  Ul  and  U2  from  Section  2.1. 
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The  U9-  or  ui-  command  serves  to  switch  between  the  1540  and  1541 
bus.  The  1540  was  the  disk  drive  for  the  VIC-20.  Since  the  VIC-20  had  a 
somewhat  higher  clock  frequency  than  the  C-64,  you  could  make  the  bus  a 
bit  faster  with  the  "UI-"  command.  The  command  sequence  "ui+" 
switches  the  bus  back  to  the  1541  timing.  If  the  +  or  -  is  omitted  or 
another  character  is  given,  the  disk  drive  will  perform  a  partial  reset.  The 
zero  page  and  system  pointers  will  be  set  up  again.  The  RAM/ROM  test  is 
not  performed  and  the  drive  motor  does  not  run. 

The  u  J  command  is  the  total  reset.  The  1570/1571  behaves  as  if  you 
had  turned  it  off  and  then  back  on  again. 

The  1570/1571  contains  (in  contrast  to  the  1541)  the  UK  command  as 
well.  With  this  command  a  jump  is  made  to  a  BRK  instruction  (see  ROM 
listing  $AA2D).  As  a  result,  UK  starts  the  interrupt  routine.  In  normal 
operation  this  has  no  special  effect.  But  if  you  have  inserted  your  own 
program  in  this  routine  (more  about  this  in  DOS  chapter),  then  it  can  be 
started  in  this  manner. 

The  user  commands  have  a  powerful  advantage  over  the  "m— e" 
command.  You  can  use  them  in  almost  all  situations  where  a  program  has 
only  a  function  for  entering  disk  drive  commands-whether  it  is  a  word 
processor,  database  manager,  or  whatever. 

The  "m-e"  command  on  the  other  hand  can  be  used  only  in  BASIC 
since  it  needs  the  CHR$  function  in  order  to  transfer  the  low  and  high  bytes 
of  the  start  address. 
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3.1.4  The  USERO  commands 


It  is  almost  a  tradition  at  Commodore  to  put  many  interesting  commands 
in  the  machines  which  are  not  mentioned  at  all  in  the  instruction  manual. 
And  so  the  1570/1571  offers  a  whole  set  of  commands  which  are 
responsible  for  the  handling  of  diskettes  in  the  CP/M  format  "IBM  System 
34." 

A  command  number  follows  all  USERO  commands.  This  number  is 
composed  of  various  bit  data.  It  is  therefore  usually  inserted  into  the 
command  chain  with  the  CHR$  function.  Then  follow  the  parameters  of  the 
individual  commands.  All  command  numbers  are  composed  of  the 
following  data: 

Bit  0       :  drive  number  (0/1) 

Bits  1-3    :  Number  of  the  USERO  function 

Bit  4       :  Disk  side  involved 

0=  side  1     1=  side  2 
Bits  5-7    :  Various  control  flags 

The  drive  number  is  always  0  for  the  1570/1571,  of  course.  Here  the 
USERO  commands  are  already  set  up  for  a  future  double  disk  drive.  On  the 
1570  bit  4  must  also  naturally  stay  at  0  because  the  1570  can  use  only  one 
side  of  the  disk. 

All  USERO  commands  function  only  when  the  disk  drive  is  being  used 
in  the  1570/1571  mode.  In  the  1541  mode  they  will  be  ignored.  The  sole 
exception  to  this  is  command  number  31.  Here  the  functions  with  which 
one  can  select  disk  sides,  among  other  things,  are  made  available. 

Let's  take  a  look  at  these  new  commands.  For  all  commands  the  syntax 
must  be: 

"U0"+CHR$ (31) +"aa" 
or  "U0>aa" 

The  appropriate  function  must  be  used  in  place  of  the  characters  "aa". 
The  following  commands  have  been  added: 
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aa  Function 


Ml     Switches  the  disk  drive  to  the  1571  mode.  The  system  will  be 
operated  at  a  2MHz  clock  frequency.  This  allows  the  C-1571 
properties  to  be  used  in  the  C-64  mode. 

MO     Switches  to  the  1541  mode  with  1MHz  clock  frequency. 


HO  Activates  the  head  on  side  1 
H 1     Activates  the  head  on  side  2 

The  H  command  (head)  works  only  in  the  1541  mode 


Bit  7  controls  the  disk  initialization  for  M  and  H: 

0=  diskette  will  be  initialized  after  the  command 
1=  diskette  will  not  be  initialized  after  the  command 
Command  number  31  means  "with  initialization,"  number  159 
"without  initialization" 


Rx 

Sets  number  of  read  attempts  in  zero-page  address  $6A.  The  ASCII 

value  x  is  placed  directly  in  $6A  (see  zero-page  listing  for  the  exact 

function  of  the  address). 

Sx 

Sets  sector  interval  for  Commodore  diskettes  ($69) 

T 

Tests  the  ROM  checksum 

X 

The  ASCII  value  x  will  be  accepted  as  the  new  device  address  for  the 

disk  drive,  x  must  lie  in  the  range  4-15. 

Another  function,  especially  important  in  the  C-128  mode,  is  the  file 
fast-load.  As  you  know,  the  loading  speed  is  considerably  faster  on  the 
C-128  than  on  the  C-64.  This  fast  loading  is  no  longer  organized  via 
channel  0,  but  is  simply  called  through  a  command  via  the  command 
channel.  The  data  will  then  be  transferred  to  the  computer  with  the  fast  bus 
mode.  The  command  has  the  following  syntax: 
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OPEN  1, 8, 15, "uO"+CHR$ (32) +"f ilename" 

Once  again  bit  7  in  the  bit  pattern  (32)  controls  a  special  function: 

Bit  7:      0=  file  type  will  be  tested  for  PRG 
1=  file  type  will  not  be  tested 

All  sequential  file  types  will  be  loaded 

But  we  want  to  concern  ourselves  with  the  more  important  USERO 
commands.  These  are  the  commands  for  operating  the  disk  drive  in  the 
CP/M  mode.  You  must  first  become  acquainted  some  zero-page  addresses. 
This  will  be  required  for  programming  in  machine  language,  but  they  can 
also  be  used  from  BASIC. 


Address  Function 


$3C 

60 

Logical  sector  interval  for  diskettes  in  the  IBM  System  34 
format. 

Used  for  "sector  read/write." 

$24 

36 

Header  of  the  last  IBM  34  sector. 

$5E 

94 

Bits  0-3  =  number  of  the  current  error  message.  This  is 
precisely  the  value  which  is  normally  set  in  zero-page 
addresses  $00-$05  by  the  job  loop. 
Bit  7  :  1=  diskette  is  in  IBM  format 

0=  diskette  is  in  Commodore  format 

$60 

96 

Smallest  sector  number  on  the  track 

$61 

97 

Largest  sector  number  on  the  track 

$97 

141 

Number  of  sectors  on  the  track 
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For  all  CP/M  functions  which  support  the  disk  drive,  the  date  will  be 
transferred  in  the  fast  bus  mode.  This  transfer  mode  can  be  programmed 
only  in  machine  language,  however.  BASIC  programs  are  too  slow  to 
accept  the  data.  If  a  CP/M  function  is  called  with  the  appropriate  USERO 
command,  the  disk  drive  then  sends  the  data,  but  the  computer  doesn't 
receive  it 

This  is  not  terribly  tragic  since  the  CP/M  commands  offer  the  following 
additional  options: 

Bit  5:       1=  don't  read/write  sector  in  buffer 

0=  read/write  sector  from  disk  to  buffer 
Bit  6:       1=  disregard  read/write  error 

0=  report  read/write  errors 
Bit  7:       1=  don't  transfer  buffer  to  computer 

0=  transfer  buffer  to  computer 

Bits  5-7  of  the  command  number  control  various  special  functions.  The 
transfer  which  disrupts  things  under  BASIC  can  be  disabled  with  bit  7.  In 
this  manner  a  IBM  sector  is  read  only  into  the  internal  disk  buffer.  The 
transfer  to  the  computer  can  be  done  with  the  direct  access  commands. 

To  do  this  you  must  know  that  the  data  of  an  IBM  34  sector  is  always 
stored  at  address  $0300  in  the  drive  memory  (buffer  0).  The  reason  for  this 
is  that  IBM  34  sectors  can  be  composed  of  up  to  1024  bytes  and  therefore 
occupy  four  buffers.  This  means  that  you  will  have  to  manage  four  different 
direct  access  channels. 

Now  we  come  to  the  question  of  how  the  disk  drive  ascertains  what 
sector  length  the  diskette  has.  Further,  it  is  possible  to  write  diskettes  with 
different  numbers  of  sectors  using  CP/M.  There  must  therefore  be  a  way  to 
analyze  the  diskette  in  the  drive  to  get  the  data  about  the  disk  format. 

The  disk  drive  offers  two  special  functions  for  this.  With  one  the  header 
of  the  next  sector  can  be  read.  An  attempt  is  first  made  to  read  an  IBM  34 
sector.  If  this  fails,  the  disk  drive  tests  to  see  if  the  sector  is  in  the 
Commodore  format.  The  result  of  the  read  attempt  is  stored  in  zero-page 
address  $5E.  Bit  7  indicates  the  disk  type. 

For  IBM-34  diskettes,  the  zero-page  addresses  $24-$29  can  be  read, 
which  contain  the  ID  field  of  the  IBM  sector.  $27,  for  instance,  gives 
information  about  the  length  of  the  sector. 
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A  second  USERO  function  yields  the  additional  data  of  the  disk  format. 
This  reads  all  ID  fields  of  an  IBM-34  diskette  and  calculates  the  following 
specifications: 

1 .  Command  status  byte  ($5C). 

2.  Number  of  sectors  on  the  track  ($97) 

3 .  Number  of  the  track  in  which  the  header  is  found. 

4.  Smallest  sector  number  on  the  track  ($60) 

5.  Largest  sector  number  on  the  track  ($61) 

6.  Sector  interval. 

The  specifications  are  transferred  to  the  computer  in  the  above  order  in 
the  fast  bus  mode.  A  BASIC  program  would  not  be  capable  of  receiving  the 
data.  In  this  case  you  must  read  them  directly  from  the  drive  memory  with 
the  direct  access  commands  ("m-r"). 

Command  numbers  of  the  analysis  commands: 

Bit  76543210  Function 

000x0100    read  next  sector  header 

x  =  side  number 
yOOxlOlO    analyze  track 

x  =  side  number 

y  =  1=  go  to  track  given  as  4th  character 
0=  go  to  track  0 

The  track  analysis  function  cannot  be  started  from  BASIC  because  the 
USERO  command  does  not  work  properly.  You  should  send  the  following 
sequence  over  the  command  channel: 

"m-w"chr$ (0) chr$ (5) chr$ (3) chr$ (76) chr$ (30) chr$ (133) 

The  function  will  be  called  with  "u3".  Additional  examples  of  the 
analysis  of  foreign  formats  can  be  found  in  Section  4.2.3. 

If  you  have  set  the  disk  drive  for  the  IBM-34  diskette  in  this  manner, 
you  can  read  or  write  individual  sectors  with  the  USERO  direct  access 
commands. 
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Bit  76543210  Function 

abcxOOOO     read  sector 
abcxOOlO    write  sector 

x=  side  number 

a=  transfer  buffer  to  computer 

b=  regard  errors 

c=  read/write  buffer 

As  you  see,  the  supplementary  function  can  be  specified  in  bits  5-7  of 
the  sector  commands.  The  desired  disk  side  can  be  determined  with  bit  4. 
On  the  1570  drive  this  bit  must  always  be  0  since  this  drive  can  use  only 
one  side  of  the  disk. 

The  parameters  of  the  sector  to  be  processed  are  sent  to  the  disk  drive 
over  the  command  channel  after  the  command  number.  The  command  is 
then  worded: 

"u0"chr$ (command) +chr$ (track) +chr$ (sector) +chr$ (number) +chr$ (new) 

The  track  and  sector  numbers  must  be  given  as  ASCII  values.  The 
parameters  following  allow  several  sectors  to  be  read  one  after  the  other  and 
transferred  to  the  computer,  whereby  the  number  of  the  next  sector  arises 
from  the  sum  of  the  current  sector  number  and  sector  interval  ($3C).  This 
function  is  useful  only  if  the  fast  bus  mode  is  being  used.  Finally,  a  track 
number  can  be  specified  to  which  the  disk  drive  will  move  after  the 
command.  In  this  manner  the  disk  drive  can  be  steered  to  the  next  track 
while  the  computer  is  processing  the  last  data. 

Finally,  the  1570/1571  offers  a  function  which  is  not  possible  on  many 
other  disk  drives-the  ability  to  format  different  IBM  System  34  formats. 
The  syntax  of  the  USERO  command  is: 

Bit  76543210  Function 

OiyxOllO    format  IBM  34  diskette 

x=  side  at  which  to  begin 

y=  number  of  sides  to  be  formatted 

(0=  1  side,  1=  2  sides) 
i=  1=  write  track  index  label 

0=  don't  write  index  label 
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Parameters: 

4th  character:  Bit  7:  1=  IBM  System  34  format 

0=  Commodore  format 
Bit  6:  1=  use  specified  sector  table 

0=  create  sector  table  from  first 
number  and  interval 
Bits  0-5:  smallest  sector  number  on  track 
5th  character:  Sector  interval  -  1 

For  Commodore  format:  ID1 
6th  character:  Marker  for  sector  length  [1] 

For  Commodore  format:  ID2 
7th  character:  Last  logical  track  number  [39] 
8th  character:  Largest  sector  number  on  track  [16] 
9th  character:  First  logical  track  number  [0] 
10th  character:  First  physical  track  number  [0] 
11th  character:  Empty  byte,  filled  with  the  sectors  [229] 
starting  at  the  12th  character: 

Here  the  numbers  of  the  sectors  will  be 
listed  if  bit  6  of  the  4th  character  is 
set . 

As  you  see,  the  format  function  is  very  complex,  but  it  also  offers  very 
comprehensive  formatting  possibilities.  There  is  no  format  which  cannot  be 
created  with  this  USERO  function.  It  is  even  possible  to  format  a  disk  so  that 
it  can  no  longer  be  analyzed  or  read.  This  is  the  case  if  each  track  contains 
only  one  sector,  for  example,  or  if  all  sectors  on  the  track  have  the  same 
number. 

The  many  possibilities  of  this  command  can  also  be  used  in  BASIC.  To 
do  this  you  should  study  the  BASIC  programs  in  Section  4.2.3,  which 
demonstrate  the  use  of  the  USERO  commands  in  detail. 
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3.1.5  Autostart  files 


The  autostart  files  are  only  mentioned  briefly  in  the  1570/1571 
instruction  manual.  Nothing  is  said  about  the  function  and  use  of  this 
program  form. 

An  autostart  file  is  a  USR  file  whose  contents  are  loaded  into  an 
arbitrary  RAM  area  of  the  disk  drive  memory.  This  means  that  you  need  this 
file  form  only  if  you  want  to  execute  your  programs  in  the  drive  memory. 
Furthermore,  autostart  files  are  not  as  easily  constructed  as  program  files. 
But  don't  be  afraid  to  use  this  disk  drive  function. 


Construction  of  an  autostart  file 


Byte 

Function 

0/1 

Start  address  in  RAM  (low 

byte/high  byte) 

2 

Number  of  data  bytes  in  this 

sector  (max  255). 

3-n 

Data  bytes  for  the  autostart 

program. 

n+1 

Checksum  calculated  from  byte  1 

to  byte  n. 

Autostart  programs  are  organized  on  the  disk  like  sequential  files.  The 
file  type  must  be  "USR".  The  user  files  are  treated  just  like  sequential  files 
with  the  difference  that  "u"  is  given  as  the  file  type.  You  can  open  user  files 
only  with  the  BASIC  3.0  command  since  BASIC  7.0  does  not  support  this 
form  of  file. 

The  construction  of  an  autostart  file  is  not  very  simple.  It  consists  of  an 
arbitrary  number  of  blocks  whose  structure  is  represented  in  the  table 
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above.  Each  of  these  blocks,  which  follow  one  after  the  other  in  the  user 
file,  is  processed  separately  by  the  disk  drive.  Naturally,  the  user  file  may 
also  consist  of  just  one  autostart  block. 

The  first  thing  in  an  autostart  block  is  the  start  address  at  which  the 
program  data  of  the  block  will  be  stored  in  drive  RAM.  Next  is  the  number 
of  bytes  which  will  be  occupied  starting  at  this  address.  The  data  bytes  of 
the  program  must  be  give  starting  at  byte  3.  Then  follows  a  checksum, 
which  is  calculated  by  adding  the  start  address,  the  number  of  data  bytes, 
and  the  data  bytes  themselves  together.  If  a  carry  results  from  the  addition, 
it  is  counted  along  with  the  checksum. 

In  order  to  operate  larger  programs  in  the  disk  drive  memory,  they  must 
be  divided  into  sections  comprising  255  bytes.  A  separate  autostart  block  is 
then  created  for  each  of  these  sections.  Since  this  is  rather  laborious,  we 
have  a  program  which  will  do  this  for  you.  It  creates  an  autostart  file  from  a 
program  file.  The  first  two  bytes  of  the  program  file,  the  start  address,  are 
used  as  the  start  address  of  the  autostart  file. 

The  autostart  file  will  be  loaded  by  the  disk  drive  and  automatically 
started  one  you  enter: 

OPEN  1, 8, 15, "& filename" 

The  program  in  drive  memory  will  be  started  at  the  address  of  the  first 
autostart  block. 
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10  DIM  A* (255) 

20  INPUT  "PROGRAM  NAME" ; B$ 

30  INPUT  " USER  NAME" ; C* 

40  OPEN  i,8,0,B$ 

50  0PEN2,8,2,C*+" ,U,W" 

60  GOSUB  280 

70  ON  SGN(ST)   GOTO  260s  A=ASC(D$) 
80  GOSUB  280 

90  ON  SGN(ST)   GOTO  260 : A= A+ASC ( D* ) *256 
100  PRINT#2,CHR*(A  AND  255) CHR* (A/256) ; 
110  P=0 

120  FOR  N=1T0  255 
130  GOSUB  280 

1 40  p= ( 257* ( P+ASC (D*> ) / 256 ) AND  255 
150  IF  ST  AND  64  THEN  190 
160  IF  SGN(ST)   THEN  260 
170  A*(N)=D* 
180  NEXT 

190  PRINT#2,CHR*(N) ; 
200  FOR  M=l   TO  N 
210  PRINT#2,A$(M) ; 
220  NEXT 

230  PRINT#2,CHR$(P) ; 
240  A=A+N 

250  ONN/256+1  GOTO  270,100 

260  PRINT  "ERROR!!" 

270  CL0SE2sCL0SEl:END 

280  GET# 1 , D* : D*=LEFT$ ( D*+CHR* ( 0 ) , 1 ) 

290  RETURN 

READY. 
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4.1  How  does  CP/M  control  the  disk  drive? 


4.1.1  BDOS  and  BIOS 


If  you  want  to  learn  more  about  the  CP/M  operating  system  ,  you'll 
quickly  encounter  the  terms  BDOS  and  BIOS.  The  BDOS,  an  abbreviation 
for  "Basic  Disk  Operating  System,"  is  the  part  of  the  operating  system 
which  controls  working  with  the  disk  drive.  It  is  responsible  for  the 
management  of  files,  for  the  organization  of  the  directory  and  so  on.  The 
second  part,  the  BIOS  (Basic  Input/Output  System)  is  responsible  for  the 
physical  operation  of  the  disk  drive,  reading  and  writing  data  on  the 
diskette,  and  so  on. 

Naturally  we  cannot  publish  a  complete  description  of  CP/M~not 
even  a  basic  introduction.  This  theme  is  so  comprehensive  that  a  book  the 
size  of  this  one  could  be  filled  with  information.  For  this  reason  we  will 
look  only  at  some  of  the  most  interesting  aspects  of  disk  drive  programming 
under  CP/M. 

The  BDOS  is  identical  on  all  CP/M  systems  and  manages  the  data  in 
blocks  which  comprise  128  bytes.  It  is  responsible  only  for  the  logical 
management  and  handling  of  the  data.  Furthermore,  the  BDOS  is  the  part  of 
the  operating  system  which  offers  the  programmer  a  number  of  functions 
for  operating  the  disk  drive. 

The  BIOS  has  the  job  of  reading  and  writing  the  data  blocks  of  the 
BDOS.  This  part  controls  the  individual  drives.  For  this  reason  the  BIOS  is 
rewritten  for  each  new  CP/M  system  since  each  computer  system  is 
constructed  differently.  So  it  depends  on  the  computer  system 
manufacturer,  how  capable  the  BIOS  is.  It  can,  for  example,  process 
several  different  disk  formats,  etc. 
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4.1.2  DPB  -  Disk  Parameter  Block 


To  manage  the  data,  the  BDOS  must  know  the  exact  format  of  the 
diskette.  It  is  also  important  what  capacity  the  diskette  has  or  how  many 
directory  entries  are  possible.  In  addition,  the  BIOS  must  know  which 
tracks  of  the  diskette  are  are  used  for  data,  which  for  the  operating  system, 
and  which  for  the  directory.  Furthermore,  the  specifications  of  the  number 
of  sectors  per  track,  sector  interval,  and  so  on,  are  important 

This  information  is  managed  in  a  special  table,  the  DPB  (disk 
parameter  block).  These  specifications  are  shown  in  the  table  on  the  next 
page. 

The  BIOS  of  the  C-128  CP/M+  operating  system  can  process  a  total  of 
12  different  diskette  formats.  In  addition  to  the  three  Commodore  formats 
(C-64,  C-128  single-sided,  C-128  double-sided),  8  different  IBM-34 
formats  are  recognized.  The  DPB  tables  are  stored  in  the  file  CPM+.SYS  at 
address  $1980.  If  you  load  this  file  with  a  debugger  like  SID  or  DDT  you 
can  see  the  DPB.  When  booting  the  system  these  tables  are  placed  in  the 
first  bank  of  the  C-128  memory  along  with  the  BIOS.  For  this  reason  it  is 
very  difficult  to  use  the  second  64K  bank  for  program  storage.  If  you 
switch  to  the  second  bank  ($3E  or  $3F  in  $FF00),  the  computer  would 
crash  because  the  program  would  be  overwritten. 

The  top  8K  of  the  memory  is  not  switched  and  always  contains  the 
upper  area  of  the  first  64K  bank.  You  can  make  only  limited  use  of  this  area 
because  it  is  almost  completely  occupied  by  the  CP/M  operating  system. 

When  a  diskette  is  inserted  into  the  drive,  the  format  data  for  the  DPB 
table  can  be  determined  with  the  BDOS  function  $1F.  To  do  this,  the 
number  of  the  drive  is  specified  in  A  (accumulator)  and  after  the  call  to  the 
BDOS  you  get  the  address  of  the  DPB  in  the  HL  register  pair.  The  DPB 
tables  of  the  current  drives  always  lie  in  the  upper  8K  block  of  the  bank  and 
can  therefore  also  be  called  up  or  manipulated  from  a  program. 
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Byte    Abr.  Function 

1/2      SPT    Number  of  128-byte  blocks  per  track. 


2  BSH    Block  shift  factor 

This  number  specifies  the  size  of  a  management 

block  of  the  BDOS.  The  individual  blocks  of  the 

BDOS  are  combined  into  larger  entities.  The 

following  formula  applies: 

bytes  per  management  block  =  2  A  (7+BSH) 

The  following  values  result: 

BSH  0       1       2         3         4  5 

Block  size     128  256  512  1024  2048  4096  ... 


3  BLM    Block  mask 

This  number  specifies  the  number  of  128-byte 
BDOS  blocks  per  management  block.  The  value  is 
decremented  by  one,  that  is,  7  means  that  8 
blocks  are  contained. 


4 

EXM 

Extend  mask 

5/6 

DSM 

Number  of  128-byte  blocks  on  the  diskette 
(without  system  tracks)  -  1. 

7/8 

DRM 

Number  of  directory  entries  -  1. 

9 

10 

ALO 
ALl 

16-bit  allocation  map  which  indicates  which 
management  blocks  are  used  by  the  directory.  The 
first  block  of  the  directory  track  is  represented 
by  bit  15,  the  second  by  bit  14,  and  so  on. 

11/12 

CKS 

Number  of  directory  entries  to  be  checked  to 
recognize  a  diskette  change. 

13/14  OFF 

Number  of  reserved  system  tracks. 

15 

PSH 

Marker  for  the  physical  size  of  a  sector. 
PSH                              0      12  3 
Bytes  per  sector    128  256  512  1024 

16 

PSM 

Number  of  128-byte  blocks  per  physical  sector-1. 
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4.2  CP/M  diskette  internals 


4.2.1  MFM  data  recording  under  CP/M 


This  section  discusses  the  method  in  which  data  is  written  to  the 
diskette.  What  interests  us  is  the  technique  with  which  the  electronics  record 
the  data  onto  the  diskette. 

This  recording  process  is  called  MFM.  This  is  an  abbreviation  for 
"Modified  Frequency  Modulation."  "Modified"  indicates  that  there  is  also  a 
normal  recording  format,  called  "FM." 

First  let's  talk  about  the  FM  process  even  though  the  1570/1571  doesn't 
use  it.  This  will  then  make  it  easier  to  understand  the  MFM  process. 

Most  of  you  know  that  the  read/write  head  is  actually  a  small  coil.  This 
has  the  property  that  it  functions  like  a  magnet  when  current  flows  through 
it.  In  addition  the  polarity,  the  arrangement  of  the  north  and  south  poles, 
depends  on  the  polarity  of  the  current.  This  means  that  we  have  a  small 
magnet  which  we  can  electronically  alternate  again  and  again  depending  on 
which  voltage  polarity  is  applied. 

The  diskette  consists  of  a  special  material  that  can  be  magnetized.  The 
magnetic  layer  then  takes  on  the  same  magnetic  polarity  as  the  coil  in  the 
read/write  head.  By  switching  the  little  magnet  of  the  read/write  head 
electronically  you  can  write  information  on  the  diskette.  Really  quite  simple! 
You  magnetize  the  diskette  in  one  direction  for  all  0-bits  and  in  the  other 
direction  for  all  1-bits. 

If  you  want  to  read  the  data  again,the  coil  in  the  read/write  head  is  also 
used.  It  returns  a  voltage  according  to  the  polarity  of  the  magnetic  layer  on 
the  diskette.  But  this  happens  only  when  the  polarity  on  the  diskette 
changes.  This  means  that  if  the  entire  track  on  a  diskette  has  the  same 
polarity,  nothing  happens. 

For  this  reason  you  can  proceed  as  follows:  the  polarity  of  the  coil  is 
changed  for  every  1-bit,  but  not  for  a  0-bit.  Reading  the  diskette  then  gives 
a  short  pulse  at  the  read  head  when  a  "1"  is  on  the  diskette  because  the 
polarity  on  the  diskette  changed.  If  this  does  not  happen,  then  we  know  a 
0-bit  is  on  the  diskette. 
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The  drive  motor  creates  a  special  problem.  The  recording  of  a  single  bit 
on  the  diskette  is  just  a  few  millionths  of  a  millimeter  large.  If  the  motor 
does  not  run  extremely  smooth  and  makes  just  a  tiny  start,  data  is  skipped. 

If  we  can  send  telephone  speech  to  the  moon  and  back,  don't  we  have 
the  technology  for  somewhat  more  precise  motors?  But  of  course!  But  do 
you  want  to  pay  several  hundred  thousand  dollars  for  your  diskette  drive? 

In  order  to  even  out  the  drive  fluctuations,  you  can  write  clock  bits  on 
the  diskette.  A  clock  bit  always  has  the  value  "1"  and  so  creates  a  pulse  at 
the  read  head  each  time.  If  a  pulse  occurs,  the  drive  electronics  know  that 
they  must  now  expect  the  data  bit.  If  another  pulse  is  read  within  a  certain 
time,  the  data  bit  is  a  "1".  If  this  pulse  is  missing  and  the  next  clock  bit 
suddenly  appears,  men  the  last  data  bit  must  have  been  a  "0". 

But  how  are  clock  bits  distinguished?  A  bit  is  a  bit,  right?  Right~the 
electronics  must  be  told  somehow  that  the  next  bit  is  a  clock  bit.  Then  some 
complicated  switching  is  possible  to  separate  the  clock  and  data  bits.  Section 
4.2.2  handles  how  the  electronics  automatically  recognize  the  clock  bit. 

Using  the  FM  process,  a  byte  would  look  like  this: 

CDCDCDCDCDCDCDCD 
1010111010101110 

Date  byte: 

00100010 

C=  clock  bite 
D=  data  bit 

If  you  think  back  to  Section  1. 1.2,  you  may  recall  that  it  wasn't  enough 
to  simply  write  bytes  to  the  diskette,  you  must  also  be  able  to  find  the  stored 
data  again.  The  problem  involved  marking  the  start  of  a  data  block,  a  sector. 

This  is  done  with  a  special  marking  called  the  sync  character.  What 
does  this  marker  look  like?  It  must  be  distinguished  from  the  usual 
recordings.  A  trick  was  devised  for  this:  a  few  of  the  clock  bits  are  simply 
omitted.  But  isn't  this  dangerous?  What  happens  if  the  motor  speed 
fluctuates? 
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Let's  pick  the  value  $FE  as  the  data  byte.  In  this  value  there  are  a 
number  of  data  bits  with  the  value  "1",  which  means  that  there  are  quite  a 
few  pulses  on  the  diskette.  In  this  manner  the  electronics  can  find  their  way 
when  reading  and  can  recognize  that  the  clock  bit  is  missing.  We  could  also 
interpret  the  clock  bit  as  a  data  bit  and  vice  versa.  For  normal  data  the  clock 
byte  always  has  the  value  $FF.  For  each  bit  the  clock  bit  is  "  1".  If  another 
clock  bit  is  used,  then  this  data  byte  can  be  clearly  distinguished  from  all  the 
other  data  bytes  by  means  of  the  clock  bits. 

Special  clock  bytes  for  the  FM  process: 


c 

D 

C 

D 

C 

D 

c 

D 

c 

D 

C 

D 

c 

D 

c 

D 

1 

1 

1 

1 

0 

1 

0 

1 

0 

1 

1 

0 

1 

0 

1 

0 

Clock: 
Data: 

$C7 
$F8 

1 

1 

1 

1 

0 

1 

1 

1 

0 

1 

1 

1 

1 

0 

1 

0 

Clock: 
Data: 

$D7 
$FC 

1 

1 

1 
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Normally  the  data  in  FM  is  recorded  at  a  rate  of  250,000  bits  per 
second.  Naturally  you  would  like  to  put  as  much  data  on  the  diskette  as 
possible.  The  first  thought  would  be  to  increase  the  recording  rate,  maybe  to 
500,000  bits  per  second.  This  would  double  the  capacity  of  the  diskette. 
But  there  are  physical  limitations.  The  magnetic  layer  is  not  capable  of 
recording  data  at  this  high  speed.  Since  for  500,000  data  bits  per  second, 
500,000  clock  bits  are  also  recorded,  we  have  a  grand  total  of  1,000,000 
pulses  per  second.  It  is  not  possible  to  write  so  many  pulses  since  they 
would  overlap  each  other  because  they  could  not  be  recorded  accurately 
enough  for  there  to  be  a  gap  between  two  "1"  pulses. 

For  this  reason  we  have  to  try  to  reduce  the  number  of  pulses  on  the 
diskette  without  changing  the  data  rate. 

The  clock  bits  are  the  disrupting  factor,  since  they  are  not  used  for  data 
storage  but  still  take  up  half  of  the  diskette  storage.  The  clock  bits  are 
especially  important  if  the  data  bit  has  the  value  "0".  In  this  case  we  can 
recognize,  with  the  help  of  the  clock  bits,  that  a  data  bit  is  missing.  If  the 
data  bit  has  the  value  "1",  the  clock  and  data  bits  are  represented  by  a  pulse, 
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resulting  in  the  high  pulse  rate.  We  should  then  omit  the  clock  bits  for  all 
data  bits  with  the  value  "  1"  and  to  write  them  for  0-bits.  With  this  method 
there  is  a  sufficiently  large  interval  between  individual  pulses,  which  would 
not  be  present  for  successive  clock  and  data  bits  with  the  value  "1",  since 
the  electronics  have  a  certain  rise  and  fall  time.  The  data  rate  has  not 
changed  and  is  still  250,000  bits  per  second. 

You  can  say  that  there  is  a  bit  cell  present  for  each  data  bit  on  the 
diskette.  If  the  value  of  the  data  bit  is  "0",  a  pulse  is  recorded  at  the  start  of 
the  cell,  while  a  "  1"  bit  is  represented  by  a  pulse  in  the  middle  of  the  bit  cell. 
For  sync  and  index  marks  a  bit  cell  of  the  data  byte  does  not  contain  a  pulse 
and  is  thereby  identified  as  a  special  marker. 


4.2.2  The  IBM  System  34  format 


"IBM  System  34"  refers  to  a  diskette  format  that  is  in  very  widespread 
use.  Almost  all  disk  controller  components  record  the  data  according  to  this 
method.  The  IBM  System  34  format  (abbreviated  to  "IBM-34"  from  now 
on),  is  not  the  manner  in  which  the  data  are  managed  on  the  diskette,  but  the 
method  according  to  which  the  tracks  and  sectors  are  constructed  or  the 
sync  marks  are  created,  and  so  on. 

In  the  IBM-34  format,  sectors  with  128,  256, 512,  and  1024  bytes  per 
sector  can  be  used,  whereby  most  diskette  formats  use  sectors  comprised  of 
256  bytes.  For  this  reason  we  will  discuss  only  the  organization  of  a  track 
with  256  bytes.  For  other  sector  sizes  the  same  principle  for  sector 
recording  is  used. 

IBM-34  diskettes  always  use  the  index  hole  mentioned  in  Section 
1.1.2.  This  hole  controls  the  point  at  which  the  sector  recording  is  to  be 
begin  on  the  track.  When  the  index  pulse  is  encountered,  80  bytes  with  the 
value  $4E  are  recorded  on  the  track.  This  value  is  used  as  the  fill  value  for 
the  gaps  when  formatting.  This  gap  after  the  index  hole  gives  the  controller 
time  to  activate  the  read/write  logic.  Then  comes  the  "pre-index",  a  mark 
consisting  of  12  bytes  with  the  value  $00.  With  this  value,  pulses  are 
generated  on  the  read/write  head  for  clock  bits  only.  This  allows  the 
controller  to  set  its  read  electronics  so  that  clock  and  data  bits  will  be 
separated  automatically  for  normal  data  bytes.  The  $00  bytes  serve  to 
inform  the  controller  which  bits  are  the  clock  bits.  The  marking  with  $00 
bytes  is  also  called  "sync",  since  it  synchronizes  the  controller. 

Ill 
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Following  the  index  hole  is  the  "index  mark".  This  tells  the  controller 
that  previous  gap  belonged  to  the  index  hole,  since  gaps  are  also  present 
between  the  individual  sectors.  The  "index  mark"  for  MFM  consists  of  three 
bytes  with  the  value  $F6,  followed  by  a  $FC  byte.  The  clock  byte  $C2  is 
used  for  the  value  $F6  when  formatting.  This  means  that  the  clock  bit  is 
missing  between  the  third  and  fourth  data  bits  which  would  normally  be 
required.  The  controller  recognizes  the  index  mark  through  this  since  this 
clock  bit  is  not  missing  for  a  data  byte  with  the  value  $F6. 

Farther  on  in  the  sector  there  is  a  gap  with  50  $4E  bytes.  This  gives  the 
controller  time  to  prepare  for  processing  the  sectors.  Following  this  gap  are 
12  bytes  with  the  value  $00,  representing  a  sync  mark.  The  next  3  bytes 
have  the  data  value  $F5  and  are  recorded  with  the  clock  byte  $A1.  Together 
with  the  $FE  byte  they  represent  the  "ID  address  mark."  This  mark  indicates 
that  the  sector  header  follows.  The  next  six  bytes  are  the  sector  header. 

First  the  track  number  of  the  sector  is  named.  Then  comes  a  byte  which 
specifies  the  diskette  side.  The  value  "0"  is  used  for  the  front  side  and  the 
value  "  1"  for  the  back  side  of  the  diskette. 

The  next  byte  is  the  sector  number  of  the  data  section  following  the 
header.  The  fourth  specification  is  the  sector  marker,  which  specifies  the 
size  of  the  data  sector.  The  significance  of  the  byte  values  follow: 


00 

128 

bytes 

per 

sector 

01 

256 

bytes 

per 

sector 

02 

512 

bytes 

per 

sector 

03 

1024 

bytes 

per 

sector 

The  sector  header  is  terminated  with  two  checksum  bytes,  also  called 
CRC  bytes. 

The  sector  header  is  followed  by  a  22-byte  gap  with  the  value  $4E, 
terminated  by  12  bytes  with  the  value  $00,  representing  a  sync  mark. 

The  "data  address  mark"  follows  this,  marking  the  start  of  the  data  area. 
It  consists  of  3  bytes  with  the  data  value  $F5  and  the  clock  byte  $A1,  as 
well  as  a  byte  with  the  value  $FB.  Following  the  data  address  mark  are  the 
256  bytes  of  the  sector. 

Finally,  two  check  sum  bytes  are  stored.  These  are  calculated  using  the 
CRC  procedure.  CRC  is  an  abbreviation  for  Cyclic  Redundancy  Check.  In 
this  method  a  polynomial  is  formed  from  the  individual  bits  of  a  data  byte. 
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This  polynomial  is  divided  by  the  generator  polynomial, 
G(x)=X16+X12+X5+l.  Normally  this  division  does  not  come  out  even 
and  a  remainder  results.  The  CRC  bytes  are  the  values  which  you  must  add 
to  the  polynomial  of  the  data  bytes  so  that  the  division  by  the  generator 
polynomial  does  not  give  a  remainder.  This  sounds  complicated,  but  it  is 
accomplished  with  simple  digital  switching. 

At  the  end  is  another  gap  of  $4E-bytes.  The  size  of  this  gap  depends  on 
the  sector  size.  In  addition,  larger  gaps  are  used  on  drives  with  speed 
fluctuations  which  may  be  up  to  3%  than  are  used  on  more  stable  drives. 
Following  this  gap  is  the  sync  mark  before  the  ID  address  mark  of  the  next 
sector. 

The  exact  organization  of  a  track  can  also  be  gathered  from  the  ROM 
listing.  The  routine  at  $8A86  formats  a  track  in  IBM-34  format.  From  it  can 
be  seen  which  marks  are  created,  how  larger  the  gaps  are,  and  with  what 
parameters  the  formatting  procedure  is  controlled. 


4.2.3  Reading  "foreign"  diskette  formats 


One  of  the  best  capabilities  of  the  disk  drive  is  its  ability  to  read 
"foreign"  diskette  formats.  This  is  used  only  in  the  CP/M  operating  system. 
The  CP/M+  operating  system  on  the  C-128  recognizes  various  formats  from 
Epson,  IBM,  Kaypro,  and  Osborne. 

If  you  intend  to  implement  a  new  diskette  format  there  are  several 
possibilities  for  doing  this.  You  can  add  the  format  data  to  the  BIOS  and 
have  CP/M+  recognize  the  format  automatically.  Another  possibility  is  to 
process  the  diskette  format  through  direct  access  commands  (See  Section 
3.1.4). 

For  both  applications  you  must  know  the  exact  format  of  the  diskette. 
These  are  things  like  sector  length,  number  of  sectors,  and  so  on.  These 
specifications  can  be  determined  with  the  analysis  functions  described  in 
Section  3.1.4.  Since  the  determination  of  a  recording  process  is  very 
involved,  we  present  a  small  BASIC  program  which  does  the  work  for  you. 

When  entering  the  program  be  sure  to  input  the  spaces  and  CHR$  codes 
properly.  Default  values  are  specified  for  the  input  parameters  and  you  need 
only  press  <RETURN>  in  order  to  accept  a  parameter. 
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The  analysis  programs  first  asks  for  the  device  address  and  the  drive 
number.  Then  the  number  of  the  track  to  be  investigated  can  be  specified. 
Once  these  inputs  have  been  entered,  the  analysis  begins. 

The  program  first  determines  if  the  diskette  uses  an  IBM-34  or  a 
Commodore  format.  The  IBM-34  format  is  flawlessly  recognized  by  the 
program.  But  if  neither  an  IBM  format  nor  a  Commodore  format  is  present, 
(such  as  if  the  diskette  is  unformatted)  the  program  still  responds 
"COMMODORE .  "  Therefore  you  may  view  the  indication  of  a  Commodore 
format  with  some  suspicion.  Always  check  in  this  event  if  an  entire  sector 
or  the  directory  can  be  read. 

Basically,  the  program  serves  only  to  analyze  IBM-34  diskettes.  Some 
specifications  from  the  sector  header  are  listed  first.  These  are  the  track 
number  entered  in  the  sector  header,  the  specification  of  the  diskette  side 
and  the  sector  marker.  The  last  specification  indicates  how  long  the  sectors 
on  the  track  are. 

Following  these  are  some  data  which  the  disk  drive  has  calculated  from 
reading  all  of  the  sector  ID  fields.  These  are  the  number  of  sectors  on  the 
track  and  the  smallest  and  largest  sector  numbers.  In  conclusion,  all  of  the 
sector  numbers  are  listed  in  the  order  in  which  they  are  located  on  the  track. 
With  this  list  you  can  recognize  the  physical  sector  interval  or  spot 
irregularities  in  the  sector  distribution. 

Just  as  exciting  as  the  analysis  of  foreign  disks  is  the  ability  to  format 
disks  in  this  format  The  following  program  is  used  for  this: 
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1  dimn (32) : bs*=chr* ( 157) s b3*=bs*+bs*+bs$ 

2  print. chr$  ( 14)  chr*  <  147)  "  IBM  System  34  Format 
"chr*(17) 

3  print "Unit       8"b3$; s input  u 

4  onl+ (u>4) - (u>15) goto2 

5  print "Side  2"b3*;: input  s:  sd= (s/2) andi : a= 
sand  1 

6  printchr*( 147) "Number  of  tracks  40"b3*bs 
: input  nt 

7  print "log.   Track  start         0"b3*; : input  tl 

8  prinf'phy.   Track  start         0"b3$; : input  tp 

9  print "Sector  size  3"b3*; s i nput  si 

10  prinf'Number  o-f  sectors       5"b3$;  :  input  sn 

11  print  "De-fine  sequence   (y/n)  " 

12  geta* : onasc (a*) and3goto!3, 17: gotol2 

13  sq=l :  -f  ora=ltosn 

14  printa;bs$".   Sector       "right* (str* (a) ,2) ; 

15  printb3*; : input  n: n (a) =nand31 

16  nextsgotol9 

17  sq=0: print  "First  Sector  l"b3*;: input  fs 
:  -f  s=-f  sand31 

18  print "Sector  skew  0"b3*; s inputsk: sk= ( (s 
k>0)*-sk)and31 

19  prinf'Fill  byte  229"b3*bs*bs*; s i nput  b 

y 

20  b*="u0"+chr* (6+s*16+sd*32) +chr* ( 128+sq*64+ 
■fs) 

21  b*=b*+chr* (sk) +chr* (si ) +chr$ (nt+tl-1 ) +chr* 
(sn) 

22  b*=b*+chr*(tl )+chr*(tp)+chr*(byand255) 

23  -f  ora=ltosns  b*=b*+chr*  (n  (a)  )  snext 

24  printchr*( 147) "Formatting  " 

25  openl ,u, 15,b*:closel 

26  ifds=0then28 

27  printchr*(17)chr*(17)chr*(18) "Format  Error 
ii 

28  printchr*(17)chr*(17) "one  more  disk  (y/n)" 

29  geta*: onasc (a*) and3goto24,2: goto29 

ready. 
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0  b$=chr$ ( 1 57 ) : b3*=b*+b*+b* 

1  printchr*( 147) "Format  Analyzer" 

2  printchr*(17)chr*(17) "Unit         8"b3*; : input 
u 

3  onl+(u>4)-(u>15)goto2 

4  print "Drive       0"b3*;: input  d:d=dandl 

5  printchr*( 147) "Track       0"b3$; s input  tt 

6  openl ,u, 15 

7  printchr*( 147) "Side  1  : " ; : s=0: gosub!3 

8  printchr$(17) "Side  2  : " ; : s=l : gosubl3 

9  print#l,"uj" 

10  closel 

11  printchr*(17) "1  next  disk  /  2  end" 

12  geta$: onval (a$) +lgotol2,5: end 

13  print#l , "u0"chr* ( 158) "ml" 

14  print#l , "u0"chr* ( 138+s*16) 

15  a=94sgosub34:  i -f  b<  128then29 

16  pr int#l , "m-w"chr* (0) chr* (5) chr* (3) chr* (76) 
chr*(30)chr*(133) 

17  print#l , "u3-"+chr* (tt ) 

18  print"   IBM  System  34  -format" 

19  a=36: gosub34: prinf'track  number: "b 

20  a=37sgosub34s print "Side  bit         :  "b 

21  a=39: gosub34: print "Sector  size  :"b; 

22  printtab (17) "  C*2'  (7+b) "Bytes/Sector   ) " 

23  a=151 : gosub34s n=b: print "No.   of  Sec.    : "b 

24  a=96 : gasub34 sprint" mi n.   Sector  : "b 

25  a=97s gosub34: print "max .   Sector  : "b 

26  pri nt "Sequence       :  " ; 

27  -f  ora=523to522+n:  gosub34:  printb; : next: print 

28  goto33 

29  print"  COMMODORE  Format" 

30  a=24: gosub34: printchr* (17) "Track  number:"; 
b 

31  a=22sgosub34:print"IDl    (Dec.)  :";b 

32  a=23:gosub34: print" ID2   (Dec.)  :";b 

33  return 

34  print#l , "m-r "chr* (aand255) chr* (a/256) chr* ( 
1) 

35  get#l ,a*:b=asc (a*+chr*(0> ) 

36  return 
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The  program  allows  you  to  create  various  IBM  System  34  formats.  To 
do  this  you  must  specify  the  device  address  and  drive.  Then  follow  the 
inputs  which  determine  the  format 

The  first  question  concerns  the  number  of  tracks  to  be  formatted.  The 
number  of  the  track  to  be  entered  in  the  sector  header  must  be  entered.  The 
next  input  determines  at  which  physical  track  the  formatting  will  start.  This 
can  be  used  to  format  only  certain  tracks,  whether  for  repairing  damaged 
sections  or  to  confuse  the  controller. 

Now  the  marker  for  the  sector  length  is  required.  It  may  have  values 
between  values  between  0  and  3.  The  next  question  allows  the  creation  of 
the  sequence  of  sector  numbers  "by  hand."  If  you  don't  want  to  do  this, 
answer  with  "n". 

If  no  sector  sequence  is  entered,  then  the  program  wants  to  know  the 
number  of  the  first  sector  and  the  sector  interval.  The  sector  interval  is  the 
number  of  sectors  to  be  constructed  between  two  successive  sectors.  The 
program  does  not  check  to  see  if  the  entered  here  make  sense.  The  disk 
drive  is  the  first  to  determine  this  and  indicates  by  flashing  the  error  light 

In  conclusion  you  can  define  a  byte  with  which  the  sectors  will  be 
filled.  Normally  the  value  is  $E5  (229).  Be  sure  not  to  enter  any  values 
greater  than  $F0  (250)  because  these  have  control  functions  when 
formatting. 

Now  the  diskette  is  formatted.  If  you  answer  the  question  following  the 
formatting  with  "y",  you  can  create  another  diskette  in  the  same  format 
without  having  to  re-enter  the  parameters. 

The  two  BASIC  programs  are  not  particularly  complex  and  do  not  use  all  of 
the  capabilities  of  the  disk  drive.  They  are  intended  to  show  you  how 
diskette  programming  with  IBM-34  diskettes  is  performed.  You  may  be 
able  to  find  some  suggestions  for  your  own  programs  in  these  BASIC 
programs. 
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4.2.4  Programming    the  WD  1770  controller 


The  control  of  the  IBM-34  recording  is  performed  by  a  separate 
controller  component  in  the  1570/1571--the  WD  1770  from  Western  Digital. 

In  this  section  we  will  discuss  how  this  controller  is  accessed  and 
programmed.  This  can  be  done  only  in  machine  language  and  only  in  the 
disk  drive  memory.  Additional  information  about  the  technical  construction 
of  the  controller  can  be  found  in  Section  5.2.4. 

The  following  registers  are  present  for  programming  the  controller: 


Address 

Read  function 

Write  function 

$2000 

Status 

Command 

$2001 

Track 

Sector 

$2002 

Sector 

Sector 

$2003 

Data 

Data 

As  you  see,  register  $2000  has  different  functions  when  reading  and 
when  writing.  If  a  value  is  written  into  this  memory  location,  is  is 
interpreted  as  a  command.  When  reading  this  address,  it  doesn't  return  a 
command  but  a  value  representing  the  status  of  the  controller.  The  additional 
registers  serve  to  pass  the  command  parameters  and  data  to  the  controller  or 
communicate  from  the  controller  to  the  computer. 

The  controller  recognizes  the  following  commands: 
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Type    Command  Command  value 


Bit  7 

6 

5 

4 

3 

2 

1 

0 

1 

Restore 

0 

0 

0 

0 

h 

V 

X 

Y 

1 

Seek 

0 

0 

0 

1 

h 

V 

X 

y 

1 

Step 

0 

0 

1 

u 

h 

V 

X 

V 

1 

Step  in 

0 

1 

0 

u 

h 

V 

X 

y 

1 

Step  out 

0 

1 

1 

u 

h 

V 

X 

y 

2 

Read  sector 

1 

0 

0 

m 

h 

e 

0 

o 

2 

Write  sector 

1 

0 

1 

m 

h 

e 

P 

a 

3 

Read  address 

1 

1 

0 

0 

h 

e 

0 

0 

3 

Read  track 

1 

1 

1 

0 

h 

e 

0 

0 

3 

Write  track 

1 

1 

1 

1 

h 

e 

P 

0 

4 

Force  interrupt 

1 

1 

0 

1 

i 

j 

k 

1 

Meaning  of  special  bits: 

h:       0=  turn  motor  on,  1=  turn  motor  off 
v:       0=  verify  track,  1=  don't  verify  track 
x/y:  Step  rate  0  0=  6ms 

0  1=  12ms 

10=  20ms 

11  =  30ms 

u:       Set  track  register  to  track  in  sector  header 

0=  no    1=  yes 
m:       0=  read  just  one  sector 

1=  read  several  sectors 
a:      0=  set  data  mark  for  "sector  valid" 

1=  set  data  mark  for  "sector  erased" 
e:       0=  no  head  settling  time 

1=  30ms  head  settling  time 
p:       0=  precompensation  on 

1=  precompensation  off 
i-1:  Interrupt  servicing 
i :  disregard 
j :  disregard 

k:  interrupt  when  index  hole  encountered 
1:  immediate  unconditional  interrupt 

end  command  without  interrupt  for  i-1  =  0 
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Status  register: 

Bit  0:    Busy  flag.  Indicates  that  the  command  is  being 

executed. 
Bit  1:    Data  request/index 

For  all  other  commands  this  bit  signals  that  data 

can  be  taken  from  register  $2003  or  can  be  written 

in  the  register. 
Bit  2:    Lost  data/trackOO 

For  commands  of  type  1  this  bit  indicates  that  the 

head  is  on  track  0 . 

For  all  other  commands  this  bit  indicates  that  the 
data  in  register  $2003  was  not  read  or  written  by 
the  program  in  time. 

Bit  3:    CRC  error.  The  checksum  bytes  of  the  header  or  the 
data  block  decoded  an  error. 

Bit  4:    Record  not  found.  The  specified  track  or  sector  was 
not  found. 

Bit  5  :    Spin-up/Record  type 

For  commands  of  type  1  this  bit  specifies  that  6 
diskette  rotations  have  taken  place.  For  commands  of 
type  2  and  3  this  bit  was  the  value  of  the  "data 
mark. " 

Bit  6:    Write  protect.  This  bit  indicates  when  writing  that 

the  write  protect  tab  is  in  place. 
Bit  7:    Motor  on.  This  bit  gives  the  status  of  the  motor. 

0=  motor  off    1=  motor  on 

As  you  can  see,  the  controller  commands  are  divided  into  different 
command  types.  The  various  command  types  use  the  status  register  in 
different  ways  and  specify  which  parameter  registers  are  used  in  a  certain 
manner.  Some  commands  or  command  bits  control  the  stepper  and  drive 
motors.  This  task  is  not  performed  by  the  IBM-34  controller  on  the 
1570/1571  but  by  the  operating  system.  Therefore  commands  of  type  1  are 
meaningless  on  the  Commodore  disk  drive. 

The  commands  of  type  2  write  and  read  individual  sectors.  Before  one 
of  these  commands  can  be  passed  to  the  command  register,  the  number  of 
the  desired  sector  must  be  written  to  register  $2002.  If  the  desired  sector  is 
not  present,  the  controller  tries  five  times  to  find  the  sector.  If  this  is  not 
successful,  then  bit  4  in  the  status  register  is  set.  The  sector  register  $2002 
indicates  the  number  of  the  next  available  sector. 
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The  commands  in  group  3  serve  to  process  entire  tracks  and  to  analyze 
the  track.  The  first  command,  the  "Read  Address"  command,  reads  the  next 
occurring  sector  header  and  outputs  it  via  data  register  $2003.  The  two  CRC 
bytes  are  also  passed.  Status  bit  3  indicates  if  these  bytes  are  correct  or  if  a 
checksum  error  occurred. 

The  "Read  Track"  command  serves  to  read  an  entire  track,  including  the 
address  marks,  the  gap  bytes,  and  so  on.  The  gap  bytes  may  have  the 
wrong  values  if  they  are  intended  to  synchronize  the  controller.  An  entire 
track  can  be  read  and  analyzed  with  this  function. 

The  opposite  is  the  "Write  Track"  function,  which  writes  an  entire 
track.  This  command  is  used  for  formattng  the  track.  For  this  reason  not  all 
of  the  byte  values  are  written  as  data  bytes  on  the  diskette.  The  values  from 
$F5  to  $F7  have  special  control  functions: 

$F5      ID  address  mark.  Writes  $F5  with  clock  byte  $A1 

(missing  clock  bit  between  bits  4  and  5) 
$F6      Index  mark.  Writes  $F6  with  clock  byte  $C2 

(missing  clock  bit  between  bits  3  and  4) 
$F7      Writes  two  CRC  to  the  diskette  instead  of  the  byte. 

The  checksum  is  calculated  with  the  data  since  the 

last  address  mark. 

The  track  functions  start  reading  or  writing  when  the  index  hole  is 
encountered.  The  track  is  processed  until  the  index  hole  is  encountered 
again  and  the  diskette  has  made  one  complete  revolution. 

Unfortunately  it  is  not  possible  to  copy  entire  tracks  of  a  diskette  to 
another  track  or  to  another  diskette  with  these  two  commands.  The  reason  is 
that  errors  occur  with  the  gap  and  synchronization  bytes  when  reading. 
Beyond  this,  and  this  is  the  most  serious  problem,  the  data  bytes  $F5-$F7 
are  not  written  as  data  bytes  but  are  interpreted  as  control  values  for  address 
and  identification  marks. 

The  interrupt  command  serves  to  interrupt  the  current  function.  The 
condition  under  which  the  command  is  interrupted  can  be  set  through  bits 
i-1.  After  this  command,  you  must  wait  at  least  32  microseconds  before  the 
controller  may  receive  the  next  command.  Otherwise  it  will  not  interrupt  the 
current  command. 
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5.1  How  the  bytes  appear  on  the  diskette 


5.1.1  The  organization  of  a  sector 

The  fundamentals  of  sector  organization  was  discussed  in  Section 
1.1.2.  We'll  now  discuss  this  topic  in  more  depth. 

As  we  already  mentioned,  the  start  of  each  sector  is  provided  with  a 
special  marker  on  Commodore  diskettes.  Through  this  the  electronics  can 
recognize  the  start  of  a  sector  on  the  track.  This  marker  is  called  a 
synchronization  mark,  or  "sync"  for  short. 


-  sync  -  header  -  gap  -  sync  -  data  -  gap  - 


The  figure  shows  the  basic  structure  of  a  sector.  The  sector  starts  with  a 
sync  mark.  Then  follows  the  sector  header,  which  contains  the  following: 


$08  -  checksum  -  sector  -  track  -  ID2  -  ID1  -  $0F  -  $0F  - 


The  first  byte  of  the  header  serves  to  identify  the  header  and  has  the 
value  $08.  The  disk  drive  determines  if  a  sync  mark,  a  header,  or  a  data 
field  follows.  The  data  section  starts  with  the  marker  $07. 

Next  follows  the  checksum  of  the  header.  In  order  to  calculate  it  the 
track  and  sector  numbers  as  well  as  both  ID  characters  are  added.  The  next 
two  bytes  of  the  header  contain  track  and  sector  numbers  of  the  header.  The 
disk  drives  uses  this  data  to  find  a  given  sector. 
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Finally,  every  sector  header  contains  the  two  ID  characters  which  were 
specified  when  you  formatted  the  diskette.  These  characters  are  read  and 
checked  upon  each  access.  If  the  ID  characters  have  changed,  then  the  disk 
drive  assumes  that  the  diskette  was  changed. 

The  two  byte  values  $0F  have  no  control  function.  They  produce  the  bit 
sequence  "01010101"  on  the  disk,  which  synchronizes  the  read  electronics. 

The  sector  header  is  followed  by  a  9-byte  gap  before  the  actual  data 
section  begins.  This  gap  is  to  allow  enough  time  to  enable  and  activate  the 
write  operation  when  writing. 

Then  comes  the  sector  data.  In  order  to  recognize  the  start  of  the  sector 
exactly,  the  data  section  is  preceded  by  a  sync  mark.  The  first  byte  after  the 
sync  mark  has  the  value  $07.  This  is  so  the  data  section  can  be 
distinguished  from  the  sector  header.  After  the  data  marker  follow  the  256 
data  bytes  of  the  sector.  At  the  end  is  another  checksum  composed  of  the 
sum  of  the  data  bytes. 


-  sync  -  $07  -  data  bytes  -  checksum  - 


After  each  sector  is  another  gap.  Its  length  depends  on  the  number  of 
sectors  on  the  track  and  the  track  number. 


5.1.2  The  sync  marks 

As  you  know,  the  1570/1571  does  not  use  the  index  hole  to  recognize 
the  start  of  sectors  for  the  Commodore  formats  but  uses  specially  recorded 
marks  on  the  disk,  called  sync  marks. 

These  marks  consist  of  5  bytes  with  the  value  $FF  (40  bits  with  the 
value  1).  The  read  electronics  recognize  when  more  than  10  bits  with  the 
value  1  have  been  read  and  then  generate  the  sync  signal.  This  signal  is  used 
by  the  disk  operating  system  when  it  is  waiting  for  the  next  sector.  This 
mark  also  tells  the  read  electronics  when  the  data  bits  of  a  byte  begin  by 
waiting  until  the  1  signals  of  the  sync  mark  are  past. 
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This  sync  mark  causes  some  problems  on  the  1571.  Certainly  you  have 
noticed  that  when  booting  the  CP/M+  operating  system,  included  with  the 
computer,  that  the  disk  drive  blinks  for  a  long  time.  In  addition,  the  process 
runs  a  good  30  seconds  faster  if  you  copy  the  operating  system  to  a  diskette 
whose  second  side  is  unformatted. 

The  reason  for  this  behavior  is  that  the  drive  light  always  flashes  when 
initializing  the  diskette  and  the  process  takes  a  long  time  if  the  sync  marks 
are  on  the  second  side.  After  a  new  disk  is  inserted,  the  1571  tries  to 
determine  if  both  sides  are  formatted.  To  do  this  it  attempts  to  read  from 
both  sides.  When  reading,  the  disk  drive  naturally  orients  itself  according  to 
the  sync  marks.  If  you  insert  a  diskette  which  is  formatted  on  both  sides  in 
which  you  formatted  one  side  of  the  disk  and  then  flipped  it  over,  the 
following  takes  place:  The  disk  drive  reads  from  the  reverse  side  until  a 
sync  mark  is  encountered.  If  this  does  not  occur  within  a  certain  time,  then 
the  disk  drive  assumes  that  the  second  side  is  unformatted.  But  on  the  type 
of  diskette  described,  there  are  sync  marks  on  both  sides  of  the  diskette. 
The  fact  that  the  diskette  is  running  backwards  on  the  second  side  from  the 
way  it  is  usually,  does  not  make  a  difference  since  a  sequence  of  1-values, 
the  sync  marks,  has  the  same  effect  read  forwards  or  backwards.  Only  the 
following  data  is  not  the  sector  header  or  the  data  block,  but  the  bytes  of  a 
gap. 

The  read  logic  therefore  signals  an  error.  The  catch  is  that  the  disk  drive 
then  initiates  an  error-handling  procedure.  The  read  is  attempted  several 
more  times,  whereby  the  head  is  repositioned  slightly.  This  procedure  takes 
a  good  deal  of  time,  however. 

It  is  therefore  advisable  to  copy  double-sided  disks  which  where  used 
in  a  single-sided  drive  by  turning  them  over  to  a  single-sided  format.  C-64 
or  VIC- 1541  users  who  want  to  make  better  use  of  their  diskettes  in  this 
manner  must  take  into  account  that  the  initialization  process  on  the  1571  will 
take  somewhat  longer. 

A  solution  to  the  problem  would  also  be  possible  with  the  USER-0 
command  "U0>ra".  This  sets  the  number  of  read  attempts  which  will  be 
executed  for  an  error  to  the  value  1.  This  supresses  the  error  routine. 
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5.1.3  What  is  GCR  coding? 


You  have  probably  asked  yourself  how  the  data  bytes  are  recorded  in 
Commodore  format  since  data  bytes  with  the  value  $FF  could  be  interpreted 
as  sync  marks. 

The  recording  format  is  rather  exotic  because  different  recording  rates 
are  used  on  different  tracks.  The  Commodore  format  belongs  neither  to  the 
single-density  formats  which  transfer  data  at  a  rate  of  250,000  bits  per 
second,  nor  to  the  double-density  formats  which  work  at  500,000  bits  per 
second.  A  recording  rate  is  used  which  varies  between  250,000  to  307,692 
bits  per  second.  Since  the  outer  tracks  have  a  greater  circumference  than  the 
inner  tracks,  you  can  also  store  more  data  on  them.  Therefore  there  are  four 
different  track  zones  on  Commodore  diskettes: 

Track  number    Recording  rate    Sectors  per  track 


1  - 

17 

38461 

bytes/sec 

21 

18  - 

24 

35714 

bytes/sec 

19 

25  - 

30 

33333 

bytes/sec 

18 

31  - 

35 

31250 

bytes/sec 

17 

The  GCR  process  is  used  to  record  the  data.  GCR  stands  for  Group 
Code  Recording.  In  this  method,  4  data  bits  are  converted  into  5  GCR  bits. 
A  data  byte,  comprised  of  8  bits,  is  represented  by  10  GCR  bits.  To  do  this 
one  divides  the  data  byte  into  two  halves,  the  low-order  half  (0-3)  and  the 
high-order  half  (bits  4-7).  The  bits  of  each  of  these  halves  are  converted 
according  to  the  table  on  the  next  page. 

Thse  GCR  values  are  chosen  such  that  a  zero  is  written  after  a 
maximum  of  four  1-bits.  As  a  result,  after  data  bytes  are  converted  to  GCR 
bytes,  the  longest  possible  sequence  of  l's  is  a  sequence  of  eight,  so  data 
will  never  be  interpreted  as  a  sync  mark.  In  addition,  no  more  than  two  bits 
with  the  value  0  ever  follow  each  other  with  GCR  values.  This  is  important 
because  the  read  electronics  equalizes  drive  fluctuations  through  the  1-bits. 

Data  bytes  are  always  converted  in  groups  of  four  by  the  disk  operating 
system.  In  this  case  the  result  is  exactly  5  bytes  with  the  corresponding 
GCR  values.  Data  is  not  converted  automatically,  however,  but  must  be 
performed  by  a  program.  The  DOS  contains  routines  which  perform  the 
conversion  by  means  of  an  algorithm  or  with  the  help  of  tables.  The  first 
method  has  the  disadvantage  that  the  program  is  more  complex  and  runs 
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slowly,  while  the  table  method  requires  more  memory  space,  but  is 
somewhat  simpler  and  faster. 


Decimal    Binary  byte    GCR  code 


0 

0000 

01010 

1 

0001 

01011 

2 

0010 

10010 

3 

0011 

10011 

4 

0100 

OHIO 

5 

0101 

01111 

6 

0110 

10110 

7 

0111 

10111 

8 

1000 

01001 

9 

1001 

11001 

10 

1010 

11010 

11 

1011 

11011 

12 

1100 

01101 

13 

1101 

11101 

14 

1110 

11110 

15 

1111 

10101 

This  conversion  of  the  binary  data  to  GCR  values  and  back  again  is  one 
of  reasons  the  disk  drive  needs  its  own  microprocessor  system  and  buffer 
storage.  The  data  cannot  be  converted  as  fast  as  they  must  written  to  the 
diskette  (see  recording  rate).  The  data  are  stored  temporarily,  converted,  and 
then  transferred  to  the  disk. 

Here  are  some  examples  of  how  4  binary  bytes  would  be  converted  to 
GCR  values: 


Data  bytes      $01  $02  $03  $04 

Binary  value  0000  0001  0000  0010  0000  0011  0000  0100 
GCR  value  0101001011010101001001010100110101001110 
GCR  bytes        $52  $C5  $25  $4C  $4E 

Data  bytes  $A1  $FC  $65  $9D 

Binary  value  1010  0001  1111  1100  0110  0101  1001  1101 

GCR  value  1101001011101010110110110011111100111101 

GCR  bytes  $D2  $EA  $DB  $3F  $3D 
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5.2  How  the  bytes  get  on  the  diskette 


5.2.1  1570/1571  circuitry 


The  following  sections  describe  the  control  system  of  the  disk  drive. 
Predominantly  this  involves  how  certain  electronic  components  are  used  in 
the  1570/1571  and  what  tasks  they  perform.  Naturally,  this  section  cannot 
offer  a  complete  introduction  into  microprocessor  techniques.  Also,  the 
components  used  in  the  1570/1571  can  be  discussed  only  in  reference  to 
their  functions  in  the  drive. 

We  will  not  try  to  replace  a  complete  schematic  here-we  can  only 
clarify  some  of  the  more  important  elements  of  the  disk  drive. 

The  heart  of  the  microcomputer  is  a  6502B  processor.  This  can  be 
driven  at  a  clock  rate  of  2MHz.  The  clock  can  be  switched  between  1  and 
2MHz  on  the  1570/1571.  In  the  1541  mode  the  disk  drive  uses  the  slower 
processor  frequency  since  the  VIC- 1541  also  works  with  this  frequency.  If 
the  disk  drive  is  in  the  1571  mode,  the  processer  will  be  clocked  at  2MHz. 
The  bus  routines  are  the  reasons  for  the  different  clock  frequencies.  In  this 
program  sections  in  depends  on  the  timely  course  of  the  bus  signals  that  the 
disk  drive  reacts  fast  enough  and  that  the  data  are  outputted  in  the  proper 
intervals. 

The  higher  clock  frequency  of  2MHz  has  some  advantages.  The  data 
which  are  read  from  the  disk  can  be  processed  more  quickly.  This  concerns 
the  GCR  conversion,  for  example,  since  it  is  now  possible  to  convert  a  byte 
from  GCR  to  binary  as  soon  as  it  is  read.  Beyond  this,  the  bus  can  be 
operated  at  a  maximum  transfer  rate  of  500,000  baud.  At  this  speed  it  is 
possible  to  send  an  entire  track  to  the  computer  immediately  during  reading. 
The  fact  that  these  superb  capabilities  are  not  used  is  the  fault  of  the  1570/71 
operating  system  alone. 

Connected  to  the  processor  are  three  input/output  components,  an 
IBM-34-format  controller,  2K  of  RAM,  and  32K  of  ROM.  These  individual 
components  occupy  the  following  address  ranges: 
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Range  Component 


$0000  - 

$07FF 

2K  RAM 

$1800  - 

$180F 

6522  (VIA1) 

Controls  bus  and  1571  electronics 

$1C00  - 

$1C0F 

6522  (VIA2) 

Controls  recording  electronics, 
motor,  etc. 

$2000  - 

$2003 

WD  1770 

Controls  IBM-34  recording 

$4000  - 

$400F 

6526  (CIA1) 

Controls  fast  bus  mode 

$8000  - 

$FFFF 

32K  ROM 

Operating  system 

5.2.2  The  interface  components 

This  section  involves  the  interface  components  of  the  type  6522  and 
6526.  The  data  sheets  for  the  6522,  available  from  many  semiconductor 
vendors,  are  recommended  for  better  understanding  of  these  circuits. 
Unfortunately  there  is  no  public  support  for  the  6526  since  it  is  a 
development  of  Commodore.  Detailed  information  about  the  6526  can  be 
found  in  the  Anatomy  of  the  C-64  and  C-128  Internals  from  Abacus. 

We  will  first  talk  about  the  6522,  also  called  a  VIA  (Versatile  Interface 
Adapter).  The  1570/1571  has  two  such  components.  The  VIA  pins  are 
assigned  as  follows: 
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Pin      Name  Function 


2-9 

PA 

8  data  lines 
freely 

which  can  be  programmed 

1U~1  / 

PB 

8  data  lines 
freely 

which  can  be  programmed 

18 

CB1 

Control  line 

19 

CB2 

Control  line 

26-33 

D7-0 

8  data  lines 

to  the  processor 

39 

CA1 

Control  line 

40 

CA2 

Control  line 

The  individual  control  and  data  lines  of  the  VIA  are  controlled  by  the 
computer.  The  VIA  has  16  registers  which  lie  in  the  memory  range  of  the 
computer,  via  which  the  computer  can  control  the  input/output  component 
by  writing  values  in  the  registers.  In  addition,  the  VIA  has  two  built-in 
counters.  These  count  the  processor  clock  pulses.  Once  the  counters  have 
reached  certain  values,  various  actions  can  be  generated.  This  can  be  used  to 
program  a  certain  time  span  after  which  a  signal  is  generated.  This  is  why 
these  counters  are  usually  called  timers. 

The  VIA  has  two  sets  of  8  input/output  lines.  The  data  register 
determines  which  lines  are  used  as  input  and  which  as  output,  whereby  each 
bit  of  the  register  corresponds  to  a  line.  If  the  bit  has  the  value  0,  the 
corresponding  line  is  used  as  input,  while  the  connection  functions  as  input 
for  the  value  1.  When  used  as  input,  the  arriving  signal  is  placed  in  the 
appropriate  bit  of  the  data  register.  If  the  data  line  is  switched  to  output,  the 
level  of  the  corresponding  bit  in  the  data  register  is  outputted. 

The  two  data  ports  are  called  PA  and  PB.  Port  PA  has  two  different 
data  registers.  If  you  work  with  data  register  $01,  then  writing  a  new  value 
to  this  register  will  always  affect  the  control  lines.  For  example,  a  pulse  can 
be  sent  over  the  control  line  through  which  the  receiving  logic  recognizes 
that  a  new  signal  is  ready  on  the  port.  This  function  is  not  used  by  the 
1570/1571  however.  It  is  therefore  irrelevant  which  of  the  two  data  registers 
you  use. 
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Register  layout  of  the  VIA  6522 


Address  Function 


n 

Data  register  for  PB 

n 

+ 

$01 

Data  register  for  PA  with  handshaking 

n 

+ 

$02 

Data  direction  register  for  PB 

n 

+ 

$03 

Data  direction  register  for  PA 

n 

+ 

$04 

Low  byte  of  timer  1 

n 

+ 

$05 

High  byte  of  timer  1 

n 

+ 

$06 

Output  value  of  timer  1  (low  byte) 

n 

+ 

$07 

Output  value  of  timer  1  (high  byte) 

n 

+ 

$08 

Low  byte  of  timer  2 

n 

+ 

$09 

High  byte  of  timer  2 

n 

+ 

$0A 

Serial  input/output  line 

n 

+ 

$0B 

Auxiliary  control  register 

n 

+ 

$0C 

Peripheral  control  register 

n 

+ 

$0D 

Interrupt  flag  register 

n 

+ 

$0E 

Interrupt  mask 

n 

+ 

$0F 

Data  register  for  PA  (without  handshaking) 

n=  $1800  for  VIAl 
$1C00  for  VIA2 

In  addition  to  the  input/output  lines  there  are  also  the  control  lines  CA 
and  CB.  These  have  control  functions  when  writing  to  the  data  registers,  as 
mentioned  before.  CA  and  CB  can  also  be  used  as  normal  input/output 
lines.  This  is  there  task  in  the  1570/1571.  The  mode  in  which  the  control 
lines  are  operated  or  the  level  they  have  is  determined  in  the  peripheral 
control  register: 

Peripheral  control  register: 

Bit      0:0=  CA1  input  on  falling  edge 

1    =  CA1  input  on  rising  edge 
Bits  1-3:  110=  CA2  output  with  low  level 

111=  CA2  output  with  high  level 
Bit      4:0=  CB1  input  interrupt  on  falling  edge 

1    =  CB1  input  interrupt  on  rising  edge 
Bits  5-7:  110=  CB2  output  with  low  level 

111=  CB2  output  with  high  level 
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The  control  lines  of  the  two  VIAs  are  used  for  the  following  purposes: 

Line  Function 


VIA1  CA1    Input  for  ATN  signal  of  the  serial  bus 
Creates  interrupt  on  rising  edge  of  ATN 


VIA1  CB1    Write  protect  signal.  Flag  in  the 

interrupt  register  is  set  on  a  falling 
edge.  This  means  that  write  protect  light 
barrier  was  interrupted  and  the  disk  was 
changed . 


VIA2  CA1     Input.  Sets  flag  in  interrupt  register 

on  negative  edge  of  the  byte  ready  signal, 
which  indicates  that  a  byte  was  read  or 
written . 


VI A2  CA2    Output  for  the  SOE  signal  (serial  output 
enable) .  1=  read/write  electronics 
activated  and  the  byte-ready  signal 
requested. 


VIA2  CB2    Head  mode 

0=  write  data 
1=  read  data 


The  control  lines  are  used  especially  in  VIA2.  They  set  the  read/write 
electronics  or  receive  return  messages.  The  most  important  signal  of  mis 
type  is  the  byte-ready  input  This  signal  indicates  when  the  read/write  logic 
has  processed  a  byte  and  written  it  to  the  disk  or  when  a  byte  has  been  read 
from  the  disk  and  is  now  available  for  further  processing.  The  byte-ready 
signal  is  also  sent  to  the  PA7  input  of  VIA1  and  the  SO  input  (set  overflow) 
on  the  processor.  These  last  two  inputs  are  used  and  tested  by  the  disk 
operating  system.  In  the  1571  mode,  PA7  is  used,  while  SO  is  used  in  the 
1541  mode.  A  high  level  on  SO  has  the  result  that  the  overflow  flag  of  the 
processor  is  set.  In  this  manner  the  byte-ready  signal  can  be  very  easily 
processed  with  the  6502  instructions  BVC  and  BVS. 

The  most  important  tasks  of  the  two  VIA  components  are  not 
accomplished  with  the  control  lines,  but  with  the  ports  PA  and  PB.  Here  is 
the  layout  of  these  input/output  lines: 
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fl=  1^70/71  bus  is  incut 
1=  1570/71  bus  is  output 
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Active  head  (only  for  1571) 
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Drive  mode  and  processor  clock 

0=  1541  mode  with  1MHz  clock  frequency 

1=  1S71  mode  with  2MHz  clock  frequency 
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0=  diskette  is  write  protected 
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(see  ROM  listing  $9409) 
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I 

Data  sent  from  the  read  electronics 
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Another  interface  component  used  in  the  disk  drive  is  the  CIA  6526. 
This  input/output  device  is  also  used  in  the  C-64  and  C-128.  The  CIA 
component  is  very  similar  to  the  6522.  It  contains  a  real-time  clock  with  an 
alarm. 

In  the  1570/1571  only  the  serial  input/output  (SP)  and  the  coresponding 
clock  line  (CNT)  are  used.  Both  of  these  inputs  are  responsible  for  the 
transfer  of  data  in  the  fast  bus  mode.  You  can  find  out  more  about  this  in 
Section  5.2.6. 

Naturally,  the  CIA  6526  also  has  two  8-bit  parallel  ports,  which  are  not 
used.  You  have  the  option  of  using  these  lines  for  your  own  applications. 
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5.2.3  The  WD  1770  controller 


The  WD  1770  is  manufactured  by  Western  Digital  and  is  software 
compatible  with  the  WD  179x  series,  which  are  also  produced  by  other 
manufacturers.  This  28-pin  component  contains  everything  necessary  for 
controlling  a  disk  drive.  This  includes  logic  for  controlling  the  stepper 
motor,  for  example,  to  move  the  read/write  head.  Beyond  this,  all 
components  required  to  read  and  write  data  are  integrated  into  the  WD  1770. 

The  stepper  control  of  the  WD  1770  is  not  used  in  the  1570/1571  disk 
drive.  The  operating  system  takes  care  of  this  through  VIA2.  Only  the 
signals  for  write  protect  and  track  0  are  connected  to  the  WD  1770.  This 
inhibits  writing  to  write-protected  disks  even  if  the  operating  software  does 
not  check  the  write  protect. 

Naturally,  it  is  possible  to  control  the  stepper  motor  through  the  WD 
1770  with  some  add-on  circuitry.  If  you  modify  the  operating  system 
accordingly,  this  would  have  the  advantage  that  the  DOS  would  no  longer 
be  concerned  with  head  positioning  and  could  accomplish  other  tasks 
instead. 

Another  possible  modification  would  be  to  disconnect  pin  26.  This 
signal  is  tied  to  ground,  so  the  MFM  recording  procedure  is  always  used.  If 
you  use  single-density  diskettes,  recorded  with  the  FM  procedure,  you  can 
set  the  controller  accordingly  by  tying  pin  26  to  5V  (this  is  possible  with  a 
IK  resistor  ).  You  can  also  build  a  switch  with  which  you  can  select 
between  double  and  single  density  (depending  on  whether  pin  26  is  at  0  or 
1).  The  operating  software  of  the  1570/1571  doesn't  notice  any  of  this,  and 
the  CP/M+  operating  system  works  well  with  single-density  diskettes. 
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Pin  layout  of  the  WD  1770: 


Pin    Name  Function 


1  CS 

2  R/W 
3/4  AO/1 

5-12  DO-7 

13  MR 

14  GND 

15  Vcc 

16  STEP 

17  DIRC 


18  CLK 

19  RD 


20 
21 

22 


23 
24 


MO 
WG 

WD 


TR00 
IP 


25  WPRT 


26  DDEN 

27  DRQ 

28  INTRQ 


Chip  select.  A  low  signal  on  this  pin 

addresses  the  chip. 

0=  write  to  registers 

1=  read  from  registers 

Address  lines  which  select  the  desired 

register  when  CS=0 

Data  bus  to  the  processor 

A  low  level  causes  a  reset 

Ground  connection 

+5V 

Output  for  step  pulses  for  the  head 

motor 

Direction 

0=  head  moves  to  the  outside 
1=  head  moves  to  the  inside 
Input  for  operating  clock  of  8MHz 
Read  data.  Pulses  from  the  disk.  This 
information  contains  clock  as  well  as 
data  bits. 

Motor  on.  Switch  on  output  to  the  motor. 

Write  gate.  This  output  will  high  if  the 

disk  is  being  written. 

This  is  the  data,  together  with  the 

clock  bits,  which  will  be  written  to  the 

disk. 

Track  0  input:  0=  head  on  track  0 

1=  head  not  on  track  0 
Index  pulse:  0=  index  light  barrier 
interrupted 
1=  index  light  barrier  not 
interrupted 
Write  protect:     0=  disk  is  write 

protected 
1=  disk  is  writable 
Double  density.  0=  double  density 
1=  single  density 
Data  request .  1=  data  register  is  ready 
Interrupt  request.  1=  end  command 
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5.2.4  The  Commodore  controller 


For  the  Commodore  formats  the  recording  is  handled  by  another 
controller.  The  word  "controller"  is  going  a  bit  far,  since  it  actually  involves 
a  digital  logic  network  to  which  entire  bytes  are  sent  and  which  writes  them 
in  serial  to  the  diskette.  This  network  is  placed  in  a  gate  array  chip  produced 
by  Commodore.  For  this  reason  we  have  no  description  of  the  pin  layout 
here  since  Commodore  does  not  offer  any  support  for  this  device.  Those  of 
you  who  are  still  interested  in  the  construction  of  this  device  should  take  a 
look  at  the  older  Commodore  disk  drive  models,  which  did  not  use  this  gate 
array. 

The  construction  of  the  Commodore  hardware  has  not  changed  much 
over  the  course  of  the  years.  For  this  reason  we  can  refer  you  to  the 
literature  on  the  4040  and  1541  since  these  devices  contain  the  same  basic 
functions  as  the  1570/1571-just  not  in  a  gate  array. 

The  gate  array  consists  of  two  important  parts:  a 
parallel-serial/serial-parallel  converter  and  a  BCD  counter.  The  data  byte  to 
be  written  is  sent  from  PA  of  VIA2  to  a  shift  register.  From  there  it  is  sent 
on  to  the  write  electronics  with  the  clock  CLK,  which  is  created  with  a 
programmable  divider  and  the  signals  DSO  and  DS1  (see  VIA2),  which  then 
amplifies  the  pulses  and  controls  the  head  coil. 

The  same  thing  happens  when  reading,  only  reverse  order.  In  addition, 
a  counter  is  reset  each  time  a  0-bit  is  encountered.  The  counter  starts  to 
work  when  bits  with  the  value  1  are  encountered.  This  happens  until  a  0-bit 
is  encountered  Once  the  counter  has  reached  the  value  10,  the  SYNC  signal 
is  generated,  since  no  more  than  8  ones  can  occur  in  a  row  with  normal 
GCRdata. 
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5.2.5  The  1541  and  1570/1571  modes 


The  disk  drive  can  be  operated  in  two  different  modes.  The  first  of 
these  is  the  1541  mode  and  the  second  is  the  1570/1571  mode.  In  the  1541 
mode  the  1570/1571  disk  drive  is  intended  to  be  compatible  with  the  1541. 
This  is  why  a  clock  frequency  of  1MHz  is  used  in  this  mode.  Primarily  the 
DOS  uses  the  ROM  routines  $C000  to  $FFFF,  which  are  identical  to  the 
1541  ROM.  The  disk  controller  routine  is  not  used  because  the  new 
hardware  features,  such  as  the  track  0  recognition,  are  recognized  only  by 
the  1571  ROM. 


A  more  serious  difference  is  that  only  one  side  of  the  disk  can  be  used, 
even  double-sided  1571  diskettes.  This  mode  has  the  advantage  that  the 
problems  with  two-sided  disks  ("flippies")  discussed  in  Section  5.1.2  do 
not  occur. 


The  additional  functions  available  via  USER-0  can  no  longer  be 
performed  in  the  1541  mode.  The  only  exceptions  are  the  head  and  mode 
commands,  which  do  not  function  in  the  1570/1571  mode  since  they  are  not 
allowed  there. 


The  bus  can  service  only  the  normal  C-64  algorithm  in  the  1541  mode. 
In  the  1570/1571  mode,  bom  the  new,  fast  bus  mode  and  the  old  bus  mode 
are  possible.  This  depends  on  the  device  with  which  the  disk  drive  is 
communicating  and  is  determined  anew  for  each  transfer. 

After  the  disk  drive  is  turned  on  it  is  always  in  the  1541  mode.  The 
1571  can  be  reached  only  with  the  "u0>ml"  command.  The  C-128 
performs  this  during  its  reset  procedure. 
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5.2.6  The  serial  bus  -  technology  and  function 


The  serial  bus  is  the  connection  between  the  computer  and  peripheral 
devices  connected  to  it.  The  disk  drive  is  controlled  and  data  are  transferred 
over  this  bus.  It  will  be  thoroughly  discussed  in  this  section  so  that  not  only 
can  beginners  learn  how  the  data  communication  between  the  disk  drive  and 
computer  works,  but  more  advanced  programmers  can  also  get  useful 
information  about  working  with  the  bus. 

The  bus  consists  of  six  lines  whose  significance  is  discussed  in  more 
detail: 


Pin 

Name 

Function 

1 

SRQ 

Serial  request .  This  line  serves  as  the 
clock  line  for  the  fast  bus  mode. 

2 

GND 

Ground  connection.  Sets  up  a  common 
zero-potential  between  all  connected 
devices . 

3 

ATN 

Attention  signal.  Indentifies  controller 
commands . 

4 

CLK 

Clock  line  in  the  normal  bus  mode. 

5 

Data 

Data  line  in  the  normal  bus  mode. 

6 

Reset  Computer  reset  signal.  If  the  computer 
is  reset  or  turned  on,  all  connected 
peripheral  devices  will  be  reset  via 
this  line . 

The  lines  GND  (pin  2)  and  Reset  (pin  6)  cannot  be  affected  by  the 
computer  system.  GND  is  the  ground  potential  of  the  computer.  The 
ground  connections  of  the  all  the  peripherals  are  tied  together  through  this 
lien,  creating  a  unified  OV  potential  because  the  differences  will  be 
equalized.  In  this  manner  a  logical  0  on  all  devices  corresponds  to  the  same 
voltage. 
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The  Reset  line  passes  the  pulse  created  on  power-up  or  through  the 
reset  button  on  to  the  peripheral  devices.  These  then  behave  as  if  the  result 
pulse  which  arises  when  the  peripheral  is  turned  on  had  been  created  and 
enter  their  initial  states.  If  a  device  attached  to  the  computer  is  turned  on,  no 
pulse  may  be  created  on  the  line.  There  are  some  improperly  constructed 
devices  here  and  there  which  do  exhibit  this  behavior.  This  results  in  the 
computer  being  reset  if  you  turn  on  a  device  connected  to  the  computer.  A 
tip:  first  turn  on  all  peripherals  you  will  need  and  then  turn  the  computer  on. 
This  way  you  can  be  sure  that  all  devices  are  in  their  proper  initial  states. 

The  remaining  lines  of  the  serial  bus  are  controlled  by  the  computer. 
The  computer  is  called  the  controller  since  it  controls  the  action  on  the  serial 
bus.  Since  this  communication  usually  takes  place  between  the  computer 
and  the  peripheral,  this  is  the  normal  case,  but  it  is  not  necessarily  so.  Two 
disk  drives  can  exchange  information  with  each  other~the  bus  logic  is  not 
confused  as  a  result.  Such  transfers  are  not  supported  by  the  Commodore 
operating  system,  however. 

On  the  serial  bus  you  must  note  that  only  one  device  may  send  data. 
This  device  is  called  the  talker.  Several  devices  may  listen  at  the  same  time, 
and  these  are  called  listeners.  The  controller  determines  which  device 
functions  as  talker  and  which  as  listener. 

Now  you  can  understand  why  two  computers  cannot  be  attached  to  the 
same  peripheral  device.  In  this  case  there  would  be  two  computers  which 
could  both  issue  instructions  at  the  same  time  regarding  who  may 
communicate  with  whom-resulting  in  total  chaos.  In  addition,  mere  is  a  line 
that  may  be  controlled  by  only  one  computer. 

The  problem  of  connecting  two  computers  does  not  lie  with  the  bus 
logic  but  with  the  software,  i.e.  the  operating  system.  You  could  develop  a 
program  which  makes  the  computer  appear  like  a  peripheral  device,  and 
could  then  be  attached  to  another  computer  system. 

A  total  of  four  lines  are  available  for  transferring  data.  Since  the 
procedures  on  the  bus  can  be  very  complicated,  we  will  use  the  process  of 
"stepwise  refinement"  in  explaining  them.  This  means  that  you  will  learn 
first  about  the  rough,  fundamental  relationships.  Later  we  will  investigate 
the  processes  in  more  detail-down  to  the  analysis  of  the  schematic  of  the 
bus  electronics. 

The  central  control  of  the  bus  procedures  is  assumed  by  the  controller. 
There  is  a  special  line,  called  ATN  (attention),  which  is  activated  by  the 
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controller  when  it  wants  to  send  a  command  to  the  peripheral  devices.  All 
data  sent  while  ATN  is  active  (high  state)  are  commands.  These  normally 
consist  of  two  bytes,  whereby  the  first  byte  is  constructed  as  follows: 

Bits  0-4  :  Device  address  of  the  device  concerned 
Bit     5       :  1=  addressing  as  listener 
Bit     6       :  1=  addressing  as  talker 

Bit    7       :  0=  marker  for  primary  address  (1st  command  byte) 
1=  marker  for  secondary  address 

Bit  7  of  the  command  byte  indicates  whether  the  byte  is  the  first  byte, 
containing  the  primary  address,  or  the  second  byte  containing  the  secondary 
address.  When  calling  a  device,  the  first  command  byte  is  sent  first.  Bits  5 
and  6  specify  if  the  device  is  to  act  as  the  talker  or  a  listener.  These  two  bits 
therefore  control  whether  the  connected  device  will  send  or  receive  data. 
Only  one  of  the  two  bytes  may  ever  be  set  since  a  device  cannot  send  and 
receive  data  at  the  same  time. 


Bits  0-4  of  the  primary  byte  specify  the  number  of  the  device  for  which 
the  command  is  intended,  which  may  he  between  0  and  30.  For  this  reason 
each  device  must  follow  the  proceedings  on  the  bus  whenever  the  ATN  line 
is  active  to  see  if  it  is  being  addressed. 

The  device  address  31  has  a  special  function  and  serves  to  set  up  the 
data  transfer  on  the  bus  again.  If  this  address  is  used,  all  peirpheral  devices 
reset  their  bus  logic  and  end  the  current  talker  or  listener  functions.  This 
usually  concerns  only  one  device,  the  one  the  computer  is  communicating 
with.  It  is  also  possible,  however,  for  two  peripherals  to  exchange  data  or 
for  several  devices  to  be  in  the  listener  mode.  In  this  case  all  devices  are 
reset  by  this  device  address.  For  this  reset  function  bits  5  and  6  have  the 
same  meanings  as  for  normal  device  addresses.  In  this  manner  listeners  and 
talkers  can  be  reset  independently  of  each  other,  whereby  these  commands 
then  receive  the  designations  unlisten  and  untalk. 

In  most  cases,  the  addressing  of  the  peripheral  device  does  not  suffice. 
That's  because  you  would  usually  like  to  control  special  functions  of  the 
device,  which  is  done  through  the  secondary  address.  If  a  secondary 
address  is  used,  then  a  second  control  byte  is  sent  in  the  ATN  command 
mode.  This  can  be  recognized  since  bit  7  is  set.  Bits  5  and  6  always  have 
the  value  1  for  the  secondary  byte.  Bit  4  specifies  if  the  secondary  channel 
is  to  be  opened  or  closed.  The  number  of  the  desired  channel  must  be  given 
in  bits  0-3. 
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Here  is  an  overview  of  the  various  control  bytes: 


Control  byte 

Function 

OlOxxxxx 

Talker  call 

01011111 

Untalk 

OOlxxxxx 

Listener  call 

00111111 

Unlisten 

llllyyyy 
lllOyyyy 
OllOzzzz 

Open  secondary  address 

Close  secondary  address 

Send  secondary  address  for  listener 

and  talker  operation 

As  you  already  know,  every  peripheral  must  analyze  the  command 
bytes  in  the  ATN  mode  to  see  if  it  is  concerned  by  the  command.  What 
happens  if  a  device  is  busy?  Imagine  that  the  disk  drive  is  formatting  a  disk 
or  mat  the  printer  is  outputting  a  line  at  this  moment.  In  this  phase  the 
processor  system  of  the  peripheral  device  is  busy  with  its  work  and  has  no 
time  to  pay  attention  to  the  bus  traffic. 

For  this  reason  a  procedure  called  "handshaking"  is  used,  with  whose 
help  the  data  flow  can  be  controlled.  Just  like  you  don't  go  storming  into 
your  boss's  office  but  knock  on  the  door  first  and  wait  for  "Come  in,"  so 
the  bytes  are  not  outputted  on  the  until  the  computer  makes  sure  that  all  the 
devices  are  listening. 

The  control  signals  necessary  for  this  are  sent  over  the  clock  and  data 
line  and  have  the  following  significance: 

Data    0=  all  peripherals  ready 

1=  peripheral (s)  not  ready 
Clock  0=  controller  ready 

1=  controller  is  not  sending  data 

The  following  happens  if  a  device  is  to  be  addressed: 

First  the  ATN  line  is  activated,  which  signals  that  a  command  follows. 
The  controller  then  sets  the  clock  line  to  the  value  1  to  indicate  that  the  data 
byte  has  not  been  sent  yet.  At  the  same  time  it  places  the  value  0  on  the  data 
line.  Through  electronic  switching,  the  data  line  is  automatically  set  to  the 
condition  "  1"  at  every  peripheral  device. 
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Now  the  peripheral  devices  have  time  to  prepare  for  the  reception  of  the 
control  byte.  If  the  peripheral  is  ready  to  process  the  control  byte,  then  it 
sets  its  data  output  back  to  the  value  0.  Once  the  last  peripheral  has  reset  its 
data  line,  the  level  on  the  data  line  goes  back  to  zero,  which  tells  the 
controller  that  all  devices  are  ready. 

The  controller  determines  if  anything  is  even  connected  at  the  start  of 
this  addressing  phase.  It  checks  to  see  if  the  data  line  is  set  to  the  value  1 
within  one  millisecond.  This  gives  a  peripheral  device  which  doesn't  have 
automatic  switching  to  set  the  data  line  enough  time  to  react  to  the  controller 
call.  If  the  data  line  is  not  set  high,  then  the  computer  outputs  the  error 
message  "Device  not  present .  " 

When  all  peripheral  devices  are  ready,  the  controller  sets  the  clock  like 
to  the  0  state.  This  is  the  signal  for  the  connected  devices  that  the  transfer  is 
beginning.  No  more  handshaking  is  done.  The  peripheral  devices  must  all 
be  fast  enough  to  process  the  data.  A  data  bit  is  outputted  on  the  data  line 
with  each  low  pulse  on  the  clock  line.  In  the  time  span  between  the  two  data 
bits  the  clock  line  assumes  the  condition  1,  telling  the  connected  devices  that 
they  should  indicate  whether  or  not  they  received  the  data  bit.  To  do  this, 
the  talker,  which  in  this  case  is  the  computer,  sets  the  data  line  to  the  value 
0.  If  the  peripheral  device  received  the  data  bit,  it  must  tell  the  talker  this  by 
outputting  a  high  level  on  the  data  line.  The  talker  notices  only  to  the  first 
device  which  responds  in  this  manner.  If  additional  listeners  are  present,  the 
messages  of  these  devices  will  be  ignored.  For  the  talker,  it  is  interesting 
only  whether  at  least  one  listener  is  present  or  not.  If  the  acknowledgement 
of  the  data  bit  does  not  suceed,  a  "Time  out"  error  message  results  in  the 
status  byte  of  the  computer. 

The  fundamental  proceedings  on  the  serial  bus  are  not  very 
complicated,  but  you  are  still  in  no  position  to  develop  your  own  bus 
control  routines,  expecially  in  6502  machine  language.  You  must  first 
become  acquainted  with  the  hardware  of  the  serial  bus. 

If  you  use  the  operating  system  routines,  the  bus  programming  is  not 
difficult.  There  is  a  separate  routine  present  for  each  bus  function,  like  talk 
or  untalk,  which  need  only  be  called  in  machine  language.  The  parameters 
for  the  bus  call  must  be  passed  in  some  zero-page  locations  and  the 
processor  registers. 
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Here  is  a  list  of  the  most  important  operating  system  routines,  which  are 
identical  on  the  VIC-20,  C-64,  and  C-128: 


Name  Address  Function/parameters 


Parameters  in  zero-page  addresses  which  must  always 
be  set : 

$B8  Logical  file  number 

$BA  Device  address 

$B9  Secondary  address  +  control  bits  4-7 

$BB/$BC  Address  of  the  filename  for  OPEN 

$B7  Length  of  the  filename 


OPEN  $FFC0  Open  data  channel  (as  in  BASIC) 

CLOSE  $FFC3  Close  data  channel  (as  in  BASIC) 

CKOUT  $FFC9  Output  character  in  A  on  the  bus 

CHKIN  $FFC6  Get  character  from  bus  into  A 

TALK  $FFB4  Call  talker  function 

LISTEN  $FFB1  Call  listener  function 

SECTALK  $FF96  Send  secondary  address  after  talk 

SECLISTEN  $FF93  Send  secondary  address  after  listen 

UNTALK  $FFAB  Send  untalk  command 

UNLISTEN  $FFAE  Send  unlisten  command 


Assembly  language  programmers  among  you  will  not  want  to  leave 
anything  to  the  operating  system  but  will  want  to  program  everything 
yourselves.  You  have  probably  already  studied  the  layout  of  the 
input/output  components  in  the  disk  drive  and  the  computer. 


INPUT   ,  1 


OUTPUT  1~2~|> 


Notice  that  two  different  bits  of  the  input/output  port  are  used  for  the 
same  bus  line.  One  bit  serves  for  outputting  the  data  and  the  other  is  set  up 
as  an  input.  In  order  to  understand  what  lies  behind  this  peculiar  set-up,  we 
must  consult  the  schematic  of  the  bus  logic. 


y 


BUS 
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As  you  see,  the  two  connections  of  the  I/O  component  are  connected  to 
the  bus  line  via  inverters.  The  inverter  always  outputs  the  precise  opposite 
of  the  signal  fed  into  it.  In  this  manner  the  levels  on  the  serial  bus  always 
have  the  opposite  value  as  the  bit  in  the  input/output  register. 

The  reason  for  this  is  technical  in  nature.  It  is  not  physically  possible  to 
set  a  line  to  the  0  level  and  then  output  the  value  1  on  the  line  through 
another  output,  such  as  the  peripheral  device.  The  line  would  never  assume 
the  value  1  because  the  low  level  would  function  as  a  short-circuit. 

The  entire  handling  of  the  signals  must  therefore  be  inverted.  If  the  line 
is  to  have  the  value  0,  the  level  1  is  outputted  This  remains  until  some  other 
device  set  the  level  0.  This  creates  a  short  circuit  and  the  voltage  on  the  line 
collapses.  This  then  corresponds  to  the  low  level. 

The  devices  which  are  connected  to  the  serial  bus  always  have  one 
output  line  and  one  input  line.  A  specific  level  is  placed  on  the  bus  through 
the  output  line.  If  this  is  a  "1"  level,  so  that  the  value  0  is  outputted  on  the 
bus  (remember  the  inverter),  it  may  occur  that  this  is  brought  to  the  0  state 
by  another  device.  For  this  reason  each  device  has  an  input  line  with  which 
the  actual  bus  level  can  be  tested. 

Basically  this  special  hardware  organization  is  not  interesting  for 
programming,  because  the  proper  logical  values  will  always  be 
electronically  restored  by  the  inverters.  But  unfortunately  there  is  an 
exception.  This  is  the  input  at  the  computer,  the  C-64  or  C-128.  This  input 
has  no  inverter. 

This  must  be  taken  into  account  when  programming.  If  the  values  of  the 
bus  inputs  at  the  computer  are  to  be  read,  they  must  always  be  inverted  by 
the  program.  If  you  are  waiting  for  a  certain  level  on  a  bus  line,  then  you 
must  remember  that  you  must  actually  wait  for  the  opposite  value. 

The  fact  that  the  physical  level  is  inverted  in  contrast  to  the  logical  value 
always  leads  to  confusion,  especially  in  the  ROM  listings.  Therefore  always 
look  first  for  the  routines  which  set  the  data  or  clock  lines  to  a  certain  value. 
You  can  then  recognize  if  setting  a  line  to  the  value  1  is  commented  with  the 
physical  or  logical  level.  In  the  DOS  listing  in  this  book  the  logical  level  is 
always  commented.  Special  care  is  urged  with  the  ROM  listings  for  the 
C-64  or  C-128.  There  it  is  usually  overlooked  that  the  inputs  are  not 
inverted  and  so  lie  at  the  physical  bus  levels.  This  leads  to  comment 
confusion  which  no  longer  has  anything  to  do  with  the  actual  proceedings 
on  the  serial  bus. 
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As  you  know,  the  1570/1571  can  be  operated  in  the  fast  bus  mode.  The 
SRQ  line  is  needed  for  this  mode.  This  line  carries  the  clock  signals  which 
the  CIA  6526  creates  when  outputting  a  data  byte.  The  data  register  of  the 
receiving  device  is  controlled  by  these  clock  signals. 

The  SRQ  line  is  also  used  to  determine  if  the  peripheral  device 
concerned  can  be  accessed  in  the  fast  bus  mode.  To  do  this  the  calling 
device  sends  eight  clock  pulses  on  the  SRQ  line  when  the  level  on  the  data 
line  is  reset,  indicating  that  the  receiver's  readiness.  These  pulses  set  a  flag 
in  the  interrupt  register  of  the  computer.  When  the  controller  recognizes  the 
resetting  of  the  data  line,  it  checks  at  the  same  time  to  see  if  the  flag  in  the 
interrupt  register  is  set  The  bus  controller  then  knows  that  the  device  can  be 
operated  in  the  fast  bus  mode.  In  this  case  the  controller  sends  eight  clock 
pulses  over  the  SRQ  line  when  setting  the  clock  signal.  This  tells  the 
peripheral  device  that  it  is  supposed  to  send  or  receive  data  in  the  fast  bus 
mode. 

In  the  fast  mode,  the  data  bits  and  clock  bits  are  not  inverted,  because 
they  are  not  processed  by  the  CIA.  Only  the  actual  data  transfer  is 
performed  in  the  fast  bus  mode.  A  byte  is  transferred  in  exactly  64 
microseconds,  which  would  make  a  transfer  rate  of  15,625  bytes  per 
second  possible. 

But  as  you  might  have  already  noticed,  just  3500  bytes  are  loaded  in  the 
fast  mode.  This  is  the  fault  of  the  management  routines  in  the  disk  drive  and 
computer,  neither  of  which  is  very  well-written  and  therefore  slow  down 
the  transfer. 

This  was  also  the  case  with  the  C-64.  The  transfer  algorithm  of  the 
C-64  bus  is  capable  of  sending  or  receiving  at  up  to  1200  bytes  per  second. 
The  management  routines  of  the  operating  system  slow  the  bus  speed  down 
to  a  meager  400  bytes  per  second. 

This  is  why  saving  programs  on  the  C-128  is  no  faster  than  on  a  C-64, 
although  the  fast  bus  is  used.  It  is  irrelevant  whether  or  not  data  can  be 
transferred  in  a  millisecond  or  a  few  microseconds  if  the  operating  system 
can  accept  only  one  byte  every  2.5  milliseconds. 

The  fast-load  systems  are  faster  only  because  the  management  time 
(open  file,  manage  pointers, ...)  is  drastically  reduced. 

Theoretically  it  is  even  possible  to  realize  bus  transfers  at  up  to  60,000 
bytes  per  second  with  the  C-  128's  fast  bus  hardware. 
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5.2.7  The  stepper  motor 

The  stepper  motor  is  a  special  device.  A  normal  motor  starts  to  run  as 
soon  as  it  is  supplied  with  current.  An  example  of  a  motor  of  this  type  is  the 
drive  motor  which  rotates  the  diskette. 

This  drive  motor  has  a  tacho-generator  on  its  axle,  a  small  component 
which  determines  the  rotation  count  of  the  motor.  The  current  supply  of  the 
drive  motor  is  controlled  with  this  measurement  so  that  the  motor  runs  at  a 
constant  speed. 

The  stepper,  on  the  other  hand,  is  a  special  motor  which  is  controlled 
not  by  a  steady  current  but  by  pulses.  The  motor  moves  an  exact  amount 
each  time  it  receives  a  pulse.  For  the  stepper  motor  in  the  C- 1570/71  this  is 
exactly  1.8  degrees.  This  means  that  after  exactly  200  pulses  the  motor  has 
completely  exactly  one  revolution. 

The  rotation  angle  of  a  stepper  motor  is  called  a  step,  which  makes  the 
nomenclature  more  understandable.  Each  pulse  moves  the  motor  one  step. 
The  advantage  of  a  stepper  motor  is  that  it  can  be  rotated  both  forwards  and 
backwards.  The  rotation  direction  is  controlled  by  the  signals  STPO  and 
STP1  on  the  1570/1571.  These  two  bits  must  be  seen  as  a  2-bit  value.  If 
one  increases  the  value,  the  motor  moves  so  that  the  head  travels  toward  the 
outside,  while  if  this  value  is  decreased,  the  head  moves  to  the  inside. 

On  the  1570/1571  the  head  is  moved  one  track  by  two  steps.  These  step 
pulses  may  not  follow  each  other  too  closely,  of  course,  since  the  stepper 
motor  needs  a  certain  time  in  which  to  make  each  step.  As  you  have 
certainly  noticed,  the  head  moves  much  faster  in  the  1571  than  it  does  in  the 
1541  mode. 

Since  the  clock  frequency  is  twice  as  high  in  the  1571  mode,  the  step 
pulses  are  also  created  twice  as  fast.  When  experimenting  with  the  stepper 
programming,  you  should  proceed  very  carefully,  and  preferably  use  the 
operating  system  routines. 
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6.1  The  DOS  routines 


6.1.1  The  DOS  -  An  introduction 


First  a  little  history.  The  grandfather  of  1571  DOS  was  the  operating 
system  of  the  CBM  4040  double  disk  drive.  The  CBM  4040  had  a 
microcomputer  controller  with  two  processors.  One  processor  was 
responsible  for  managing  data  and  the  other  for  controlling  the  drives.  This 
division  of  labor  was  intended  to  make  the  system  faster. 

When  the  VIC-20,  Commodore's  first  home  computer,  appeared  on  the 
market,  it  naturally  had  to  have  a  compatible  disk  drive.  It  would  have  been 
costly  to  develop  a  completely  new  system — and  it  didn't  make  sense  to 
reinvent  the  wheel  when  the  capable  CBM  4040  disk  drive  was  available.  A 
control  circuit  using  one  processor  for  a  single  disk  drive  was  developed. 
The  software  of  the  4040  drive  was  simply  modified.  The  disk  management 
routines  were  the  same  as  those  on  the  4040.  But  the  new  single  drive 
lacked  the  second  processor  for  drive  control.  As  a  result,  the  processor  of 
the  VIC- 1540  disk  drive  also  had  to  take  over  the  tasks  of  the  control 
processor.  This  decreased  the  speed  of  the  VIC- 1540  drive. 

The  DOS  in  the  VIC- 1541  is  almost  identical  to  that  in  the  VIC- 1540. 
Only  the  bus  routines  were  changed,  since  the  C-64  has  a  slightly  lower 
clock  frequency  than  the  VIC-20  which  decreases  the  bus  controller 
somewhat . 

The  1571  DOS  consists  of  16K  of  ROM  of  the  VIC- 1541  and  an 
additional  12K  of  new  operating  system  components.  Once  again  timeliness 
won  out  and  Commodore  simply  expanded  and  adapted  the  existing  DOS 
version  again.  The  fact  that  the  performance  of  the  disk  drive  has  not 
improved  much  is  obvious. 

Beyond  this,  the  1571  DOS  V3.0  perfects  chaos  itself.  This  DOS 
contains  a  management  section  which  was  intended  for  two  drives  and  a 
multi-processor  system.  This  includes  drive  management  that  was  intended 
for  multi-processor  operation  but  can  control  only  one  drive. 

This  section  of  the  1541  ROM  was  copied  for  use  in  the  1571  ROM  in 
its  entirety.  Only  a  few  routines  were  modified.  New  program  sections, 
such  as  those  to  manage  the  second  side  of  the  diskette,  were  simply 
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inserted.  This  also  includes  a  new  drive  controller  routine,  called  a  job  loop. 
In  addition  to  the  1541  ROM,  a  whole  set  of  new  functions  was 
implemented,  which  in  particular  handle  the  control  of  the  WD  1770 
controller. 

All  told,  the  1570/71  DOS  consists  of  a  hodge-podge  of  program 
fragments  simply  grouped  together.  The  sad  part  is  mat  as  a  result  the  disk 
drive  is  not  very  powerful  or  efficient,  although  it  offers  many  technical 
possibilities.  The  slow  transfer  and  load  rates  are  not  the  fault  of  any  bus 
procedures,  but  are  the  product  of  the  slow  DOS  management  alone. 


6.1.2  The  most  important  DOS  routines 


The  DOS  consists  of  a  myriad  of  different  routines.  Many  of  these  you 
cannot  use  because  they  were  intended  as  subroutines.  Here  is  a  short  list  of 
some  interesting  ROM  routines: 

$8162    Switch  1571  bus  electronics  to  input. 

$81CE    Switch  1571  bus  electronics  to  output. 

$85F9    Output  byte  on  1571  bus. 

The  byte  must  be  stored  in  $46. 

$864B   Execute  job. 

$F9  must  contain  the  number  of  the  buffer  for  the  job 
is  to  be  performed.  The  job  table  $00-$05  contains 
the  job  code.  After  execution  of  the  job,  X  and  A 
contain  the  return  code  of  the  job  loop.  If  an  error 
occurs  during  execution,  the  routine  tries  to  execute 
the  job  again 

$87  64  Turn  on  drive  motor. 

$8770  Turn  off  drive  motor. 

$877C  Turn  drive  LED  on. 

$878B  Turn  drive  LED  off. 
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$883C   Get  error  message  from  WD  1770. 
A  and  X  contain  the  error  code. 

$884E   Pass  command  in  A  to  the  WD  1770  command  register. 

$8861    Wait  for  the  WD  1770  to  execute  the  command. 

$89EF    Reset  head  to  track  0. 

$89FD    Test  write  protect  A=  $10:  no  write  protect 

A=  $00:  write  protect  active 

$9032    Switch  to  1541  mode. 

$904E    Switch  to  1571  mode. 

$93F3    Activate  head  on  current  disk  side. 
C=0:  side  1    C=l :  side  2 

$98D9  Convert  5  GCR  bytes  to  4  binary  bytes. 

$F6D0  Convert  4  binary  bytes  to  5  GCR  bytes. 

$FE00  Switch  head  to  read. 

$FE0E  Erase  track  (write  with  $55) . 
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6.1.3  The  zero-page 


The  zero-page  is  the  memory  area  $0000  to  $00FF,  which  can  be 
accessed  especially  quickly  by  certain  6502  machine  language  instructions. 
For  this  reason,  important  parameters  and  data  which  the  DOS  requires  are 
stored  here. 

The  addresses  $00  to  $11  have  a  special  significance.  These  memory 
locations  are  used  to  pass  commands  and  parameters  to  the  job  loop,  which 
controls  the  disk  drive.  A  memory  location  which  stores  the  command  for 
the  action  to  be  performed  is  reserved  for  each  buffer.  The  job  loop  returns 
a  message  in  this  memory  location  which  tells  whether  the  command  was 
performed  without  error  or  not. 

A  large  section  of  the  zero-page  is  used  for  the  management  of  files. 
Since  the  DOS  is  based  on  a  two-drive  system,  a  good  deal  of  space  is 
reserved  for  the  second  drive,  which  isn't  even  present. 

Some  zero-page  locations  contain  constants  important  for  the  operation 
of  the  disk  drive.  These  include: 

57     $39    Marker  for  data  block  (8) 

104  $68    Flag  for  the  initialization  method 

106  $6A    Number  of  read  attempts 

These  memory  locations  are  initially  set  when  the  disk  drive  is  turned 
on.  After  this  the  DOS  always  works  with  the  values  stored  in  these 
addresses.  If,  for  example,  you  change  the  marker  for  a  data  block  and  then 
format  a  diskette  in  this  manner,  it  cannot  be  read  later  with  the  normal 
marker.  Another  possibility  is  to  define  the  number  of  read  attempts  as  well 
as  the  behavior  of  the  disk  drive  in  the  event  of  read  errors  in  address  $6A. 

Appendix  C  contains  the  complete  zero-page  listing.  So  you  don't  have 
to  hunt  through  the  whole  book  to  find  it,  we  have  placed  it  near  the  end  of 
the  book. 
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6.1.4  DOS  V3.0  in  detail 


As  we  mentioned  in  Section  6.1.1,  parts  of  the  DOS  are  intended  for 
double  drive  or  multi-processor  operation.  But  since  it  runs  on  a  system 
with  just  one  drive  and  one  processor,  the  capabilities  of  the  system  are 
vastly  underused.  Furthermore,  the  management  required  for  two  drives  is 
more  extensive  than  that  required  for  one,  so  the  1571  requires  additional 
processing  time  without  needing  it 

The  style  of  buffer  management  is  an  especially  notable  leftover  from 
the  4040  double  drives.  One,  two,  or  even  three  buffers  are  required  per  file 
depending  on  the  type. 

Since  the  disk  drive  can  manage  up  to  5  files  at  a  time,  each  file  is 
assigned  an  internal  channel.  This  channel  is,  in  turn,  assigned  the  required 
buffers.  Beyond  this  there  are  tables  which  contain  information  about  which 
buffers  are  currently  needed,  which  data  have  not  been  processed  yet,  and 
so  on. 

As  you  see,  an  enormous  amount  of  management  work  is  necessary  for 
even  the  smallest  disk  access,  greatly  reducing  the  speed  of  the  1571. 

When  working  with  the  DOS,  you  might  want  to  keep  its  history  in 
mind.  We  emphasize  that  it  was  not  developed  in  one  pass,  but  arose  from 
versions  of  the  preceding  disk  drives  modified  for  the  new  drive. 

This  DOS  version  has  been  changed,  expanded,  and  extended  three  or 
four  times.  This  increases  the  error  rate,  the  amount  of  unnecessary 
management  work,  and  above  all,  reduces  the  performance  of  the  disk 
drive. 
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6.1.5  Errors  in  the  DOS 


Naturally,  the  development  of  an  operating  system  is  not  without  error. 
Errors  have  struck  the  1570/1571  as  well.  This  concerns  some  functions 
and  commands  which  do  not  operate  in  the  desired  manner,  such  as  the 
block-allocate  command,  the  replace  function,  and  so  on. 

In  addition,  there  are  some  locations  at  which  the  ROM  contains 
commands  which  make  no  sense.  The  largest  group  are  the  assembler 
instructions  which  do  not  make  any  sense,  or  are  superfluous.  The 
following  addresses,  among  others,  contain  such  constructions: 


$85DA  $9396  $9690  $A605  $E853  $E9DA  $EAA7  $F258  $FF13 

Some  other  DOS  locations  are  erroneous.  These  errors  are  often  so 
slight  that  they  do  not  immediately  make  themselves  known  in  a  disk-drive 
system  crash.  Here  is  a  short  list  of  some  mysterious  DOS  locations: 

$8056:  Here  some  flags  are  masked  out  of  $37  which  do  not  have 

any  control  function.  This  indicates  that  the  wrong  flags 
are  being  masked,  whereby  the  instruction  should  read 

"AND  $BE". 

$8 124/$826F:  Here  the  flag  for  the  real-time  clock  is  activated  (which  is 
not  even  used  in  the  DOS.)  Since  this  action  occurs  in 
connection  with  the  bus  actions,  it  raises  the  suspicion  that 
the  nearby  flag  for  the  serial  input/output  register  is 
intended. 


$BF57/BF75:    This  is  a  jump  to  a  location  where  no  program  exists. 

$E69B:  In  this  routine  the  SED  command  is  used  without  disabling 

the  interrupts.  As  a  result,  the  job  control  loop  will  be 
called  while  the  BCD  arithmetic  is  activated.  The  fact  that 
the  proper  control  parameters  will  not  be  calculated  should 
be  obvious. 
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6.2  1570/1571  ROM  listing 


6.2.1  Listing  comments 

The  ROM  listing  in  Appendix  A  of  this  book  differs  from  many  other 
ROM  listings  in  several  respects.  You  may  have  noticed  the  curious 
superscripted  (*)  numbers  following  some  memory  addresses,  or  you  may 
have  wondered  what  the  numbers  in  square  brackets  ([  ])  mean.  These 
involve  a  cross  reference. 

The  specifications  about  each  ROM  routine,  enclosed  in  square 
brackets,  name  all  locations  in  ROM  which  call  this  routine.  If  another 
location  in  the  routine  jumped  to,  this  entry  address  will  be  named,  followed 
by  a  colon.  The  address  of  the  calling  point  is  then  given.  Here  are  some 
examples: 

[1234/5678]  This  ROM  routine  called  from  1234  and  5678. 

[EEEA:1652]  The  address  EEEA  in  the  ROM  routine  is 

called  from  1652. 
[5527 :78ED, 5652]  The  address  5527  is  called  from  78ED  and 

5652. 

In  addition  to  these  cross  references,  comments  are  often  given  when 
the  location  is  called  via  a  vector  or  a  program  routine.  Also,  the  comment 
"Routine  not  used"  occurs  from  time  to  time.  Furthermore, 
comparison  addresses  are  given  for  some  routines,  in  the  form 
"cmp  1234"  for  example.  These  indicate  that  the  same  routine  or  a  routine 
which  performs  the  same  function  occurs  at  a  different  location  in  ROM. 
You  should  follow  these  references  with  interest  in  any  event.  If  two 
identical  routines  are  present,  they  are  usually  not  commented  identically. 
This  way  you  can  work  with  both  versions  of  comments  and  therefore  have 
a  better,  more  comprehensive  explanation  of  the  ROM  routine. 

Another  type  of  cross  reference  is  the  superscripted  numbers  which 
appear  after  some  addresses.  These  indicate  that  this  address  is  called.  This 
usually  involves  a  relative  jump  instruction.  This  means  that  the  locations 
from  which  these  addresses  are  called  appear  128  bytes  before  or  after  the 
address,  which  corresponds  roughly  to  a  page  backward  or  forward.  The 
number  indicates  how  many  such  references  exist.  If  you  still  cannot  find  an 
entry  point,  it  may  be  that  the  data  for  this  address  are  given  in  the  header  in 
the  square  brackets.  Always  check  the  header  first. 
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Why  are  these  cross  references  necessary?  Take  a  look  at  address 
$93F3  in  the  ROM  listing.  A  routine  with  a  branch  instruction  is  found  at 
this  address.  It's  necessary  to  determine  what  value  the  carry  flag  had  when 
the  routine  was  called.  The  specified  addresses  [895C,  9371  and  9B41] 
indicate  the  locations  from  which  the  routine  $93F3  is  called.  From  here 
you  can  determine  what  value  the  carry  flag  had. 

In  addition,  these  cross  references  indicate  which  routines  are  used 
often.  You  can  also  tell  that  half  of  all  DOS  routines  are  called  only  once. 
Basically  this  does  not  involve  subroutines,  but  program  sections.  The 
superscripted  cross  references  usually  have  the  value  1.  But  these  cases  are 
not  particularly  interesting.  You  should  direct  your  attention  to  locations 
which  are  called  from  more  than  one  point.  In  this  manner  you  can 
understand  the  flow  of  a  routine  more  quickly. 

In  conclusion,  a  few  words  about  the  comments  themselves.  An  attempt 
was  made  to  comment  all  of  the  lines  in  the  ROM  listing.  For  some 
locations  this  was  not  very  interesting,  since  it's  hard  to  write  exciting 
comments  when  the  program  itself  is  not  exciting.  At  other  locations  a 
single  line  did  not  suffice  to  explain  the  routine.  In  these  cases  a  small 
section  with  detailed  explanations  is  often  included. 
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6.3  1571  DOS  Reader 


The  following  short  program  allows  you  to  read  sections  of  the 
1570/1571  DOS  into  the  C-128  memory.  You  may  then  examine  or  modify 
the  machine  language  routines  using  the  C-128*s  built  in  machine  language 
monitor.  Input  is  done  in  hexadecimal  and  the  contents  of  DOS  memory  are 
transferred  to  the  same  locations  in  C-128  memory.  Some  areas  of  the  DOS 
will  have  to  be  transferred  into  different  memory  locations  or  banks  in  the 
C-128  so  that  memory  conflicts  do  not  occur.  This  is  accomplished  by 
changing  the  value  of  variable  A  in  line  140  (POKE  ( A-VALUE ) ). 


10     PRINT  CHR$ (147) "1571  ROM  READER  TO  C-128 

MEMORY" : PRINT 
20     OPEN  1,8,15 

30     INPUT  "STARTING  ADDRESS" ;A$ 
40     A  =  DEC(A$) 

50     INPUT  "ENDING  ADDRESS  ";B$ 

60     B  =  DEC(B$) 

70     HI  =  INT  (A/256) 

80     LO  =  A-256*HI 

90     PRINT#1, "M-R";CHR$ (LO) ;CHR$(HI) 
100  REM  READ  DOS  MEMORY 
110  GET#1,A$ 

120  PRINT  CHR$(19)CHR$(17)CHR$(17)CHR$(17)CHR$(17) 

"CURRENT  ADDRESS  ";HEX$(A) 
130  IF  A  =  B  THEN  170 
14  0  POKE  A,ASC(A$) 

: REM  BANKl :POKE  A,ASC(A$) : BANK  15:   REM  BANK  1 
150  A  =  A+l 
160  GOTO  80 
170  MONITOR 
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Appendix  A 


1571  DOS  Listing 

(ROM  Version  03) 


8000   92  25 


ROM  checksum   [used:  929D/92A4] 


Author  acknowledgement 
8002  53  2F  57  20  2D  20  44  41 
800A  56  49  44  20  47  20  53  49 
8012  52  41  43  55  53  41  0D  48 
801A  2F  57  20  2D  20  47  52  45 
8022  47  20  42  45  52  4C  49  4E 
802A  0D  31  39  38  35  0D 


S/W  -  DAVID  G 

SIRACUSA 

H/W  -  GREG 

BERLIN 

1985 


[CB63/806D:Vectors  80BE, 80C0, 80C6,80C8] 
Routine  for  User-0-command ( 'U0') 


8030 

AD 

74 

02 

LDA 

$0274 

/~ 1  anrt1-h    n  f    fnmma  n  H    strinCf  StllCl 

8033 

C9 

03 

CMP 

#$03 

4-ac-i-  artai  net-   Qmal  lest  cmncL  lencrth 

8035 

90 

2E 

BCC 

$8065 

To    +-  V\  q    r-  r\rr\Tr\  a  nH     1  pec    f  han     3    ChflT  S  ? 

8037 

AD 

02 

02 

LDA 

$0202 

wn      +■  h  ar\    nol"     s  nH  not© 

803A 

85 

3B 

STA 

$3B 

COnunaJia  nunuJeJ. 

803C 

29 

IF 

AND 

#$1F 

Limit  number  to  range  oi  u  ji  "||u 

803E 

AA 

TAX 

mask  control  flag 

803F 

OA 

ASL 

A 

Double  value  (2-byte  pointer  in 

8040 

A8 

TAY 

table)   and  set  as  pointer 

8041 

B9 

8E 

80 

LDA 

$808E, Y 

Get  and  set  low-byte  of  above 

8044 

85 

75 

STA 

$75 

routine 

8046 

B9 

8F 

80 

LDA 

$808F,Y 

Take  up  high-byte  of  address 

8049 

85 

76 

STA 

$76 

in  pointers  $75/$76 

804B 

E0 

IE 

CPX 

#$1E 

check  against  1541  status  command 

804D 

FO 

07 

BEQ 

$8056 

Should  a  new  command  be  executed? 

804F 

AD 

OF 

18 

LDA 

$180F 

NO-Get  flag  for  1571/1541  range 

8052 

29 

20 

AND 

#$20 

and  test  it 

8054 

FO 

OF 

BEQ 

$8065 

Is  drive  in  1571  mode? 

80561 

A5 

37 

LDA 

$37 

YES—  [Error;  see  7.1.5] 

8058 

29 

EB 

AND 

#$EB 

[useless  bitflags  will  be] 

805A 

85 

37 

STA 

$37 

[masked  out] 

805C 

BD 

6E 

80 

LDA 

$806E,X 

Set  jobcode  of  equivalent 

805F 

8D 

02 

02 

STA 

$0202 

disk  controller  command 

8062 

6C 

75 

00 

JMP 

($0075) 

Call  routine 

80651 

A9 

EA 

LDA 

#$EA 

Set  pointer  for 

8067 

85 

6B 

STA 

$6B 

table  of  1541 

8069 

A9 

FF 

LDA 

#$FF 

user  command 

806B 

85 

6C 

STA 

$6C 

to  $FFEA 

806D4 

60 

RTS 

Return  from  subroutine 
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[805C]     Jobcodes  to  command  routines 

806E  80  81  90  91  BO  Bl  F0  Fl  BitO  =  Drive  number 

8076  00  01  B0  01  00  01  00  01  Bit 1-7  :  $80  =  Read  /  $90  =  Write 

807E  80  81  90  91  B0  Bl  F0  Fl  $B0  =  Look  for  sector/$F0=Format 

8086  00  01  B0  01  00  01  00  80  $00  =  No  job  (Other  function) 


[8041] 


Addresses  cf  command  routines  w/ 
Command  number: 


'UserO  • 


BitO 
Bitl-3 
Bit  4 


Drive  (0/1) 
function 
Diskette  side 


808E 

71 

83 

0 

/ 

00 

8090 

7F 

83 

1 

/ 

01 

8092 

EC 

83 

2 

/ 

02 

8094 

F8 

83 

3 

/ 

03 

8096 

8B 

84 

4 

/ 

04 

8098 

7F 

83 

5 

/ 

05 

809A 

B7 

84 

6 

/ 

06 

809C 

B7 

84 

7 

/ 

07 

809E 

Fl 

84 

8 

/ 

08 

8OA0 

Fl 

84 

9 

/ 

09 

80A2 

17 

85 

10 

/ 

OA 

80A4 

7F 

83 

11 

/ 

0B 

80A6 

6B 

85 

12 

/ 

0C 

80A8 

7F 

83 

13 

/ 

0D 

80AA 

A5 

85 

14 

/ 

0E 

80  AC 

A5 

85 

15 

/ 

OF 

80AE 

71 

83 

16 

/ 

10 

80B0 

7F 

83 

17 

/ 

11 

80B2 

EC 

83 

18 

/ 

12 

80B4 

F8 

83 

19 

/ 

13 

80B6 

8B 

84 

20 

/ 

14 

80B8 

7F 

83 

21 

/ 

15 

80BA 

B7 

84 

22 

/ 

16 

80BC 

B7 

84 

23 

/ 

17 

80BE 

6D 

80 

24 

/ 

18 

80C0 

6D 

80 

25 

/ 

19 

80C2 

17 

85 

26 

/ 

1A 

80C4 

7F 

83 

27 

/ 

IB 

80C6 

6D 

80 

28 

/ 

1C 

80C8 

6D 

80 

29 

/ 

ID 

80CA 

E5 

8F 

30 

/ 

IE 

80CC 

80 

90 

31 

/ 

IF 

(0/1) 

$8371  Read  CP/M  sector 

$837F  Error: 'Drive  Not  Ready' 

$83EC  Write  CP/M  sector 

$83F8  Error: 'Drive  Not  Ready' 

$848B  Read  CP/M  sectorheader 

$837F  Error: 'Drive  Not  Ready' 

$84B7  Format  CP/M  diskette 

$84B7  Format  CP/M  diskette 

$84F1  Get/set  CP/M  sector  set-up 

$84F1  Get/set  CP/M  sector  set-up 

$8517  Determine  CP/M  sector  seq. 

$837F  Error:'Drive  Not  Ready' 

$856B  Get/set  cmmand-status  byte 

$837F  Error:'Drive  Not  Ready' 

$85A5  Display  'Syntax  Error(31)' 

$85A5  Display  'Syntax  Error (31) ' 

$8371  Read  CP/M  sector 

$837F  Error: 'Drive  Not  Ready' 

$83EC  Write  CP/M  sector 

$83F8  Error:'Drive  Not  Ready' 

$848B  Read  CP/M  sector  header 

$837F  Error: 'Drive  Not  Ready' 

$84B7  Format  CP/M  diskette 

$84B7  Format  CP/M  diskette 

$806D  No  function  (rts) 

$806D  No  function  (rts) 

$8517  Determine  sector  sequence 

$837F  Error:'Drive  Not  Ready' 

$806D  No  function  (rts) 

$806D  No  function  (rts) 

$8FE5  Execute  1571  status  comand 

$9080  Load  file  over  1571  bus 
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[A7BA] 


Take  command 

from  serial  bus 

/  A  *"P  \T        «     /™v  i  *  n  ^     v*     rt  \ 
\nl  JN  eJlCOun^BieUJ 

OUCH* 

*7Q 
f  O 

OCj  J. 

Disaoie  Dus / controller  interrupt 

f\ ? 

00 
u  u 

T.na 

ciear  pointer  ana  nays  . 

Rnm 

R^ 

7P 

Oln 

KcCclVc     L  Xcly     J-  Ut     ftX  IN     XX.  Will  WUo 

Qfin-3 

OUU  J 

OR 

OJ 

7  Q 

STA 

S79 

r lay  ror  Listen 

O  UIJ  J 

ft  S 
o  j 

7A 

STA 

$7A 

r  la.y    xol  laXJs. 

Rnm 

AO 

Tt  V  "  vJ 

o  L  at Js.    puin  ICJ. 

OL/1J  !7 

OA 

1  AO 

initialization 

Rnna 

20 

B2 

81 

JSR 

$81B2 

OWltCIl     1J  *  X    Ulio     IUl  liipuu 

pnnn 

AQ 

80 

LDA 

#$80 

cGt    -f  1  an-   fnr   1  aef    r*hpjr    /F.OT  =  End 

Oct     XX            IUL     luOL     \^11Q.±.      \  Ciwl  LiHU 

RnnF 

85 

F8 

STA 

$F8 

Ul  XIlXUXIILcLtXvJIIJ 

RS 

7D 

STA 

$7D 

PI  oar    *F  1  arr    -f  r\y    ■  aTN    rtV^Q^TVPfi  1 

OlCQJ.      J  Lu^     1  Ui,         nlli     UviJCJ.  v  cu 

RnF"* 

20 

37 

E9 

JSR 

$E9B7 

\^  X  QJt  JS.     UUtpiit     LU  XWW 

OUJjO 

z  u 

JCj  J 

JSR 

$E9A5 

ueLta   uutput    lu  iixyii 

rof  Q 

an 

nn 
u  u 

1  R 

T.nA 

$1800 

rnf    Kiic    rtrtn^T"rtl    T*^rri  q+" T"  anH 

rofp 

0Q 

U  3 

10 

ORA 

#$10 

TV  J.U 

set  AiiN  output 

Rn 

on 

u  u 

1  8 

STA 

$1800 

4-  ^    V\  T  rt  Vi 

to  iny  11 

A0F1  x 
our  j. 

an 

00 

18 

LDA 

$1800 

PVior-V    ATM    ^  nnnt 

our  i 

1  0 
1U 

64 

BPL 

$815A 

T  e    a  TN    q  ^l- 
la    t\  ±  W    acl>  i 

RnF£ 
our  © 

U  4 

awn 

XdO         OtSt     UlUtN  XJl^UL 

our  o 

no 

F7 

BNE 

$80F1 

Id    tXUtA    oct ■ 

ROFal 
our  t\ 

z  u 

PA 

R? 

JSR 

$82CA 

LN  U^JC  L.     tUlIIHLcLIlU    Uj^UC     X  X  Will    **J  U  o 

our  u 

PQ 

"3F 
or 

CMP 

Pnnmara    Tnii+"ri    iral  no     f  nr     '  Hill  1  Qfpn  ' 
tOIupaxc    wxl.ii    vaiiic    xljx  uniioucii 

our  r 

nn 

OP 
Ut, 

DVi£j 

SRI  on 

oilOUlQ    LilSLcJlcJ.    twllipxctts    WULI^  • 

OlUi 

AO 

**7 

t  na 

•?o  / 

ijlo — oet  dus  control  nay 

fli  n** 

or 
or 

Awn 

1r  vJjc 

ana.  set  xiag  xor 

ri  n r 

OJ 

*37 

STA 

S37 

ftl  07 

O  X  U  f 

AQ 

00 

LDA 

#$00 

PI  aar     f  1  art  ■ff»T* 
Llcal     X lay  IUL 

R*l  0 Q 

ft  S 

O  J 

7  9 

STA 

S7  9 

Listen 

qi  ot* 

r  u 

of 

UHi 

$811B 

U  UIIip    tU  yOllD 

qi  rtnl 
OlUU 

or 

pup 

compare  wit n  v axue   x ul  ujiloia 

01  OF 

oiur 

IJU 

nn 

uu 

BNE 

$811E 

CVt*~.ii1rt     Ta  1  Var     "Firtic^     T  T*  e     t.t  ArV 

bnouici  i  a.iJs.er *  x in i oil  x t s>  wuin  ; 

8111 

A5 

37 

LDA 

$37 

X  Hi  o    La  vi  t     JJUs     OUHLLUX  Hay 

ft1 1  ^ 

RF 

DC 

AND 

#$BF 

anH    c ot"    FT  flfr   f  nr 

8115 

85 

37 

STA 

$37 

1  Jll  11IWLXCS 

8117 

A9 

00 

LDA 

#$00 

P 1  »a.  t    Flarr  "FfiT 

R1  1  9 

OX  X  7 

85 

7A 

STA 

$7A 

Talk 

QI  1  Til 

O  J.  ID 

4p 

Q9 

R1 

,TMP 

VOX  7^ 

Wa  ■!+■   nnt"  "i  1    ATN— mode*   i  s  available 

811E1 

C5 

78 

CMP 

$78 

tOIupaic    w/  uc  v  il.c    cilalxx t; cs a    -L  ui    ±  axA. 

8120 

DO 

OA 

BNE 

$812C 

Is  Talk  addressed? 

8122 

A9 

01 

LDA 

#$01 

YES-Set  flag  for 

8124 

85 

7A 

STA 

$7A 

'Talk  receive' 

8126 

A9 

00 

LDA 

#$00 

Clear  Flag  for 

8128 

85 

79 

STA 

$79 

Listen 

812A 

FO 

29 

BEQ 

$8155 

Jump  to  $8155 
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812C1 

C5 

77 

CMP 

$77 

Compare  w/  device  addr  for  Listen 

812E 

DO 

OA 

BNE 

$813A 

Is  Listen  addressed? 

8130 

A9 

01 

LDA 

#$01 

YES-Set  Flag  for 

8132 

85 

79 

STA 

$79 

'listen  received' 

8134 

A9 

00 

LDA 

#$00 

Clear  flag  for 

8136 

85 

7A 

STA 

$7A 

Talk 

8138 

F0 

IB 

BEQ 

$8155 

Jump  to  $8155 

813A1 

AA 

TAX 

Mark  ATN-command 

813B 

29 

60 

AND 

#$60 

Isolate  cntrl  bits/Talk  &  Listen 

813D 

C9 

60 

CMP 

#$60 

&  test  against  value  f/'both  set' 

813F 

DO 

4C 

BNE 

$818D 

Will  channel  #  be  transmitted? 

8141 

8A 

TXA 

YES— Repeat  and  set 

8142 

85 

84 

STA 

$84 

original  secondary  address; 

8144 

29 

OF 

AND 

#$0F 

Establish  and  set  number  of 

8146 

85 

83 

STA 

$83 

abovementioned  disk  channel; 

8148 

A5 

84 

LDA 

$84 

Get  orig/2ndary  addr (ATN-command) 

814A 

29 

FO 

AND 

#$F0 

and  isolate  command  bits 

814C 

C9 

EO 

CMP 

#$E0 

Is  Bit7   (Open/Close)  also  set? 

814E 

DO 

42 

BNE 

$8192 

Should  the  channel  be  closed? 

8150 

58 

CLI 

YES— Enable  bus/controler  interupt 

8151 

20 

CO 

DA 

JSR 

$DAC0 

Close  channelsclose  current  files 

8154 

78 

SEI 

Disable  bus/controller  interrupt 

81552 

2C 

00 

18 

BIT 

$1800 

Test  ATN  input 

[A9B3]     Steer  bus  to 

ATN  command 

8158 

30 

AO 

BMI 

$80FA 

Is  ATN  still  set? 

815A3 

A9 

00 

LDA 

#$00 

NC—Clear  flag  for 

815C 

85 

7D 

STA 

$7D 

1 ATN  active' 

815E 

AD 

00 

18 

LDA 

$1800 

Get  bus  control  register 

8161 

29 

EF 

AND 

#$EF 

and  clear  ATN  output 

8163 

8D 

00 

18 

STA 

$1800 

again 

8166 

A5 

79 

LDA 

$79 

Get  flag  for  Listen 

8168 

FO 

OD 

BEQ 

$8177 

Is  the  bus  in  Listener  mode? 

81 6A 

24 

37 

BIT 

$37 

NO— Test  bus  control  flag 

81 6C 

50 

03 

BVC 

$8171 

Is  bus  in  1571  mode? 

81 6E 

20 

99 

81 

JSR 

$8199 

YES-Send  DRF  code 

81711 

20 

42 

83 

JSR 

$8342 

Take  data  from  bus  to 

8174 

4C 

6B 

83 

JMP 

$836B 

command  wait loop 

81771 

A5 

7A 

LDA 

$7A 

Get  flag  for  talk 

8179 

FO 

OF 

BEQ 

$818A 

Is  the  bus  in  Talker  mode? 

817B 

20 

9C 

E9 

JSR 

$E99C 

Set  Data  output  to  low 

817E 

20 

AE 

E9 

JSR 

$E9AE 

Set  Clock  output  to  high 

8181 

20 

83 

A4 

JSR 

$A483 

approx.  80  cycle  delay 

8184 

20 

EA 

81 

JSR 

$81EA 

Give  data  over  bus  after  talk 

8187 

20 

83 

A4 

JSR 

$A483 

approx.  80  cycle  delay 

818A1 

4C 

66 

83 

JMP 

$8366 

to  command  waitloop 

818D1 

A9 

10 

LDA 

#$10 

Set  ATN  output  to  high 
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818F 

8D 

00 

18 

STA 

$1800 

Set  Data  and  Clock  to  low 

81923 

2C 

00 

18 

BIT 

$1800 

Test  ATN 

8195 

10 

C3 

BPL 

$815A 

Is  ATN  set? 

8197 

30 

F9 

BMI 

$8192 

YES-Wait  til  ATN  is  cleared  again 

[816E/81A1] 

Send  : 

DRF 

(Device 

Request  Fast) 

to  computer  (fast  bus  mode) 

8199 

20 

59 

EA 

JSR 

$EA59 

Check  for  ATN  command  mode 

81 9C 

20 

CO 

E9 

JSR 

$E9C0 

Read  bus  reg.  by  constant  values 

819F 

29 

04 

AND 

#$04 

and  isolate  Clock  input 

81A1 

DO 

F6 

BNE 

$8199 

Is  Clock  set? 

81A3 

20 

CE 

81 

JSR 

$8  ICE 

NO- Switch  1571  to  output 

81A6 

A9 

00 

LDA 

#$00 

DRF  Signal 

81A8 

8D 

OC 

40 

STA 

$400C 

in  serial  output  register 

81AB 

A9 

08 

LDA 

#$08 

Bitflag  for  serial  register  empty 

8  IAD1 

2C 

OD 

40 

BIT 

$400D 

Get  output  status 

81B0 

FO 

FB 

BEQ 

$8  IAD 

Is  data  byte  transferred? 

[80DA/836B/846D/8591/8EAC/A61F/A7AD] 
Switch  1571  bus  to  input 


81B2 

08 

PHP 

Retain  processor  status 

81B3 

78 

SEI 

Disable  bus/controller  interrupt 

81B4 

AD 

0E 

40 

LDA 

$400E 

YES-Get  control  register 

81B7 

29 

BF 

AND 

#$BF 

Switch  serial  connection 

81B9 

8D 

0E 

40 

STA 

$400E 

to  input 

81BC 

AD 

OF 

18 

LDA 

$180F 

Set  control  bit  for 

81BF 

29 

FD 

AND 

#$FD 

1571  bus  turn  to 

81C1 

8D 

OF 

18 

STA 

$180F 

input  mode 

81C4 

A9 

84 

LDA 

#$84 

[Error;  see  7.1.5] 

81C6 

8D 

0D 

40 

STA 

$400D 

[Real-time  clock  not  used] 

81C9 

2C 

0D 

40 

BIT 

$400D 

Reset  last  interrupt  flag 

81CC 

28 

PLP 

Reset  processor  status 

81CD 

60 

RTS 

Return  from  this  subroutine 

[81A3/8394/8461/84F6/8533/8582/8E93/8E9A/9080] 

Switch  1571 

bus 

to  output 

81CE 

08 

PHP 

Retain  processor  status 

81CF 

78 

SEI 

Disable  bus/controller  interrupt 

81D0 

AD 

OF 

18 

LDA 

$180F 

Set  control  bit  for 

81D3 

09 

02 

ORA 

#$02 

1571  bus  direction  to 

81D5 

8D 

OF 

18 

STA 

$180F 

output  mode 

81D8 

AD 

0E 

40 

LDA 

$400E 

Switch  serial  register 

81DB 

09 

40 

ORA 

#$40 

to 

81DD 

8D 

0E 

40 

STA 

$400E 

output 

81E0 

A9 

08 

LDA 

#$08 

Limit  interrupt  from 

81E2 

8D 

0D 

40 

STA 

$400D 

'byte  input/output' 

81E5 

2C 

0D 

40 

BIT 

$400D 

Clear  flag  from  last  interrupt 
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81E8 
81E9 

28 
60 

PLP 
RTS 

Set  proces s or  status  again 
return  irom  tnis  subroutine 

[8184]  . 

cf . 

E909 

Output  file 

data 

over  bus  (1571 

mode ) 

81EA 

7fi 

O  TP  T 

Disable  bus/controller  interrupt 

81EB 

20 

EB 

DO 

ftnnirp. 

9UUEjO 

Determine  internal  channel  number 

81EE 

pre 

9BIF0 

Has  channel  been  found? 

01  Ffll 
Oil  u 

AO 

ft  9 

LDX 

$82 

iLij-bet  numoer  or  channel 

81F2 

R5 

P9 

JjUA 

9F2,  X 

Determine  appropriate  bus  status 

81F4 

30 

\J  X 

DMT 

ft  O  1  PT 

9olr  / 

Channel  active? 

81F61 

60 

Return  rrom  tnis  subroutine 

8IF7I 

9n 

EA 

TOD 

$EA59 

lest  ror  ain  command  mode 

81  FA 

20 

en 

E9 

TQP 

fti?  orn 

Get  constant  value/bus  cntrl  reg 

81FD 

29 

01 

awn 

AINU 

1F9  U 1 

and  test  for  Data  input 

81FF 

08 

pup 

riarK  result 

8200 

20 

B7 

E9 

ft  IT  QiaT 

oet  ^iock  output  tor  nign 

8203 

28 

PT  D 

Repeat  status  of  Data  line 

8204 

F0 

12 

lb    Uata    Set - 

8206''- 

20 

59 

EA 

.TOR 

j.£jo  itsau  ioc  ain  command  mooie 

8209 

20 

CO 

E9 

.T^P 
UOl\ 

ucu  value    jjus  control  registers 

820C 

29 

01 

AND 

#£01 

7r  v  \I  -L 

aiiu.   ycu    staLUa    Ul    data  input 

820E 

DO 

F6 

P.MF 

is    data    Still  Set; 

8210 

A6 

ft9 

t  ny 

ton 
9  oZ. 

wv-^et  numoer  or  current  cnannei 

ft9  1  9 

DC 

DO 

TT9 

t  r\  a 

$F2,  X 

and.  get  corresponding  bus  status 

8214 

9  Q 

nn 
\j  0 

AINU 

4  ft  n  a 

iest  jlui  (tna  or  information)  flag 

891  fi 
o^xo 

nn 

X  4 

ft  0  o  0  0 

x»  last  oyte  oeing  t ran srerredr 

82182 

20 

59 

EA 

■T^P 

U  OA 

"w  tnecA  witn  aiin  commana  moae 

821B 

E9 

TCP 

ft  1?  QOn 

Get  value  of  bus  control  register 

0£.  Id 

9  Q 

u  X 

AND 

#901 

&  determine  status  of  Data  input 

S990 

r  D 

■DVT  XT' 

ft  Q  1  1  O 

is  uata  set  r 

82221 

20 

59 

EA 

JSR 

$EA59 

NO— Check  against  ATN  command  mode 

8225 

20 

CO 

E9 

JSR 

$E9C0 

«t=u  vai  nom  ijus  control  register 

8228 

29 

01 

AND 

#$01 

and  test  status  or  uata  input 

822A 

F0 

F6 

BEQ 

$8222 

is  uata  set  now. 

822C2 

20 

AE 

E9 

JSR 

$E9AE 

ic*o — oet  y — lock  out-pUL  to  nxCfn 

822F 

20 

59 

EA 

JSR 

$EA59 

Test  for  ATN  command  mode 

8232 

20 

CO 

E9 

JSR 

$E9C0 

Get  val  from  bus  control  register 

8235 

29 

01 

AND 

#$01 

and  isolate  Data  input 

8237 

DO 

F3 

BNE 

$822C 

Is  Data  set? 

8239 

24 

37 

BIT 

$37 

NO— Test  flag  for  bus  mode 

823B 

50 

39 

BVC 

$8276 

Is  Bus  in  1571  mode? 
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Output 

byte 

over 

1571  DUS 

XJi*o-~lo  /  1  Ous  citcuiLiy 

823D 

AD 

3F 

18 

LDA  $180F 

8240 

09 

02 

ORA  #$02 

switched,  to 

8242 

on 
oL) 

ATT 

Ur 

18 

STA  5180F 

ouupuL   moo-e    v uiv   J-        A  / 

8245 

AD 

AT? 

40 

LDA  9  4  0  Uhi 

Tnyn     cor i ^ 1 

8248 

A  A 

A  A 

ORA  #  9  4  U 

OU  Lput    X.  cyloLci 

824A 

oD 

uhi 

40 

nmn      £  /I  ft  r\~C 

STA  §400£j 

tO  OUtpUL 

824D 

zc 

An 

40 

BIT  5400D 

KcSeU    inu.ei7r.UpL.  Icyiauci 

8250 

AD 

t  r-vv/     i*>  O  ft 

LDX  $  8  2 

INUIUDexT    OX    will  XtsilL.    K^iiaim^z  J- 

8252 

AO 

Get  data  byte/channel  to  transfer 

8255 

on 

40 

blA  9*lUUt 

anH   not"    Qt"  at"  US    of    OU  tDUt 

8258^ 

A1J 

An 

40 

LDA  $4UUD 

825B 

A  Q 
U  O 

AND  ffs>Uo 

coo  1  f  ftiit-nut*  reoister  is  emiotv 

825D 

F0 

r  y 

BEQ  §OiOo 

X  o    ij  V  L>tS     L*X  Oils  J.         J-  • 

825F 

AD 

0E 

40 

LDA  $  4  U  Uti 

yfq  Gtjj-J  +■  r*h  c^r"!  r^crister 

8262 

29 

BF 

AND  #5BF 

to  an 

8264 

8D 

0E 

40 

r~*  m  Ti              ft  ft  TTi 

STA  5400E 

input  regiSLci 

8267 

AD 

OF 

18 

LDA  $180F 

Bus  circuitry  back 

82  6A 

29 

FD 

AND  #$FD 

to  input 

82  6C 

8D 

OF 

lb 

CT7A     61  Q  fiT 

oxA  ^loUr 

mnrie*    fRitl   =0 ) 

82  6F 

A9 

84 

T  T~\  TV       it.  6  O  A 

LDA  #  p  o  4 

ICiXXTUX     aW     >  »  1  i  Jl  J 

8271 

8D 

0D 

40 

STA  $4UUD 

njoai  — t-  -l  mo  ^ l  nrk  not"  used  here  1 

8274 

DO 

3C 

BNE  SaZaZ 

0  UlTip    L.  O  Dt 

Output  byte 

over 

1541  bus 

82761 

A9 

08 

LDA  #$08 

bet  nuitiDer  ox  dils  pex  uyns 

8278 

85 

98 

STA 

111  (/UUIlLcI 

827A1 

20 

CO 

E9 

JSR  p^yt-u 

r~es+-     Hue     rrinf  rnl     T"*a(T"i  cf  or  aTlfi 
bet    XsUS    v*Ull  ILUJ.    X  cy  ialcl  »nu 

827D 

29 

01 

AND  ff^Dl 

827F 

DO 

43 

T3VTTP  iOOP^ 

T*    Haf  a     oof*  "5 

82811 

A6 

82 

LUX  i?oZ 

Mrt  r'cif-    oiiyronr    r-hannol     nnmbpr    3  n fi 

8283 

BD 

3E 

AO 
\J£. 

t  r\7A    <tnoo.ir  v 

UcLciiuiJic    appi  upi  xai>c   ^aua  l-<- 

8286 

6A 

TflVo   a  Viit*    fmm  fhprp  £   mark  the 

8287 

9D 

3E 

\J£. 

Din    yU^OIlj,  A 

roma  1  nHpr   n~f   f  hp   Hvt" P 

X  CII1CIXJ1U61      Ui  *>*Jf 

828A 

B0 

05 

DfC  6RTQ1 

la    DXU    at    X • 

828C 

20 

A5 

TOD     C  T?  Q  7A  C; 

T\I/"V—  Qof     fiaf  a     rsn+"rMit"     t"  n    n  4  rrH 

lmvj  oct   Uoia  output    iu  iixyii 

828F 

DO 

03 

tavri?    <iQO  CkA 

.Tnmri   t"  n  ^R°Q4 

82911 

20 

9C 

T7I  ft 

by 

TCD  CpftAp 

Cm  J  +■  nit      F^a+"a                 mil-      4-          1  /\t-7 

oWltCn   Uata   Output    to  lOW 

82941 

20 

7E 

a^ 

■JoK    pAH  /£< 

appx oa •    ho   oy tie  uciay 

8297 

A5 

23 

t  na  6*)Q 

r  lay    x ox    x o *a  x /  ijiu   una   uc lay 

8299 

DO 

E6 

n\m  6Q001 

is  dus  in  lo^i  moae : 

82  9B 

20 

83 

A  A 

x ijO    appx  OA  ■    ov    tytic b  Uclay 

82  9E 

20 

B7 

E9 

JSR  $E9B7 

Set  Clock  output  to  low 

82A1 

20 

7E 

A4 

JSR  $A47E 

approx.  45  cycle  delay 

82A4 

A5 

23 

LDA  $23 

Flag  for  1541/1540  bus  delay 

82A6 

DO 

03 

BNE  $82AB 

Is  bus  in  1541  mode? 

82A8 

20 

83 

A4 

JSR  $A483 

YES— approx.  80  cycle  delay 
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82AB1 

20 

FB 

FE 

JSR 

$FEFB 

Set  Clock  on  high  and  Data  on  low 

82AE 

C6 

98 

DEC 

$98 

Counter  for  bits  transferred 

82B0 

DO 

C8 

BNE 

$827A 

Is  byte  transferred? 

82B2^ 

20 

59 

EA 

JSR 

$EA59 

YES-Test  for  ATN  command  mode 

82B5 

20 

CO 

E9 

JSR 

$E9C0 

Get  bus  control  register  and 

82B8 

29 

01 

AND 

#$01 

take  up  DATA  input 

82BA 

F0 

F6 

BEQ 

$82B2 

Is  Data  set? 

82  BC 

58 

CLI 

YES — Fnshl  <=>    hll  Q  /r-on-t-r-^l  civ*    -i  r\f  rtvimf 

82BD 

20 

AA 

D3 

JSR 

$D3AA 

Read  next  byte  from  file 

82C0 

78 

SEI 

Disable  bus/controller  interrupt 

82C1 

4C 

FO 

81 

JMP 

$81F0 

get  ready  for  output  again 

82C41 

4C 

62 

83 

JMP 

$8362 

Back  to  command  wait  loop 

[8358] 

Read  command  byte  from  1571  bus 

82C7 

2C 

OD 

40 

BIT 

$400D 

Reset  interrupt  register 

82CA 

A9 

08 

LDA 

#$08 

Determine  #  of  bits  to  transfer 

82CC 

85 

98 

STA 

$98 

per  byte 

82CE1 

20 

59 

EA 

JSR 

$EA59 

Test  for  ATN  command  mode  and 

82D1 

20 

CO 

E9 

JSR 

$E9C0 

read  bus  control  register 

82D4 

29 

04 

AND 

#$04 

Test  Clock  input 

82D6 

DO 

F6 

BNE 

$82CE 

Is  Clock  set? 

82D8 

20 

9C 

E9 

JSR 

$E99C 

NO- Set  Data  output  to  high 

82DB 

A9 

01 

LDA 

#$01 

Test  Data  input  in 

82DD1 

2C 

00 

18 

BIT 

$1800 

bus  control  register 

82E0 

DO 

FB 

BNE 

$82DD 

Is  Data  still  set? 

82E2 

8D 

05 

18 

STA 

$1805 

Set  Timer  1  (highbyte)  (1) 

82E51 

20 

59 

EA 

JSR 

$EA59 

Test  for  ATN  command  mode 

82E8 

AD 

OD 

18 

LDA 

$180D 

Test  interrupt  flag  for 

82EB 

29 

40 

AND 

#$40 

'Timer  1  running' 

82ED 

DO 

09 

BNE 

$82F8 

Have  256  time-cycles  passed? 

82EF 

20 

CO 

E9 

JSR 

$E9C0 

NO- Get  val  f/bus  control  register 

82F2 

29 

04 

AND 

#$04 

and  test  Clock  input 

82F4 

FO 

EF 

BEQ 

$82E5 

Is  Clock  set? 

82F6 

DO 

19 

BNE 

$8311 

YES-Jump  to  $8311 

82F81 

20 

A5 

E9 

JSR 

$E9A5 

Set  Data  output  to  high 

82FB 

A2 

18 

LDX 

#$18 

Wait  loop: 

82FD1 

CA 

DEX 

Wait  about 

82FE 

DO 

FD 

BNE 

$82FD 

0.1  ms 

8300 

20 

9C 

E9 

JSR 

$E99C 

Set  Data  output  to  low 

83031 

20 

59 

EA 

JSR 

$EA59 

Test  for  ATN  command  mode 

8306 

20 

CO 

E9 

JSR 

$E9C0 

Get  value  of  bus  control  register 

8309 

29 

04 

AND 

#$04 

and  isolate  Clock  input 

830B 

FO 

F6 

BEQ 

$8303 

Is  Clock  still  set? 

830D 

A9 

00 

LDA 

#$00 

YES— Set  flag: 'last  byte  received' 

830F 

85 

F8 

STA 

$F8 

(EOI) 

83113 

AD 

00 

18 

LDA 

$1800 

Determine,  invert  and  mark 
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8314 

49 

01 

EOR 

#$01 

value  of 

8316 

AA 

TAX 

data  input 

8317 

AD 

OD 

40 

LDA 

$400D 

Get  flag:' serial  input  register 

831A 

29 

08 

AND 

#$08 

full 1 

831C 

FO 

08 

BEQ 

$8326 

Has  a  byte  been  received? 

831E 

AD 

OC 

40 

LDA 

$400C 

YES— Read  byte  out  of  register 

8321 

85 

85 

STA 

$85 

and  save  current  data  byte; 

8323 

4C 

3C 

83 

JMP 

$833C 

end 

8326^ 

8A 

TXA 

Get  inverted  data  value  again 

8327 

4A 

LSR 

A 

and  save  in  Carry 

8328 

29 

02 

AND 

#$02 

Test  Clock  input 

832A 

DO 

E5 

BNE 

$8311 

Was  Clock  set  simultaneously? 

832C 

66 

85 

ROR 

$85 

YES— Take  data  bit  in  data  oyte 

832E"'' 

20 

59 

EA 

JSR 

$EA59 

Test  on  ATN-command  mode 

8331 

20 

CO 

E9 

JSR 

5E9C0 

Get  bus  control  register 

8334 

29 

04 

AND 

#$04 

Test  Clock  input 

8336 

FO 

F6 

BEQ 

$832E 

Is  Clock  still  set? 

8338 

C6 

98 

DEC 

$98 

NO-Counter  for  #  of  data  bits 

833A 

DO 

D5 

BNE 

$8311 

Is  entire  byte  received? 

833C1 

20 

A5 

E9 

JSR 

$E9A5 

YES— Set  Data  output  to  low 

833F 

A5 

85 

LDA 

$85 

Get  Data  byte 

8341 

60 

RTS 

Return  from  this  subroutine 

[8171/835F]  cf  EA2E 
Take  byte  from  bus 


8342 

78 

SEI 

Disable  bus/controller  interrupt 

8343 

20 

07 

Dl 

JSR 

$D107 

Determine  internal  channel  number 

8346 

B0 

05 

BCS 

$834D 

Has  channel  been  found? 

8348 

B5 

F2 

LDA 

$F2,X 

YES— Status  of  channel 

834A 

6A 

ROR 

A 

Test  flag  for  write  mode 

834B 

B0 

0B 

BCS 

$8358 

Is  channel  opened  for  writing? 

834D1 

A5 

84 

LDA 

$84 

NO-Get  current  secondary  address 

834F 

29 

F0 

AND 

#$F0 

and  command  bits;  test  against 

8351 

C9 

F0 

CMP 

#$F0 

'close  channel  1 

8353 

F0 

03 

BEQ 

$8358 

Should  channel  be  ended? 

8355 

4C 

66 

83 

JMP 

$8366 

NO— Return  to  command  waitloop 

83582 

20 

C7 

82 

JSR 

$82C7 

Get  byte  from  1571  bus 

835B 

58 

CLI 

Enable  bus/controller  interrupt 

835C 

20 

B7 

CF 

JSR 

$CFB7 

Write  byte  in  file 

835F 

4C 

42 

83 

JMP 

$8342 

some  more 

[82C4] 

Set  bus  back; 

return 

to  command  waitloop 

8362 

A9 

00 

LDA 

#$00 

Clear  bus 

8364 

85 

37 

STA 

$37 

status  byte 
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[818A/8355]     Set  bus  back;  maintain  mode 

8366    A9  00  LDA  #$00  Set  Data-  and  Clock  output 

8368     8D  00  18       STA  $1800  to  low 


[8174/E698/E8EA/EA53] 
Wait  for  next  command 

836B    20  B2  81      JSR  $81B2  Switch  1571  bus  to  input  mode 

83 6E    4C  E7  EB      JMP  $EBE7  Wait  for  next  computer  command 


[Origin  over  vector  in  808E/80AE 
Read  CP/M  sector;  previous  error 


8371 

8D 

4D 

02 

STA 

$024D 

8374 

85 

5F 

STA 

$5F 

8376 

AD 

0D 

18 

LDA 

$180D 

8379 

4A 

LSR 

A 

837A 

90 

18 

BCC 

$8394 

837C 

A2 

0B 

LDX 

#$0B 

837E 

2C 

.byte  $2C 

throuh  routine  $8030] 
test 

Save  jobcode  of  routine 

from  table  $806E 

Test  CA2  input (circuitry  shows 

'Write  Protect'  has  interrupted) 

Has  diskette  been  changed? 

YES-Error  #:'ID  Mismatch  Error' 

Transf r  next  2  bytes (bit  command) 


[Origin  of  vector;  :  8090/8098/80A4/80A8/80B0/80B8/80C4  thru  $8030] 
Display  error  'drive  not  ready' 

837F    A2  4F  LDX  #$4F  Error  #  for  'drive  not  ready' 

[83C7/844A/84B4/8E42/8384:8DBC] 

Combine  command  status  flag  and  output  with  error 

8381    20  E9  85      JSR  $85E9  Set  up  byte  for  output 

8384     20  81  85      JSR  $8581  Output  message  over  1571  bus 

[84EE]     eventual  error  output  (else  return) 

8387    E0  02  CPX  #$02  Compare  #  with  value  for  'OK' 

8389    B0  01  BCS  $838C  Is  an  error  set? 

838B    60  RTS  NO-Return  from  this  subroutine 


[8389/8484/8568/875C] 

Output  error  message  (number  in  X) 

838C     8A  TXA 

838D     29  OF  AND  #$0F 

838F    A2  00  LDX  #$00 

8391     4C  OA  E6      JMP  $E60A 


Get  error  number  and 
determine  proper  error  number 
Set  buffer  number  0 
Prepare  message  text 


[837A] 

Read  CP/M  sector 

8394     20  CE  81  JSR  $81CE  Switch  1571  bus  for  output 

8397    24  5E  BIT  $5E  Get  command  status  byte 

8399    10  05  BPL  $83A0  Is  flag  set  for  IBM-34  diskette? 

839B    A9  09  LDA  #$09  YES-Execute  routine  at  $8D67 

839D    4C  E6  86  JMP  $86E6  (read  IBM  system-34  sector) 
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83A01 

20 

3D 

C6 

JSR 

$C63D 

Initialize  Commodore  diskette 

83A31 

58 

CLI 

Enable  bus /controller  interrupt 

83A4 

A5 

3B 

LDA 

$3B 

Get  command  number  and  test 

83A6 

29 

20 

AND 

#$20 

•sector  not  read'  flag 

83A8 

DO 

26 

BNE 

$83D0 

Only  buffer  to  be  transferred? 

83AA 

AD 

03 

02 

LDA 

$0203 

NO— Get  fourth  char,  from  command 

8  3  AD 

85 

06 

STA 

$06 

string;  take  up  as  track  number 

83AF 

AD 

04 

02 

LDA 

$0204 

Get  fifth  char,  and  set  as  sector 

83B2 

85 

07 

STA 

$07 

number  of  job 

83B4 

A2 

00 

LDX 

#$00 

Choose  buffer  number  0 

83B6 

A5 

5F 

LDA 

$5F 

Get  current  jobcode  and 

83B8 

95 

00 

STA 

$00, X 

give  to  job  loop 

83BA 

20 

5E 

86 

JSR 

$865E 

Execute  job 

83BD 

78 

SEI 

Disable  bus/controller  interrupt 

83BE 

20 

E9 

85 

JSR 

$85E9 

Prepare  return  message  for  output 

83C1 

24 

3B 

BIT 

$3B 

Test  flag  for  "error  test' 

83C3 

70 

04 

BVS 

$83C9 

Return  message  to  be  considered? 

83C5 

EO 

02 

CPX 

#$02 

YES-Test  return  jobmessage  w/'OK' 

83C7 

BO 

B8 

BCS 

$8381 

Job  run  error-free? 

83C91 

20 

F9 

85 

JSR 

$85F9 

YES-Send  return  message  over  bus 

83CC 

A5 

3B 

LDA 

$3B 

Test  flag  for  'output  buffer' 

83CE 

30 

OD 

BMI 

$83DD 

Buffer  transferred  to  computer 

83D01 

AO 

00 

LDY 

#$00 

YES-Buffer  pntr  to  start  of  buffr 

83D21 

B9 

00 

03 

LDA 

$0300, Y 

Get  byte  from  buffer  and  set  as 

83D5 

85 

46 

STA 

$46 

character  to  be  given 

83D7 

20 

F9 

85 

JSR 

$85F9 

Output  character  over  1571  bus 

83DA 

C8 

INY 

Turn  buffer  pointer  to  next  byte 

83DB 

DO 

F5 

BNE 

$83D2 

Entire  buffer  been  transferred? 

83DD1 

CE 

05 

02 

DEC 

$0205 

YES— Number  of  sector  to  be  read 

83E0 

FO 

06 

BEQ 

$83E8 

All  sectors  already? 

83E2 

20 

IE 

86 

JSR 

$861E 

NO-Set  number  of  next  sector 

83E5 

4C 

A3 

83 

JMP 

$83A3 

Read  next  sector 

83E81 

58 

CLI 

Enable  bus/controller  interrupt 

83E9 

4C 

AF 

85 

JMP 

$85AF 

Get  new  track  and  set  it 

[Originates 

over 

vectors  in 

8092/80B2  through  routine  $8030] 

Write 

CP/M  ! 

sector;  previous 

error  check 

83EC 

8D 

4D 

02 

STA 

$024D 

Save  jobcode 

83EF 

AD 

OD 

18 

LDA 

$180D 

Test  CA2  input  (Circuitry  shows 

83F2 

4A 

LSR 

A 

'write  protect'  has  interrupted) 

83F3 

90 

OD 

BCC 

$8402 

Has  diskette  been  exchanged? 

83F5 

A2 

OB 

LDX 

#$0B 

YES-error  #:'ID  Mismatch  Error' 

83F7 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 
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[Origin  from  vector  in  8094  through  routine  $8030] 

83F8    A2  4F  LDX  #$4F  Error:    'drive  not  ready' 

83FA    86  4  6  STX  $4  6  set  as  character  to  be  given 

83FC    A5  3B  LDA  $3B  Transfer  'error  found' 

83FE    09  08  ORA  #$08  flag  into 

8400     85  3B  STA  $3B  command  number 


[83F3] 

Write  CP/M  sector 


8402 

24 

5E 

BIT 

$5E 

8404 

10 

05 

BPL 

$840B 

8406 

A9 

OA 

LDA 

#$0A 

8408 

4C 

E6 

86 

JMP 

$86E6 

840B1 

20 

3D 

C6 

JSR 

$C63D 

840E 

A5 

3B 

LDA 

$3B 

8410 

30 

29 

BMI 

$843B 

84121 

78 

SEI 

8413 

AO 

00 

LDY 

#$00 

84151 

AD 

00 

18 

LDA 

$1800 

8418 

49 

08 

EOR 

#$08 

841A 

2C 

0D 

40 

BIT 

$400D 

841D 

8D 

00 

18 

STA 

$1800 

84201 

AD 

00 

18 

LDA 

$1800 

8423 

10 

03 

BPL 

$8428 

8425 

20 

59 

EA 

JSR 

$EA59 

84281 

AD 

0D 

40 

LDA 

$400D 

842B 

29 

08 

AND 

#$08 

842D 

F0 

Fl 

BEQ 

$8420 

842F 

AD 

OC 

40 

LDA 

$400C 

8432 

99 

00 

03 

STA 

$0300, Y 

8435 

C8 

I  NY 

8436 

DO 

DD 

BNE 

$8415 

8438 

20 

B7 

E9 

JSR 

$E9B7 

843B1 

58 

CLI 

843C 

A5 

3B 

LDA 

$3B 

843E 

29 

20 

AND 

#$20 

8440 

DO 

37 

BNE 

$8479 

8442 

A5 

3B 

LDA 

$3B 

8444 

29 

08 

AND 

#$08 

8446 

F0 

05 

BEQ 

$844D 

8448 

A6 

46 

LDX 

$46 

844A 

4C 

81 

83 

JMP 

$8381 

844D1 

AD 

03 

02 

LDA 

$0203 

8450 

85 

06 

STA 

$06 

8452 

AD 

04 

02 

LDA 

$0204 

8455 

85 

07 

STA 

$07 

8457 

A2 

00 

LDX 

#$00 

Test  command  status  byte 
Flag  for  IBM-34  diskette  set? 
YES-Execute  routine  at  $8DF6 
(Write  IBM  System  34  CP/M  sector) 
Initialize  Commodore  diskette 
Flag:   'Buffer  read  from  computer' 
Is  flag  in  command  byte  set? 
YES-Disable  bus/controler  intrupt 
Set  buffer  pntr  to  start-of-buf f r 
Get  bus  control  register 
Switch  status  of  Clock  output 
Set  interrupt  register  back 
Set  new  Clock  output  value 
Test  ATN  input 
Is  ATN  set? 

YES-Test  for  ATN  command  mode 

Test  'Byte  in  serial  register 

received'  flag 

Has  a  byte  been  read  in? 

YES— Get  byte  and  write 

in  buffer  0 

Turn  buffer  pointer  to  next  byte 
Buffer  already  full 
YES-Set  Clock  output  to  low 
Enable  bus/controller  interrupt 
Get  command  byte  and  test 
'Sector  not  written'  flag 
Set? 

NO— Retest  'error  found' 

flag  in  command  number 

Should  error  be  displayed? 

YES-Get  number  of  error 

and  send  over  1571  bus 

Get  4h  char,  from  command  string 

and  set  as  track  for  job  loop 

Get  5th  char,  from  command  string 

and  set  as  sector  for  job  loop 

Choose  buffer  0 
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8459 

A9 

90 

LDA 

#$90 

Give  jobcode  for  'write  sector' 

845B 

95 

00 

STA 

$00,  X 

to  job  loop 

845D 

20 

5E 

86 

JSR 

$865E 

and  execute 

8460 

78 

SEI 

Disable  bus/controller  interrupt 

8461 

20 

CE 

81 

JSR 

$81CE 

Switch  1571  bus  to  output 

8464 

20 

E9 

85 

JSR 

$85E9 

Prepare  return  message  for  output 

84  67 

20 

F9 

85 

JSR 

$85F9 

Output  byte  over  1571  bus;  wait 

84  6A 

20 

AO 

86 

JSR 

$86A0 

for  shift  from  clock 

84  6D 

20 

B2 

81 

JSR 

$81B2 

Switch  1571  bus  to  input 

8470 

58 

CLI 

Enable  bus/controller  interrupt 

8471 

24 

3B 

BIT 

$3B 

Test  'error  test'  flag 

8473 

70 

04 

BVS 

$8479 

Should  error  return  message  be 

8475 

E0 

02 

CPX 

#$02 

regarded?  YES— Test  error  number 

8477 

BO 

OB 

BCS 

$8484 

Is  job  running  error-free? 

84  7  92 

CE 

05 

02 

DEC 

$0205 

YES— Counter  for  sectors 

847C 

FO 

09 

BEQ 

$8487 

Still  a  sector? 

847E 

20 

IE 

86 

JSR 

$861E 

YES— Calculate  new  sector  number 

8481 

4C 

12 

84 

JMP 

$8412 

Run  routine  again 

84841 

4C 

8C 

83 

JMP 

$838C 

Return  to  command  waitloop 

84881 

58 

CLI 

Enable  bus/controller  interrupt 

8488 

4C 

AF 

85 

JMP 

$85AF 

Set  new  track  and  end 

[Origin  over  vectors  8096/80B6  of  routine  $8030] 

Read  next  CP/M  sector  header (first  System-34,then  Commodore  format) 


848B 

AD 

02 

02 

LDA 

$0202 

Get  Jobcode 

848E 

29 

01 

AND 

#$01 

and  determine  drive  #  from  it 

8490 

DO 

20 

BNE 

$84B2 

Is  drive  0  contacted? 

84  92 

A9 

01 

LDA 

#$01 

YES— Clear  'Write  protect  has  been 

8494 

8D 

0D 

18 

STA 

$180D 

interrupted'   (disk  exchange) 

84  97 

A9 

05 

LDA 

#$05 

Execute  routine  at  $8A09 

8499 

20 

E6 

86 

JSR 

$86E6 

(Read  IBM  System  34) 

84  9C 

AE 

B0 

01 

LDX 

$01B0 

Get  return  message  and  compare 

84  9F 

E0 

02 

CPX 

#$02 

with  value  for  'Ok' 

84A1 

90 

11 

BCC 

$84B4 

Run  into  an  error? 

84A3 

A2 

00 

LDX 

#$00 

YES— Clear  command  status  byte 

84A5 

86 

5E 

STX 

$5E 

Save  the 

84A7 

A9 

B0 

LDA 

#$B0 

jobcode  for  'Search  sector' 

84A9 

8D 

4D 

02 

STA 

$024D 

and  give  to 

84AC 

95 

00 

STA 

$00, X 

job  loop 

84AE 

20 

5E 

86 

JSR 

$865E 

Execute  job 

84B1 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

84B21 

A2 

4F 

LDX 

#$4F 

Error  #  for  'drive  not  ready' 

84B41 

4C 

81 

83 

JMP 

$8381 

Display  return  message, next  cmd 
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[Origin  over  vectors  809A/809C/80BA/80BC  through  routine  $8030] 
Format  CP/M  diskette 


84B7 

AD 

02 

02 

LDA 

$0202 

Get  jobcode  and 

84BA 

29 

01 

AND 

#$01 

determine  drive  to  be  utilized 

84BC 

DO 

2B 

BNE 

$84E9 

Should  format  be  done  in  dr.  0? 

84BE 

AD 

03 

02 

LDA 

$0203 

YES-Get  flag  for  diskette  type 

84C1 

10 

05 

BPL 

$84C8 

Is  Commodore  format  desired? 

84C3 

A9 

08 

LDA 

#$08 

NO-Format  disk  in  IBM  System34 

84C5 

4C 

E6 

86 

JMP 

$86E6 

format   (routine  $8C57) 

84C81 

A9 

00 

LDA 

#$00 

Clear  command  status  byte 

84CA 

85 

5E 

STA 

$5E 

(delete) 

84CC 

85 

FF 

STA 

$FF 

Set  drive  status  to  'ready' 

84CE 

AD 

04 

02 

LDA 

$0204 

Get  5th  char,  from  command  string 

84D1 

85 

12 

STA 

$12 

and  take  on  as  first  ID  character 

84D3 

AD 

05 

02 

LDA 

$0205 

Get  6th  char,  from  command  string 

84D6 

85 

13 

STA 

$13 

and  store  as  2nd  character  of  ID 

84D8 

20 

07 

D3 

JSR 

$D307 

Close  all  channels 

84DB 

A9 

01 

LDA 

#$01 

Set  track  number  1  as 

84DD 

85 

80 

STA 

$80 

current  track 

84DF 

A9 

FF 

LDA 

#$FF 

Format  disk  in  1571/1541  format 

84E1 

8D 

98 

02 

STA 

$0298 

Get  return  message 

84E4 

20 

89 

A9 

JSR 

$A989 

and  prepare  for  output 

84E7 

AA 

TAX 

Send  message  over  1571  bus,  end 

84E8 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

84E91 

A2 

4F 

LDX 

#$4F 

Error  #  for  'drive  not  ready' 

84EB 

20 

E9 

85 

JSR 

$85E9 

Prepare  byte  for  output 

84EE 

4C 

87 

83 

JMP 

$8387 

Prepare  error  message 

[Origin  of  vector  809C/80AO 

through  routine  $8030] 

Get  /set 

CP/M 

sector 

format 

84F1 

78 

SEI 

Disable  bus/controller  interrupt 

84F2 

24 

3B 

BIT 

$3B 

check  command  number 

84F4 

10 

OA 

BPL 

$8500 

read  sector  format? 

84F6 

20 

CE 

81 

JSR 

$81CE 

YES-switch  1571  bus  for  output 

84F9 

A5 

3C 

LDA 

$3C 

Get  sector  format  and  store 

84FB 

85 

46 

STA 

$46 

as  byte  to  be  output 

84FD 

4C 

F9 

85 

JMP 

$85F9 

Send  byte  over  1571  bus 

85001 

AE 

74 

02 

LDX 

$0274 

Determine  length  of  comand  string 

8503 

E0 

04 

CPX 

#$04 

&  test  if  exactly  3  char,  long 

8505 

B0 

OA 

BCS 

$8511 

Exactly  3  char,  in  buffer? 

8507 

A2 

0E 

LDX 

#$0E 

YES— Error  code  for  'Syntax  Error' 

8509 

20 

E9 

85 

JSR 

$85E9 

Prepare  error  for  output 

850C 

A9 

31 

LDA 

#$31 

Error  message 

850E 

4C 

C8 

CI 

JMP 

$C1C8 

Output  '31  Syntax  Error' 

85111 

AD 

03 

02 

LDA 

$0203 

Get  byte  f/cmd  string (4th  char) 

8514 

85 

3C 

STA 

$3C 

and  use  as  new  sector  format 

8516 

60 

RTS 

Return  to  caller 
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[Origin  over  vector  in  80A2/80C2  by  routine  $8030] 
Read  CP/M  sector  header  and  determine  sector  sequence 


8517 

20 

8B 

84 

JSR 

$848B 

Read  next  header 

851A 

24 

5E 

BIT 

$5E 

Test  cmd  status  byte  w/IBM  flag 

851C 

10 

48 

BPL 

$8566 

Is  flag  set  for  IBM-34  diskette? 

851E 

A9 

0D 

LDA 

#$0D 

YES-Execute  routine  at  $8F5F 

8520 

20 

E6 

86 

JSR 

$86E6 

(Set  up  sector  sequence  table) 

8523 

AE 

B0 

01 

LDX 

$01B0 

Get  return  message;  compare  with 

8526 

E0 

02 

CPX 

#$02 

value  for  'Ok' 

8528 

B0 

08 

BCS 

$8532 

Is  there  an  error? 

852A 

20 

61 

89 

JSR 

$8961 

NO-Get  lowest  and  highest  sectors 

852D 

20 

86 

89 

JSR 

$8986 

Compute  sector  format 

8530 

8A 

TXA 

Get  sector  format 

8531 

48 

PHA 

and  record  it 

85321 

78 

SEI 

Disable  bus /controller  interrupt 

8533 

20 

CE 

81 

JSR 

$8  ICE 

Switch  1571  bus  for  output 

8536 

A5 

5E 

LDA 

$5E 

Get  command  status  byte, set  as 

8538 

85 

46 

STA 

$46 

character  to  be  output 

853A 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

853D 

AE 

B0 

01 

LDX 

$01B0 

Get  error  number  and  compare 

8540 

E0 

02 

CPX 

#$02 

with  value  for  'Ok' 

8542 

B0 

23 

BCS 

$8567 

Is  there  an  error? 

8544 

A5 

97 

LDA 

$97 

NO— Set  number  of  sectors  in 

8546 

85 

46 

STA 

$46 

track  as  character  to  be  output 

8548 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

854B 

A5 

67 

LDA 

$67 

Set  #  of  track  read  as  character 

854D 

85 

46 

STA 

$46 

to  be  output 

854F 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

8552 

A5 

60 

LDA 

$60 

Set  smallest  sector  #  as  char. 

8554 

85 

46 

STA 

$46 

to  be  output 

8556 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

8559 

A5 

61 

LDA 

$61 

Set  greatest  sector  number  as 

855B 

85 

46 

STA 

$46 

character  to  be  output 

855D 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

8560 

68 

PLA 

Get  sector  format  &  set  as  char. 

8561 

85 

46 

STA 

$46 

to  be  output 

8563 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

85661 

60 

RTS 

Return  to  caller 

85671 

68 

PLA 

Fix  stack 

8568 

4C 

8C 

83 

JMP 

$838C 

Display  error  message 

[Origin  over  vector  in  80A6  by  routine  $8030] 

Get  command  status  byte  /  set  it;  get  error  number 

856B    24  3B  BIT  $3B  Test  command  number 

856D     10  27  BPL  $8596  Get  command  status  byte? 

85 6F    24  3B  BIT  $3B  Test  flag  in  command  number 

8571    50  0E  BVC  $8581  Check  for  diskette  exchange? 
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8573 

AD 

OD  18 

LDA 

$180D 

YES— Test  hardware  signal  for 

8576 

4A 

LSR 

A 

'Write  protect  has  interrupted 

8577 

90 

08 

BCC 

$8581 

Has  diskette  been  exchanged? 

8579 

A5 

5E 

LDA 

$5E 

Get  command  status  byte 

857B 

29 

F0 

AND 

#$F0 

and  set  up  flag 

857D 

09 

OB 

ORA 

#$0B 

Set  error  #  for  'ID  Mismatch' 

857F 

85 

5E 

STA 

$5E 

and  save  as  status  byte 

[8384/8571/8577] 

Display  command  status  byte 


8581 

78 

SEI 

Disable  bus  &  controllr  interrupt 

8582 

20 

CE 

81 

JSR 

$81CE 

Switch  1571  bus  for  output 

8585 

A5 

5E 

LDA 

$5E 

Set  status  byte  as  character  to 

8587 

85 

46 

STA 

$46 

be  sent 

8589 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

858C 

A9 

00 

LDA 

#$00 

Clear  error  flag  (blink  counter) 

858E 

8D 

6C 

02 

STA 

$026C 

8591 

20 

B2 

81 

JSR 

$81B2 

Switch  1571  bus  to  input 

8594 

58 

CLI 

Enable  bus/controller  interrupt 

8595 

60 

RTS 

Return  to  caller 

Set  command 

status  byte 

85961 

AD 

03 

02 

LDA 

$0203 

Get  4th  char  from  command  string. 

8599 

85 

5E 

STA 

$5E 

and  save  as  command  status 

85  9B 

24 

3B 

BIT 

$3B 

Test  flag  from  command  number 

859D 

50 

05 

BVC 

$85A4 

diskette  exchange  be  observed? 

85  9F 

A9 

01 

LDA 

#$01 

YES— Initialize  disk  exchange  flag 

85A1 

8D 

0D 

18 

STA 

$180D 

(write  protect  will  interrupt) 

85A41 

60 

RTS 

Return  to  caller 

[Origin  over  vector  in  80AA/80AC  by  routine  $8030] 
Display  'Syntax  Error' 


85A5 

A2 

0E 

LDX 

#$0E 

Set  error  number 

85A7 

20 

E9  85 

JSR 

$85E9 

Prepare  byte  for  output 

85AA 

A9 

31 

LDA 

#$31 

Display 

85AC 

4C 

C8  CI 

JMP 

$C1C8 

■31  Syntax  Error'  message 

[83E9/8488] 

Turn 

new 

track 

85AF 

AD 

74  02 

LDA 

$0274 

Get  length  from  command  string. 

85B2 

C9 

07 

CMP 

#$07 

and  compare  to  7  characters 

85B4 

90 

32 

BCC 

$85E8 

Does  cmd  string  have  min.  7chars? 

85B6 

A5 

06 

LDA 

$06 

YES— Get  last  track  number  and 

85B8 

A8 

TAY 

save  it 

85B9 

E9 

01 

SBC 

#$01 

Get  current  head  position,  above. 

85BB 

OA 

ASL 

A 

then  calculate  in  half-steps  and 

85BC 

85 

64 

STA 

$64 

set  it 
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85BE 

CO 

24 

CPY 

#$24 

Last  track  on  side  2? 

85C0 

08 

PHP 

Save  result  of  the  test 

85C1 

AC 

06 

02 

LDY 

$0206 

Get  7th  char  from  command  string. 

85C4 

84 

22 

STY 

$22 

and  set  as  current  track 

85C6 

88 

DEY 

From  that,  calculate  and  set 

85C7 

84 

67 

STY 

$67 

target  track  -1 

85C9 

CO 

23 

CPY 

#$23 

Is  new  track  on  side  2  of  disk? 

85CB 

6A 

ROR 

A 

Move  result  in  Bit  7 

85CC 

28 

PLP 

Get  previous  result  again,  &  get 

85CD 

29 

80 

AND 

#$80 

the  last  result  ready  again 

85CF 

90 

OB 

BCC 

$85DC 

Last  track  on  side  2   (Bit  =1) ? 

85D1 

30 

12 

BMI 

$85E5 

YES— New  track  on  side  2   (Bit  =1)? 

85D3 

18 

CLC 

NO —  Compute  and 

85D4 

A5 

67 

LDA 

$67 

set  new  track 

85D6 

69 

23 

ADC 

#$23 

on  side 

85D8 

85 

67 

STA 

$67 

2 

85DA 

30 

09 

BMI 

$85E5 

Jump 

85DC1 

10 

07 

BPL 

$85E5 

to  $85E5 

85DE 

38 

SEC 

Compute  new  track 

85DF 

A5 

67 

LDA 

$67 

number  on  side 

85E1 

E9 

23 

SBC 

#$23 

1  and 

85E3 

85 

67 

STA 

$67 

save  it 

85E53 

4C 

BA 

87 

JMP 

$87BA 

Turn  track 

85E81 

60 

RTS 

Return  from  this  subroutine 

[8381/83BE/8464/84EB/8509/85A7/8D64/8DB1/8EA3] 
Perpare  error  byte  for  output 


85E9 

86 

46 

STX 

$46 

Save  error  number 

85EB 

A5 

5E 

LDA 

$5E 

Get  command  status  byte  and 

85ED 

29 

F0 

AND 

#$F0 

isolate  flag 

85EF 

05 

46 

ORA 

$46 

Take  up  error  #  and  set  value 

85F1 

85 

5E 

STA 

$5E 

as  new  status;  also,  character 

85F3 

85 

46 

STA 

$46 

to  be  given 

85F5 

60 

RTS 

Return  from  this  subroutine 

[8603] 

Send  byte  over  1571  bus 

85F6 

20 

59  EA 

JSR 

$EA59 

Test  for  ATN  command  mode 

[83C9/83D7/8467/84FD/853A/8548/854F/8556/855D/8563/8589/85FF/8609] 

[8DBF/8DD4/8EA6] 

Send  byte  over  1571  bus 

85F9    AD  00  18      LDA  $1800  Get  bus  control  register; wait  til 

85FC    CD  00  18      CMP  $1800  line  status  remains  constant 

85FF    DO  F8            BNE  $85F9  Constant  value  applied? 

8601    29  FF           AND  #$FF  YES-Processor  flag  reset 

8603     30  Fl            BMI  $85F6  Is  ATN  set? 

8605     45  37            EOR  $37  NO-Get  bus  status  and  test 
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8607 

29 

04 

AND 

#$04 

flag  for  Clock 

8609 

F0 

EE 

BEQ 

$85F9 

Is  Clock  set? 

860B 

A5 

46 

LDA 

$46 

YES— Get  char,  tobe  sent  &  transfr 

860D 

8D 

OC 

40 

STA 

$400C 

to  the  serial  output  register 

8610 

A5 

37 

LDA 

$37 

Flag  for  Clock;  get  and 

8612 

49 

04 

EOR 

#$04 

invert 

8614 

85 

37 

STA 

$37 

Store  flag  again 

8616 

A9 

08 

LDA 

#$08 

Test  bitflag  for  'Register 

86181 

2C 

OD 

40 

BIT 

$400D 

output'  and  verify 

861B 

FO 

FB 

BEQ 

$8618 

Is  byte  completely  output? 

861D 

60 

RTS 

YES— Return  from  this  subroutine 

[83E2/847E] 

Calculate  number  of  next  IBM-34  sector 


861E 

AD 

03 

02 

LDA 

$0203 

Get  track  #  from  command  string  & 

8621 

C9 

24 

CMP 

#$24 

compare  with  max.  track  +1 

8623 

90 

02 

BCC 

$8627 

Is  track  on  side  2? 

8625 

E9 

23 

SBC 

#$23 

YES— Compute  and  set 

86271 

AA 

TAX 

track  from  side  1 

ZD 

y4 

LDA 

$942B,X 

Determine  and  save  #  of  sectors 

862B 

AA 

TAX 

per  track;  from  this. 

862C 

CA 

DEX 

get  maximum  sector  number  and 

862D 

86 

46 

STX 

$46 

save  it 

862F 

18 

CLC 

Set  new  sector  number: 

8630 

AD 

04 

02 

LDA 

$0204 

Sector  number  from  command  string 

8633 

65 

3C 

ADC 

$3C 

Compute  sector  format 

8635 

C5 

46 

CMP 

$46 

Compare  with  maximum  number 

8637 

90 

OA 

BCC 

$8643 

Has  legal  range  been  exceeded? 

8639 

E5 

46 

SBC 

$46 

YES— Set  number  of  legal  range 

863B 

F0 

04 

BEQ 

$8641 

Last  sector  chosen? 

863D 

38 

SEC 

YES— Then  calculate  sector  number 

863E 

E9 

01 

SBC 

#$01 

(since  sector  0  also  exists) 

8640 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

86411 

A5 

46 

LDA 

$46 

Get  first  value  computed  and 

86431 

8D 

04 

02 

STA 

$0204 

save  current  sector  number 

8646 

A9 

88 

LDA 

#$88 

'Read  sector  from  current  track' 

8648 

85 

5F 

STA 

$5F 

given  as  current  jobcode 

864A 

60 

RTS 

Return  from  this  subroutine 

[910E] 

Execute 

job 

864B 

A6 

F9 

LDX 

$F9 

Current  buffer  number 

864D 

08 

PHP 

Retain  processor  status 

864E 

58 

CLI 

Enable  bus/controller  interrupt 

864F 

20 

B6 

9F 

JSR 

$9FB6 

Start  job  loop  and  execute  job 

8652 

C9 

02 

CMP 

#$02 

Compare  return  message  with  'Ok' 

8654 

90 

05 

BCC 

$865B 

Job  run  error-free? 
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8656 

20 

83 

86 

JSR 

$8683 

NO-Continue  trying 

8659 

B5 

00 

LDA 

$00, X 

Get  and  save  return 

865B1 

AA 

TAX 

message 

865C 

28 

PLP 

Re-establish  processor  status 

865D 

60 

RTS 

Return  from  this  subroutine 

[83BA/845D/84AE] 

Start 

job  loop  and  execute 

job  for  buffer  0 

865E 

A2 

00 

LDX 

#$00 

Determine  buffer  number 

8660 

08 

PHP 

Save  processor  status 

8661 

78 

SEI 

Disable  bus/controller  interrupt 

8662 

AD 

00 

1C 

LDA 

$1C00 

Get  drive  control  register  and 

8665 

09 

08 

ORA 

#$08 

set  bit  for  LED 

8667 

8D 

00 

1C 

STA 

$1C00 

LED  on 

866A 

58 

CLI 

Enable  bus/controller  interrupt 

866B 

20 

B6 

9F 

JSR 

$9FB6 

Start  job  loop  and  execute  job 

866E 

C9 

02 

CMP 

#$02 

Test  return  message  for  'OK' 

8670 

90 

03 

BCC 

$8675 

Job  run  error— free? 

8672 

20 

83 

86 

JSR 

$8683 

NO —  Execute  new  attempt 

86751 

78 

SEI 

Disable  bus/controller  interruot 

8676 

AD 

00 

1C 

LDA 

$1C00 

Get  control  register  and 

8679 

29 

F7 

AND 

#$F7 

clear  LED  bit 

867B 

8D 

00 

1C 

STA 

$1C00 

LED  off 

867E 

B5 

00 

LDA 

$00, X 

Get  return  message  of  last  try. 

8680 

AA 

TAX 

and  save  it 

8681 

28 

PLP 

Re-establish  processor  status 

8682 

60 

RTS 

Return  from  this  subroutine 

[8656/8672] 

Continue 

attempt 

at  ; 

job  execution 

8683 

A9 

FF 

LDA 

#$FF 

Set  flag  for 

8685 

8D 

98 

02 

STA 

$0298 

'Error  in  job  execution' 

8688 

86 

F9 

STX 

$F9 

Save  buffer  number  of  job 

868A 

AD 

02 

02 

LDA 

$0202 

Get  jobcode  and  save 

868D 

85 

5F 

STA 

$5F 

as  current 

868F 

8D 

4D 

02 

STA 

$024D 

jobcode 

8692 

9D 

5B 

02 

STA 

$025B,X 

Arrange  jobcode  of  buffer  &  give 

8695 

85 

00 

STA 

$00 

to  job  loop  as  jobcode  for 

8697 

20 

B6 

9F 

JSR 

$9FB6 

buffer  0 

869A 

4C 

99 

D5 

JMP 

$D599 

Control  job  execution 

869D1 

20 

59 

EA 

JSR 

$EA59 

Test  for  ATN  command  mode 
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[84  6A/86A6/86B0/8EA9] 


Wait 

for 

jump  of 

Clock  input 

86A0 

AD 

00 

18 

LDA 

$1800 

Get  bus  control  register  and 

86A3 

CD 

00 

18 

CMP 

$1800 

compare  w/value  from  2nd  reading 

86A6 

DO 

F8 

BNE 

$8  6A0 

Is  status  of  register  constant? 

86A8 

29 

FF 

AND 

#$FF 

Set  processor  flag 

86AA 

30 

Fl 

BMI 

$869D 

Is  ATN  set? 

86AC 

45 

37 

EOR 

$37 

NO— Compare  Clock  value  w/value  of 

86AE 

29 

04 

AND 

#$04 

the  last  call  of  this  routine 

86B0 

F0 

EE 

BEQ 

$86A0 

Has  it  been  altered? 

86B2 

A5 

37 

LDA 

$37 

YES— Then  get  flag  and 

86B4 

49 

04 

EOR 

#$04 

also  re-save 

86B6 

85 

37 

STA 

$37 

reversed  flag 

86B8 

60 

RTS 

Return  from  this  subroutine 

[Table  will  be  used  in  86E9] 

Control  bytes  for  functions  before  call  of  IBM-34  routines 

Function  of  individual  bits  (Bit=l  called' Function  activated') : 

bitO  Error  by  job  execution  not  given 

bitl  Read  next  header  and  set  head  to  last-read  track 

bit2  Wait  until  motor  runs  &  head  is  in  position  (track  and  side) 

bit3  Position  head  to  new  track  ($67) 

bit4  Drive  motor  on 

bit5  Check  write  protect 

bit6  Take  sector  number  from  command  string 

bit7  Set  value  for  new  track  ($67) 


86B9 

00 

%00000000 

No  status  functions 

86BA 

15 

%00010101 

Motor  on/wait/no  error  message 

86BB 

00 

%00000000 

No  status  functions 

86BC 

00 

%00000000 

No  status  functions 

86BD 

00 

%00000000 

No  status  functions 

86BE 

15 

%00010101 

Motor  on/wait/no  error  message 

86BF 

00 

%00000000 

No  status  functions 

86C0 

BC 

%10111100 

Track/test  WP/head/wait 

86C1 

34 

%00110100 

Test  WP/motor  on/wait 

86C2 

DE 

%11011110 

Track/sector /motor  on/head/header 

86C3 

FE 

%11111110 

Track/sector/test  WP/motor  on/head/header 

86C4 

DC 

%11011100 

Track/sector/Motor  on/head/wait 

86C5 

15 

%00010101 

Motor  on/wait/no  error  message 

86C6 

15 

%00010101 

Motor  on/wait/no  error  message 

86C7 

00 

%00000000 

No  status  functions 
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[Table  will  be  used  in  873F] 

Diskette  routine  addresses  in  IBM  System-34  format 


86C8 

EC 

89 

0 

/ 

00 

$89EC 

Execute  reset  ($EAA0) 

86CA 

EF 

89 

1 

/ 

01 

$89EF 

Reset  head  to  track 

86CC 

FD 

89 

2 

/ 

02 

$89FD 

Test  'Write  Protect' 

86CE 

03 

8A 

3 

/ 

03 

$8A03 

Take  up  track  parameters 

86D0 

08 

8A 

4 

/ 

04 

$8A08 

No  function  (rts) 

86D2 

09 

8A 

5 

/ 

05 

$8  AO  9 

Read  next  IBM-34  header 

86D4 

BA 

87 

6 

/ 

06 

$87BA 

No  function  (rts) 

86D6 

86 

8A 

7 

/ 

07 

$8A86 

Format  'IBM  Syst34'  track 

86D8 

57 

8C 

8 

/ 

08 

$8C57 

Format  IBM-34  diskette 

86D9 

67 

8D 

9 

/ 

09 

$8D67 

Read  IBM-34  sector 

86DC 

F6 

8D 

10 

/ 

OA 

$8DF6 

Write  IBM-34  sector 

86DE 

C6 

8E 

11 

/ 

OB 

$8EC6 

IBM-34  sector  verify 

86E0 

18 

8F 

12 

/ 

oc 

$8F18 

Test  IBM34  sectr:  empty  byte 

86E2 

5F 

8F 

13 

/ 

0D 

$8F5F 

Send  IBM-34  sector  sequence 

86E4 

B3 

89 

14 

/ 

OE 

$89B3 

Initialize  IBM-34  track 

[839D/8408/8499/84C5/8520/BF4E] 

Routine  to  call  IBM  system  34  functions  (number  in  accumulator) 


86E6 

78 

SEI 

Disable  bus/controller  interrupt 

86E7 

48 

PHA 

Save  #  of  routine  to  be  called 

86E8 

AA 

TAX 

and  get  corresponding 

86E9 

BD 

B9 

86 

LDA 

$86B9,X 

control  byte  of  routine 

86EC 

85 

IB 

STA 

$1B 

and  store  it 

86EE 

A5 

5E 

LDA 

$5E 

Set  flag  for  IBM-34  format 

86F0 

09 

80 

ORA 

#$80 

in  command  status 

86F2 

85 

5E 

STA 

$5E 

byte 

86F4 

06 

IB 

ASL 

$1B 

Test  Bit 7  of  control  byte 

86F6 

90 

05 

BCC 

$86FD 

Set? 

86F8 

AD 

03 

02 

LDA 

$0203 

YES— Get  #  of  track  to  be  ctrolled 

86FB 

85 

67 

STA 

$67 

and  set  pointers 

86FD1 

06 

IB 

ASL 

$1B 

Test  Bit6  of  control  byte 

86FF 

90 

05 

BCC 

$8706 

Set? 

8701 

AD 

04 

02 

LDA 

$0204 

YES— Get  number  of  desired  sector 

8704 

85 

43 

STA 

$43 

and  save  it 

87061 

06 

IB 

ASL 

$1B 

Test  Bit5  of  control  byte 

8708 

90 

11 

BCC 

$871B 

Set? 

870A 

AD 

00 

1C 

LDA 

$1C00 

Get  bus  control  register  and  test 

870D 

29 

10 

AND 

#$10 

Bit  for  'Write  Protect' 

870F 

DO 

OA 

BNE 

$871B 

Is  there  a  write-protect  tab? 

8711 

A5 

3B 

LDA 

$3B 

YES-Set 

8713 

09 

08 

ORA 

#$08 

'Write  protect  in  place' 

8715 

85 

3B 

STA 

$3B 

flag 

8717 

A2 

08 

LDX 

#$08 

Save  error  #:   'Write  Protect  On' 

8719 

86 

46 

STX 

$46 

as  character  to  be  given 

871B2 

06 

IB 

ASL 

$1B 

Test  Bit4  of  control  byte 
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871D 

90 

03 

BCC 

$8722 

Set? 

871F 

20 

94 

87 

JSR 

$8794 

YES— Drive  motor  on 

87221 

06 

IB 

ASL 

$1B 

Test  Bit  3  of  control  byte 

8724 

90 

03 

BCC 

$8729 

Set? 

8726 

20 

BA 

87 

JSR 

$87BA 

YES— Turn  target  track  from  ($67) 

87291 

06 

IB 

ASL 

$1B 

Test  bit  2  of  control  byte 

872B 

90 

03 

BCC 

$8730 

Set? 

872D 

20 

BO 

87 

JSR 

$87B0 

Wait  until  head  &  motor  are  ready 

87301 

20 

54 

89 

JSR 

$8954 

Activate  head  on  current  side 

8733 

06 

IB 

ASL 

$1B 

Test  Bitl  of  control  byte 

8735 

90 

03 

BCC 

$873A 

Set? 

8737 

20 

2A 

89 

JSR 

$892A 

YES-Read  IBM-34  header  &  set  head 

873A1 

A9 

00 

LDA 

#$00 

Clear  processor  status  register 

873C 

68 

PLA 

Get  #  of  program  to  be  called 

873D 

OA 

ASL 

A 

and  double  it  (address  table 

873E 

AA 

TAX 

takes  2-byte  pointers) 

873F 

BD 

C8 

86 

LDA 

$86C8,X 

Get  program  addr (lo-byte)  from 

8742 

85 

6F 

STA 

$6F 

table  and  set  in  pointer 

8744 

BD 

C9 

86 

LDA 

$86C9,X 

Get  high-byte  and 

8747 

85 

70 

STA 

$70 

save  it 

8749 

20 

61 

87 

JSR 

$8761 

Execute  program 

874C 

20 

8F 

F9 

JSR 

$F98F 

Motor  off  (set  flag) 

874F 

AE 

BO 

01 

LDX 

$01B0 

Get  return  message  of  last  job  & 

8752 

EO 

02 

CPX 

#$02 

compare  with  ' Ok ' 

8754 

08 

PHP 

Save  result 

8755 

06 

IB 

ASL 

$1B 

Test  bitO  of  control  byte 

8757 

BO 

06 

BCS 

$875F 

Set? 

8759 

28 

PLP 

NO-Get  result  of  eror  check 

875A 

90 

04 

BCC 

$8760 

Is  job  running  error-free? 

875C 

4C 

8C 

83 

JMP 

$838C 

NO— Display  error  and  end 

875F1 

28 

PLP 

Prepare  result  of  error  check 

87601 

60 

RTS 

Return  from  this  subroutine 

87611 

6C 

6F 

00 

JMP 

($006F) 

Execute  IBM  34  routine 

[87A3/99E7/A642/BF51] 

Drive 

motor 

on 

8764 

08 

PHP 

Retain  processor  status 

8765 

78 

SEI 

Disable  bus/controller  interrupt 

8766 

AD 

00 

1C 

LDA 

$1C00 

Get  bus  control  register  and 

8769 

09 

04 

ORA 

#$04 

set  bit  for  'Motor  on' 

87  6B 

8D 

00 

1C 

STA 

$1C00 

Store  register  again 

87  6E 

28 

PLP 

Re-establish  processor  status 

87  6F 

60 

RTS 

Return  from  this  subroutine 
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[99FB/9A39/A654/BF54] 


Drive 

motor 

off 

A770 

Oft 

PHP 

8771 

78 

SEI 

Disable  bus/controller  interrupt 

8772 

AD  00 

1C 

LDA 

$1C00 

Get  bus  control  register  and 

8775 

29  FB 

AND 

#$FB 

clear  bit  for  'Motor  on' 

8777 

8D  00 

1C 

STA 

$1C00 

Reset  control  register 

877A 

28 

PLP 

Re-establish  processor  status 

877B 

60 

RTS 

Return  from  this  subroutine 

[884F]  cf.  C100/C118 
Drive  LED  on 


877C 

08 

PHP 

Retain  processor  status 

877D 

78 

SEI 

Disable  bus/controller  interrupt 

877E 

AD 

00 

1C 

LDA 

$1C00 

Get  bus  control  register 

8781 

09 

08 

ORA 

#$08 

and  set  bit  for  'LED  on' 

8783 

8D 

00 

1C 

STA 

$1C00 

Store  register  again 

8786 

28 

PLP 

Re— establish  processor  status 

8787 

60 

RTS 

Return  from  this  subroutine 

[8861] 

Drive 

LED  off 

8788 

08 

PHP 

Retain  processor  status 

8789 

78 

SEI 

Disable  bus/controller  interrupt 

878A 

AD 

00 

1C 

LDA 

$1C00 

Get  bus  control  register 

878D 

29 

F7 

AND 

#$F7 

and  clear  bit  for  'LED  on' 

878F 

8D 

00 

1C 

STA 

$1C00 

Set  control  register  again 

8792 

28 

PLP 

Re-establish  processor  status 

8793 

60 

RTS 

Return  from  this  subroutine 

[871F] 

Motor 

on 

and  initialize  flag 

8794 

08 

PHP 

Retain  processor  status 

87  95 

78 

SEI 

Disable  bus/controller  interrupt 

8796 

A5 

20 

LDA 

$20 

Get  drive  status  and 

8798 

C9 

20 

CMP 

#$20 

test  for  'Motor  running' 

87  9A 

F0 

0E 

BEQ 

$87AA 

Is  the  motor  already  active? 

87  9C 

AD 

02 

02 

LDA 

$0202 

NO— Get  jobcode  of  routine  and 

87  9F 

29 

01 

AND 

#$01 

determine  drive  desired 

87A1 

85 

3E 

STA 

$3E 

Set  number  as  current  drive 

87A3 

20 

64 

87 

JSR 

$8764 

Motor  on 

87A6 

A9 

AO 

LDA 

#$A0 

Drive  status  at 

87A8 

85 

20 

STA 

$20 

'Motor  at/  not  at  turn  number' 

87AA1 

A9 

32 

LDA 

#$32 

Set  counter  for  motor 

87AC 

85 

48 

STA 

$48 

runtime 

87AE 

28 

PLP 

Get  status  register  again 

87AF 

60 

RTS 

Return  from  this  subroutine 

ROM -23 


Abacus  Software 


1571  Internals 


[872D] 

Wait  until  motor  is  set  to  turn  number,  and  head  is  set  in  position 

87B0     08  PHP  Retain  status 

87B1    58  CLI  Enable  bus/controller  interrupt 

87B21  A5  20  LDA  $20  Get  drive  status  and  test  for 

87B4    C9  20  CMP  #$20  'no  stepper  /  drive  ready' 

87B6    DO  FA  BNE  $87B2  Drive  ready? 

87B8     28  PLP  YES-Re-establish  status 

87B9     60  RTS  Return  from  this  subroutine 


[85E5/872 6/8927 /894C/89FA/8D0A/8D3A/8D51/8F6D] 
Turn  to  new  track 


87BA 

08 

PHP 

O  /  DD 

JO 

Enable  bus/controller  interrupt 

87BC 

A5 

67 

LDA 

$67 

Get  #  of  new  track  &  compute  the 

87BE 

OA 

ASL 

A 

number  of  absolute  half-steps 

87BF 

C5 

64 

CMP 

$64 

Compare  w/current  head  position 

87C1 

F0 

1A 

BEQ 

$87DD 

Identical? 

87C32 

A5 

67 

LDA 

$67 

NO-Get  number  of  new  track  and 

87C5 

OA 

ASL 

A 

compute  half-steps 

87C6 

C5 

64 

CMP 

$64 

Compare  w/current  counter  status 

87C8 

F0 

0E 

BEQ 

$87D8 

Identical? 

87CA 

B0 

06 

BCS 

$87D2 

NO— currenut  cntr>target  position? 

87CC 

20 

E7 

87 

JSR 

$87E7 

YES— Move  a  half-step  out  until 

87CF 

4C 

C3 

87 

JMP 

$87C3 

track  is  reached 

87D21 

20 

DF 

87 

JSR 

$87DF 

Move  one  half-step  out  until 

87D5 

4C 

C3 

87 

JMP 

$87C3 

track  is  reached 

87D81 

AO 

10 

LDY 

#$10 

Initialize  counter 

87DA 

20 

29 

88 

JSR 

$8829 

40/20  ms  delay  (1/2  mHz) 

87DD1 

28 

PLP 

Re-establish  status 

87DE 

60 

RTS 

Return  from  this  subroutine 

[87D2] 

One  half-step  in 

87DF     A5  64  LDA  $64 

87E1     18  CLC 

87E2     69  01  ADC  #$01 

87E4     4C  14  88  JMP  $8814 


Determine  current  position 
Prepare  addition 
Add  a  half-step 
Control  stepper  motor 


[87E7]  cf.  9A66/FF45 
One  half-step  out 


87E7 

B1E91 

87EC 

87ED 

87EE 

87F1 


AO  63 
AD  OF  18 
6A 
08 

AD  OF  18 
6A 


LDY  #$63 
LDA  $180F 
ROR  A 
PHP 

LDA  $180F 
ROR  A 


#  of  scan  attempts /track  0  (99) 

Get  control  register  A 

Track  0  identifier (bit  0)in  carry 

and  save  carry 

Read  control  register  again 

Shift  track  0  identifier  (bit  0) 
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87F2 

6A 

ROR 

A 

to  bit  7 

87F3 

28 

PLP 

Get  previous  scan  result 

87F4 

29 

80 

AND 

#$80 

Isolate  last  scan  result 

87F6 

90 

04 

BCC 

$87FC 

TrackO  active  in  1st  test(bit=0)? 

87F8 

10 

15 

BPL 

$880F 

NO- Is  track  0  now  reached? 

87FA 

30 

02 

BMI 

$87FE 

YES- Jump  to  $87 7C 

87FC1 

30 

11 

BMI 

$880F 

Track  0  still  active? 

Status  of 

'  track 

0  write-protection  has  not  changed 

88 

DEY, 

xjlo — XaK6  anotner  iook 

87FF 

DO 

E8 

bne' 

$87E9 

AJ-J.  attempts  already  pei luj-iutiu . 

8801 

BO 

OC 

BCS 

$880F 

iejo  is  neaci  ai.  tracK  u  position . 

8803 

AD 

00 

1C 

LDA 

$1C00 

YES— Control  register  f/step— motor 

8806 

29 

03 

AND 

#$03 

Isolate  step  bits 

8808 

DO 

05 

BNE 

$880F 

Is  stepper  reel  being  controlled? 

880A 

A9 

00 

LDA 

#$00 

Clear  current 

880C 

85 

64 

STA 

$64 

head  position 

880E 

60 

RTS 

Return  from  this  subroutine 

Track 

0  write-protection  status 

HAS  changed 

880FJ 

A5 

64 

LDA 

$64 

Get  current  head  position  and 

8811 

38 

SEC 

limit  to  one 

8812 

E9 

01 

SBC 

#$01 

half —step 

88141 

85 

64 

STA 

$64 

Save  new  position 

8816 

29 

03 

AND 

#$03 

Set  up  and  save  control  bits  for 

8818 

85 

6F 

STA 

$6F 

stepper  reel 

881A 

08 

PHP 

Retain  processor  status 

881B 

78 

SEI 

Disable  bus/controller  interrupt 

881C 

AD 

00 

1C 

LDA 

$1COO 

Get  control  register 

881F 

29 

FC 

AND 

#$FC 

Mask  out  stepper  control  and  set 

8821 

05 

6F 

ORA 

$6F 

new  bit  values 

8823 

8D 

00 

1C 

STA 

$1C00 

New  value  in  control  register 

8826 

28 

PLP 

Re-establish  processor  status 

8827 

AO 

06 

LDY 

#$06 

Set  counter  for  13/7.5  ms  delay 

88292 

20 

30 

88 

JSR 

$8830 

Approx.  2.6/1.3  ms 

882C 

88 

DEY 

Adjust  counter 

882D 

DO 

FA 

BNE 

$8829 

Delay  already  run  up? 

882F 

60 

RTS 

YES— Return  from  this  subroutine 
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[8829] 

Approx.  2.6/1, 
8830     A2  02 
8832     A9  00 
88342  69  01 
8836     DO  FC 

8838  CA 

8839  DO  F9 
883B  60 


3  ms  delay  (2583  cycles  until  resumption  point) 


LDX  #$02 
LDA  #$00 
ADC  #$01 
BNE  $8834 
DEX 

BNE  $8834 
RTS 


Number  of  counter  loops 
Initialize  pointer 
and  increase  by  one 
Already  counted  to  256? 
YES— Next  count  loop 
All  loops  done? 

YES-Return  from  this  subroutine 


[8A4D/8DAE/8E9D] 

Get  error  from  CP/M  controller 


883C 

EA 

NOP 

Delay  until  controller  is  ready 

883D 

AD 

00 

20 

LDA 

$2000 

Read  status  register 

8840 

4A 

LSR 

A 

Shft  error  bits:' Record  not  found 

8841 

4A 

LSR 

A 

and  'CRC  Error'   (Bit  3  and  4)  in 

8842 

4A 

LSR 

A 

positions  0  and  1 

8843 

29 

03 

AND 

#$03 

Isolate  error  bits  and 

8845 

AA 

TAX 

set  up  error  pointer 

8846 

BD 

82 

8A 

LDA 

$8A82,X 

Determine  and  set  number  of  error 

8849 

8D 

B0 

01 

STA 

$01B0 

message 

884C 

AA 

TAX 

Save  error  number 

884D 

60 

RTS 

Return  from  this  subroutine 

[89C0/8A30/8A88/8D85/8E63/8EDE/8F27] 

Send 

command  over  CP/M  controller 

(WD  1770) 

884E 

48 

PHA 

Save  command 

884F 

20  7C  87 

JSR  $877C 

Switch  on  LED  on  drive 

8852 

68 

PLA 

Repeat  command 

8853 

8D  00  20 

STA  $2000 

and  send  on  CP/M  controller 

8856 

A9  01 

LDA  #$01 

Bit  for  'Busy  -  Flag' 

8858 

EA 

NOP 

Delay  until  controller 

is  ready 

88591 

2C  00  20 

BIT  $2000 

Test  controller  status 

register 

885C 

F0  FB 

BEQ  $8859 

Is  command  taken  (busy 

set)  ? 

885E 

4C  7E  A4 

JMP  $A47E 

YES-Wait  45  cycles 

[89C3/8A4A/8C48/8DAB/8F15/8F5C] 

Wait  until  current  command  of  CP/M  controller  is  done 

8861     20  88  87       JSR  $8788  LED  off 

8864    A9  01  LDA  #$01  Test  bit  for  'Busy  -  Flag' 

88661  2C  00  20      BIT  $2000  in  status  register 

8869    DO  FB  BNE  $8866  Is  command  still  active? 

886B    60  RTS  NO— Return  from  this  subroutine 
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[8DED/886C] 

Compute  number  of  next  sector 


886C 

A5 

60 

LDA 

$60 

886E 

38 

SEC 

88  6F 

E9 

01 

SBC 

#$01 

8871 

85 

46 

STA 

$46 

8873 

AD 

04  02 

LDA 

$0204 

8876 

18 

CLC 

8877 

65 

3C 

ADC 

$3C 

8879 

C5 

61 

CMP 

$61 

887B 

FO 

07 

BEQ 

$8884 

887D 

90 

05 

BCC 

$8884 

887F 

E5 

61 

SBC 

$61 

8881 

18 

CLC 

8882 

65 

46 

ADC 

$46 

88842 

8D 

04  02 

STA 

$0204 

8887 

60 

RTS 

Get  smallest  sector  number  and 
format  until 

sector  number  reaches  zero; 
save  it 

Get  #  of  current  sector;  from 
that,  add 
sector  format 

Compare  with  maximum  sector  # 
Is  new  number  identical? 
NO— Is  new  number  smaller? 
NO-Calculate  sector  number  from 
allowable  range;  note 
common  sector  shifts 
Set  new  sector  number 
Return  from  this  subroutine 


[8CF9] 

Make  table  of  sector  numbers  available  for  formatting 


8888 

AO 

00 

LDY 

#$00 

Clear  pointer  to  current  sector  # 

888A 

A2 

00 

LDX 

#$00 

Clear  sector  counter 

888C 

AD 

03 

02 

LDA 

$0203 

Limit  number  of  first 

888F 

29 

3F 

AND 

#$3F 

sector  to  range  of 

8891 

8D 

03 

02 

STA 

$0203 

0-63  and  save 

8894 

85 

60 

STA 

$60 

as  smallest  sector 

8896 

48 

PHA 

Save  sector  number 

8897 

AD 

07 

02 

LDA 

$0207 

Retain  number  of  last 

889A 

48 

PHA 

sector 

889B 

EE 

04 

02 

INC 

$0204 

Set  up  sector  format 

889E1 

AD 

03 

02 

LDA 

$0203 

Get  number  of  current  sector  and 

88A1 

99 

0B 

02 

STA 

$020B,Y 

insert  in  table 

88A4 

EE 

03 

02 

INC 

$0203 

Set  number  of  next  sector 

88A7 

E8 

INX 

Number  of  sectors  set  up 

88A8 

98 

TYA 

Get  pointer  to  sector  position 

88A9 

18 

CLC 

and  compute  sector 

88AA 

6D 

04 

02 

ADC 

$0204 

format 

88AD 

A8 

TAY 

Save  new  pointer  and  compare  with 

88AE 

CO 

20 

CPY 

#$20 

max.  sector  number 

88B0 

B0 

0C 

BCS 

$88BE 

Gone  over  32? 

88B2 

CC 

07 

02 

CPY 

$0207 

NO— Test  number  of  last  sector 

88B5 

90 

1A 

BCC 

$88D1 

Reached  this  number? 

88B7 

DO 

12 

BNE 

$88CB 

NO— Last  number  reached? 

88B9 

EC 

07 

02 

CPX 

$0207 

YES— Test  #  of  sectors  set  out 

88BC 

F0 

0D 

BEQ 

$88CB 

All  sectors  made  available? 

88BE2 

CE 

04 

02 

DEC 

$0204 

NO— Adjust  sector  format 

88C1 

68 

PLA 

Re-establish  maximum 
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OOP1 

on 
OU 

0  / 

02 

STA 

$0207 

sector  number 

ooCo 

CQ 
DO 

PLA 

Get  number  of  first  sector  and 

boLo 

8D 

03 

02 

STA 

$0203 

set  it 

o  do  n 
ooCS 

38 

SEC 

Flag  for  'error  encountered' 

DOpj 

OU 

RTS 

Return  from  this  subroutine 

OO^D 

Qfl 

y  o 

TYA 

Compute  pointer/current  sector 

"3  O 
JO 

SEC 

position  in  allowable 

88CD 

ED 

07 

02 

SBC 

$0207 

sector  range 

oonrt 
UoUU 

A8 

TAY 

and  save  it 

Qom  1 

OOlJi. 

LL 

0  / 

02 

CPX 

$0207 

Test  number  of  sectors  set  out 

88D4 

DO 

C8 

BNE 

$889E 

All  sector  #'s  already  in  table? 

ooDo 

86 

97 

STX 

$97 

YES— save  number  of  sectors 

88D8 

CA 

DEX 

Set  up  number  of 

88D9 

8A 

TXA 

last  sector 

88DA 

18 

CLC 

Compute  #  of  smallest  sector  from 

88DB 

65 

60 

ADC 

$60 

that,  and  save  as  number  of 

88DD 

85 

61 

STA 

$61 

largest  sector 

88DF 

C5 

60 

CMP 

$60 

Compare  with  smaller  number 

88E1 

90 

DB 

BCC 

$88BE 

Has  sector  been  set  out? 

88E3 

68 

PLA 

NO-Re-establish 

88E4 

8D 

07 

02 

STA 

$0207 

maximum  sector  number 

88E7 

68 

PLA 

Get  number  of  first  sector 

88E8 

8D 

03 

02 

STA 

$0203 

and  set  it 

88EB 

CE 

04 

02 

DEC 

$0204 

Adjust  sector  format 

88EE 

18 

CLC 

Flag  for  'no  error  found' 

88EF 

60 

RTS 

Return  from  this  subroutine 

[8D1F] 

Test  CP/M-sectors  after  formatting  for  empty  bytes 

88F0 

AD 

B0 

01 

LDA 

$01B0 

Save  current  track  for 

88F3 

48 

PHA 

formatting 

88F4 

AO 

00 

LDY 

#$00 

Clear  counter  for  current  sector 

88F6 

84 

24 

STY 

$24 

number 

88F81 

A4 

24 

LDY 

$24 

Get  number  of  current  sector  and 

88FA 

B9 

0B 

02 

LDA 

$020B, Y 

determine  sector  number  of  header 

88FD 

8D 

02 

20 

STA 

$2002 

Send  sector  over  CP/M  controller 

8900 

20 

18 

8F 

JSR 

$8F18 

Test  sector 

8903 

AE 

B0 

01 

LDX 

$01B0 

Get  return  message 

8906 

E0 

02 

CPX 

#$02 

and  compare  w/  value  for  'Ok' 

8908 

B0 

0B 

BCS 

$8915 

Is  there  an  error  here? 

890A 

E6 

24 

INC 

$24 

NO-Choose  next  sector 

890C 

A4 

24 

LDY 

$24 

Get  current  sector  #  and  compare 

890E 

CC 

07 

02 

CPY 

$0207 

with  maximum  amount 

8911 

DO 

E5 

BNE 

$88F8 

All  sectors  already  checked? 

8913 

18 

CLC 

YES-Set  flag  for  'Ok' 

8914 

24 

.byte  $24 

Jump  to  next  byte  (bit-command) 

89151 

38 

SEC 

Set  flag  for  error 
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8916 

68 

PLA 

Reset  current  track  number  of 

8917 

8D 

BO 

01 

STA 

$01B0 

format  procedure 

891A1 

60 

RTS 

Return  from  this  subroutine 

[8DF3/8EC2] 

Set  next 

track 

891B 

AD 

74 

02 

LDA 

$0274 

Test  length/command  string  in 

891E 

C9 

07 

CMP 

#$07 

input  buffer  against  7 

8920 

90 

F8 

BCC 

$891A 

Is  command  less  than  7  chars.? 

8922 

AD 

06 

02 

LDA 

$0206 

NO-Get  7th  character  and  take  up 

8925 

85 

67 

STA 

$67 

as  current  target  track 

8927 

4C 

BA 

87 

JMP 

$87BA 

Control  track 

[8737] 

Read  next  IBM  system  34  sector  and  set  head  accordingly 


892A 

AD 

B0 

01 

LDA 

$01B0 

Keep  current  error  return 

892D 

48 

PHA 

message 

892E 

20 

27 

8A 

JSR 

$8A27 

Read  next  IBM-34  header 

8931 

AE 

B0 

01 

LDX 

$01B0 

Get  return  message  and  check  for 

8934 

E0 

02 

CPX 

#$02 

error  message 

8936 

90 

0D 

BCC 

$8945 

Header  been  read  error-free? 

8938 

20 

EF 

89 

JSR 

$89EF 

YES— Set  head  to  track  0 

893B 

20 

27 

8A 

JSR 

$8A27 

Read  next  header 

893E 

AE 

B0 

01 

LDX 

$01B0 

Get  return  message 

8941 

E0 

02 

CPX 

#$02 

and  test  for  error  message 

8943 

B0 

OA 

BCS 

$894F 

Header  been  read  error-free? 

89451 

A5 

67 

LDA 

$67 

YES— Get  #  of  current  target  track 

8947 

OA 

ASL 

A 

and  determine  number  of  steps 

8948 

C5 

64 

CMP 

$64 

Compare  with  current  position 

894A 

F0 

03 

BEQ 

$894F 

Is  track  already  reached? 

894C 

20 

BA 

87 

JSR 

$87BA 

NO— Set  head  to  target  track 

894F2 

68 

PLA 

Repeat  previous  error  number 

8950 

8D 

B0 

01 

STA 

$01B0 

and  set 

8953 

60 

RTS 

Return  from  this  subroutine 

[8730/8CD5] 

Activate  head  at  current  diskette  side 


8954 

08 

PHP 

Retain  processor  status 

8955 

78 

SEI 

Disable  bus/controller  interrupt 

8956 

A5 

3B 

LDA 

$3B 

Get  flag  from 

8958 

29 

10 

AND 

#$10 

command  number 

895A 

C9 

10 

CMP 

#$10 

Take  flag  (bit  4)  in  carry 

895C 

20 

F3  93 

JSR 

$93F3 

Set  head  to  chosen  side 

895F 

28 

PLP 

Re-establish  processor  status 

8960 

60 

RTS 

Return  from  this  subroutine 
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[852A] 

Determine  smallest  and  greatest  sector  numbers 


ft  Qfil 

nl 

Q*7 

t  nv 

Number  of  sectors  laid  out 

o  o 

DEY 

Counter  to  last  sector  position 

ft  Qfid 

n? 

CI? 

LDA 

#5FF 

Maximum  possible  number; 

0:700 

no 

\JI5 

Kit. 

CMr 

5020B, Y 

Compare  with  sector  number 

ft  Q  C  Q 

05U5 

aft 

Uo 

BCC 

$896E 

Is  sector  number  less? 

ft  q  £n 

rsy 

no 
Ud 

ft  o 

LDA 

$020B, Y 

YES-Get  new  sector  number  and 

qqcdI 

QQ 

oo 

DEY 

set  pointer  to  next  sector  naming 

tjy  or 

1  ft 

PC 
£  O 

BPL 

$8966 

All  sectors  already  checked  out? 

RQ7 1 

PR 

STA 

$60 

YES— Set  smallest  sector  number 

ft  QT  ^ 

Ad 

LDY 

$97 

Number  of  sectors  laid  out 

ft  Q7  R 

OO 

DEY 

Counter  to  last  sector  position 

8976 

A9 

00 

LDA 

#$00 

Smallest  value 

89781 

D9 

OB 

02 

CMP 

$020B,Y 

Compare  with  sector  number? 

897B 

BO 

03 

BCS 

$8980 

Is  number  greater? 

897D 

B9 

0B 

02 

LDA 

$020B,Y 

YES— Take  new  sector  number 

89801 

88 

DEY 

Pointer  to  next  sector  naming 

8981 

10 

F5 

BPL 

$8978 

All  sectors  already  checked? 

8983 

85 

61 

STA 

$61 

YES— Save  greatest  sector  number 

8985 

60 

RTS 

Return  from  this  subroutine 

[852D] 

Compute  sector 

format  from  sector 

sequence 

8986 

A6 

97 

LDX 

$97 

Number  of  sectors  in  table 

8988 

AO 

00 

LDY 

#$00 

Reset  position  pointer 

898A1 

B9 

0B 

02 

LDA 

$020B, Y 

Get  sector  #  from  table  &  compare 

898D 

C5 

60 

CMP 

$60 

with  smallest  number 

898F 

F0 

05 

BEQ 

$8996 

Identical? 

8991 

C8 

INY 

NO— Pointer  to  next  sector 

8992 

C4 

97 

CPY 

$97 

Compare  with  #  of  sector  numbers 

8994 

DO 

F4 

BNE 

$898A 

Already  tested? 

89961 

84 

5F 

STY 

$5F 

YES-Save  place  of  smallest  sector 

8998 

A5 

60 

LDA 

$60 

Get  smallest  sector  number 

899A 

18 

CLC 

and  draw  up  number  of  next 

899B 

69 

01 

ADC 

#$01 

sector 

899D 

85 

46 

STA 

$46 

Save  number 

899F 

A2 

FF 

LDX 

#$FF 

Initialize  cntr  for  sector  format 

89A12 

B9 

0B 

02 

LDA 

$020B,Y 

Get  sector  #  from  table  and 

89A4 

C5 

46 

CMP 

$46 

compare  with  second  sector 

89A6 

F0 

OA 

BEQ 

$89B2 

Identical? 

89A8 

E8 

INX 

NO-Increment  sector  format 

89A9 

C8 

INY 

Pointer  to  next  sector  number 
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89AA    C4  97  CPY  $97  Test  against  number  of  sectors 

89AC    DO  F3  BNE  $89A1  All  sectors  handled? 

89AE    AO  00  LDY  #$00  YES-Reset  pointers 

89B0     F0  EF  BEQ  $89A1  Jump  to  $89A1 

89B21  60  RTS  Return  from  this  subroutine 


[8A0C/8CDE] 

Initialize  CP/M  controller  to  track 


89B3 

A5 

6F 

LDA 

$6F 

89B5 

48 

PHA 

ror  temporary  sLuxayc 

89B6 

08 

PHP 

89B7 

78 

SEI 

89B8 

AD 

01 

20 

LDA 

92001 

C^-H    /— n  >>v-ant'    f  rar"lf    it    a.  e    I-  Trifle 

89BB 

8D 

03 

20 

STA 

$2003 

to  D6  nswj_y  lnitiaxizea 

89BE 

A9 

18 

LDA 

#$18 

trtrtftl  1                      1  Cnnlf  1         /  a  rt+-      +■  yaoVl 

%0001iouu    seeK     vset  uracjtj 

89C0 

20 

4E 

88 

JSR 

$884E 

command  on  civm  controller 

89C3 

20 

61 

88 

JSR 

$8861 

Wait  until  command  is  executed 

89C6 

A2 

00 

LDX 

#$00 

Clear  counter  for  number  of 

89C8 

AO 

80 

LDY 

#$80 

tries 

89CA 

AD 

00 

20 

LDA 

$2000 

Read  CP/M  status  register 

89CD 

29 

02 

AND 

#$02 

Get  flag  ror  status  or  xnaex  noie 

89CF 

85 

6F 

STA 

$6F 

and  save  it 

89D1^ 

AD 

00 

20 

LDA 

$2000 

I\c    rcelu    aldl>U9    i.tsvj  •     Ot  iLUl.UJ 

89D4 

29 

02 

AND 

#$02 

89D6 

C5 

6F 

CMP 

$6F 

compare  witn  tne  LuimcL 

89D8 

F0 

04 

BEQ 

$89DE 

xnaex  noj.e  iouna: 

89DA 

28 

PLP 

YES-Re-establish  processor  status 

89DB 

4C 

E7 

89 

JMP 

$89E7 

Set  index  flag  and  end 

89DE1 

CA 

DEX 

Counter  for  tries  (low-byte) 

89DF 

DO 

F0 

BNE 

$89D1 

Is  counter  finished? 

89E1 

88 

DEY 

YES-Decrement  high-byte 

89E2 

DO 

ED 

BNE 

$89D1 

Is  counter  finished? 

89E4 

28 

PLP 

YES— Re-establish  processor  status 

89E5 

38 

SEC 

Flag  for  'Index  hole  not  found' 

89E6 

24 

18 

.byte  $24 

Jump  to  next  byte  (bit  command) 

89E71 

18 

CLC 

Flag  for  'Index  hole  found' 

89E8 

68 

PLA 

Re-arrange 

89E9 

85 

6F 

STA 

$6F 

zero-page  area 

89EB 

60 

RTS 

Return  from  this  subroutine 

[Vector:  86C8] 

89EC    4C  AO  EA      JMP  $EAA0  Execute  1571  reset 
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[8938/8A09/8CDB/8CE8/8F61/Vector:  86CA] 
Replace  head  at  track  0 


89EF 

A9 

B4 

LDA 

#$B4 

Set  #  of  current  halftrack 

89F1 

85 

64 

STA 

$64 

steps  for  track  37 

89F3 

A9 

00 

LDA 

#$00 

Place  CP/M  controller  at 

89F5 

8D 

01 

20 

STA 

$2001 

track  0 

89F8 

85 

67 

STA 

$67 

Set  new  target  track 

89FA 

4C 

BA 

87 

JMP 

$87BA 

Position  head 

[Vector:  86CC] 

Test  status  of  write-protect 
89FD     AD  00  1C       LDA  $1C00 
8A00     29  10  AND  #$10 

8A02     60  RTS 


notch 

Get  drive  control  reg  hole,  get 
bit  f/ 'Write  Protect' (low  active) 
Return  from  this  subroutine 


[Vector:  86CF] 
Set  track  parameters 
8A03     84  67  STY  $67 

8A05     86  64  STX  $64 

8A07     60  RTS 


Set  track  to  be  controlled 

Curr .position  in  half-track  steps 

Return  from  this  subroutine 


[Vector:  864E] 


8  AO  8 

60 

RTS 

Return  from  this  subroutine 

[Vector: 

86D2] 

Read 

header 

of 

next  CP/M  sector 

and  in  buffer  $0024 

8A09 

20 

EF 

89 

JSR 

$89EF 

Set  head  to  track  0 

8A0C 

20 

B3 

89 

JSR 

$8  9B3 

Initialize  controller 

8A0F 

B0 

OF 

BCS 

$8A20 

Index  hole  on  hand? 

8A11 

20 

27 

8A 

JSR 

$8A27 

YES-Read  header  and  set  pointer 

8A14 

BD 

7E 

8A 

LDA 

$8A7E,X 

Get  #  of  sectors  to  a  track  and 

8A17 

85 

97 

STA 

$97 

save  them 

8A19 

85 

61 

STA 

$61 

Set  as  largest  sector  number 

8A1B 

A9 

01 

LDA 

#$01 

Determine  smallest 

8A1D 

85 

60 

STA 

$60 

sector  number 

8A1F 

60 

RTS 

Return  from  this  subroutine 

8A201 

A9 

0D 

LDA 

#$0D 

Set  error  message  — 

8A22 

8D 

B0 

01 

STA 

$01B0 

'Index  not  found' 

8A25 

DO 

3E 

BNE 

$8A65 

Jump  to  $8A65 

[892E/893B/8A11/8F74/8F82] 

Read  next  IBM  System  34  header  and  set  sector  pointer 

8A27    A9  00            LDA  #$00  clear  pointer  for 

8A2  9     8D  71  02      STA  $0271  #  bytes  per  sector  portion  and 

8A2C    85  44            STA  $44  number  of  portions 

8A2E    A9  C8            LDA#$C8  %11001000 ' Read  address ' (Readhead) 

8A30    20  4E  88      JSR  $884E  Command  on  CP/M  controller 
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8A33 

A2 

00 

LDX 

U-  £  n  ("1 

n1oar   hllffpr   doI  nter 

8A35 

AO 

06 

LDY 

JL  £■  r\  c 

8A37^ 

AD 

00 

20 

LDA 

52UUU 

Oaa/^   el-a+'iiG   TorrH  Qt"^T  and 

8A3A 

29 

03 

AND 

#503 

4  o^T  afro     'PI  a 

isolate  xxa^ 

8A3C 

4A 

LSR 

A 

£xag!       UOIuinanCl   XII    piutcii  \ou»^/ 

8A3D 

90 

OB 

BCC 

$8A4A 

To    s*r\rr\m=>r\A     chill     a  ft"  1  VP  *^ 

8A3F 

FO 

F6 

BEQ 

$8A37 

vpc  Sn\7   mco-o    ^oaHdi"    (Sat1  aO 

I£,o — Any   HlOxe    Ilcauei  uaua. 

8A41 

AD 

03 

20 

LDA 

$2003 

8A44 

95 

24 

STA 

&  1  A  V 

111    HcaQel  WUliBI 

8A46 

E8 

INX 

Qat-  hnf  fpr  noi  nter  to  next  bvte 

8A47 

88 

DEY 

nonr&mpnt"  niimlriPT  of  Header  bvtes 

8A48 

DO 

ED 

BNE 

$oAJ  / 

AX1  Jjy  Lc  0  icau> 

8A4A^ 

20 

61 

88 

JbK 

9  0  0  Ol 

YES— Wait  until  command  is  ended 

8A4D 

20 

3C 

88 

JSR 

$883C 

Get  return  message  frm  controller 

8A50 

A5 

24 

LDA 

$24 

Get  track  #  from  header  read  and 

8A52 

OA 

ASL 

A 

compute  number  of  half-steps 

8A53 

85 

64 

STA 

$64 

Save  as  current  head  position 

8A55 

A5 

27 

LDA 

$27 

Get  identifier  for  sector  size 

[8C7B/8C9F] 

Set  pointer 

for 

sector  type 

8A57 

29 

03 

AND 

#$03 

Isolate  significant  bits 

8A59 

AA 

TAX 

and  save  value 

8A5A 

BD 

72 

8A 

LDA 

$8A72,X 

Get  #  of  bytes  per  sector  portion 

8A5D 

8D 

71 

02 

STA 

$0271 

and  save  it 

8A60 

BD 

76 

8A 

LDA 

$8A76,X 

Determine  #  of  portions  /sector 

8A63 

85 

44 

STA 

$44 

and  take  up 

8A651 

A5 

5E 

LDA 

$5E 

Get  command  status  byte  &  isolate 

8A67 

29 

80 

AND 

#$80 

flag  for  IBM-34  diskette 

8A69 

0D 

B0 

01 

ORA 

$01B0 

Combine  current  track  #  and  set 

8A6C 

ID 

7A 

8A 

ORA 

$8A7A,X 

identifier  for  sector  length 

8A6F 

85 

5E 

STA 

$5E 

Re-set  command  status  byte 

8A71 

60 

RTS 

Return  from  this  subroutine 

[8A5A]    Number  of  bytes  per  sector  portion 

8A72     7F  Value  for    128  bytes  /  sector 

8A73    FF  Value  for    25  6  bytes  /  sector 

8A74    FF  Value  for    512  bytes  /  sector 

8A75    FF  Value  for  1024  bytes  /  sector 
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[8A60] 

Number  of  portions  per  CP/M  sector 

8A76     01  Value  for  128  bytes  /  sector 

8A77     01  Value  for  256  bytes  /  sector 

8A78    02  Value  for  512  bytes  /  sector 

8A79    04  Value  for  1024  bytes  /  sector 

[8A6C] 

Identifier  for  sector  length  (in  most  significant  byte-half) 

8A7A    00  Value  for  128  bytes  /  sector 

8A7B    10  Value  for  256  bytes  /  sector 

8A7C    20  Value  for  512  bytes  /  sector 

8A7D    30  Value  for  1024  bytes  /  sector 

[8A14] 

Number  of  sectors  per  track;  number  of  highest  sector 

8A7E     1A  Value  for  128  bytes  /  sector 

8A7F     10  Value  for  256  bytes  /  sector 

8A80     09  Value  for  512  bytes  /  sector 

8A81     05  Value  for  1024  bytes  /  sector 


[8846] 

CP/M  error  messages 
8A82  01 
8A83  09 
8A84  02 
8A85  03 


Number  for  'OK' 

Number  for  'False  checksum' 

#  for  'Sector  header  not  found' 

Number  for  'Sync  not  found' 


[8D14] 

Format  CP/M  track  in  ' IBM  System  34  format' 

8A86    A9  F8  LDA  #$F8  %111110000Write'Write  track'track 

8A88    20  DO  87      JSR  $87D0  Give  command  over  CP/M  controller 

8A8B    24  3B  BIT  $3B  Test  flag  in  command  number 

8A8D    50  62  BVC  $8AF1  Should  track  index  be  written? 


Write  track-Index  save  (after  index  hole) 


8A8F 

A2 

50 

LDX 

#$50 

YES-#  of  bytes  f /index  Pulse (80) 

8A912 

AD 

00  20 

LDA 

$2000 

Get  status  register  & 

8A94 

29 

03 

AND 

#$03 

isolate  command  bits 

8A96 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8A97 

90 

60 

BCC 

$8AF9 

Should  command  be  executed? 

8A99 

F0 

F6 

BEQ 

$8A91 

YES— Data  controller  ready? 

8A9B 

A9 

4E 

LDA 

#$4E 

Write  byte  value  for  Pre-Index  1 

8A9D 

8D 

03  20 

STA 

$2003 

on  diskette 

8AA0 

CA 

DEX 

Write  next  byte 

8AA1 

DO 

EE 

BNE 

$8A91 

All  bytes  already? 

8AA3 

A2 

OC 

LDX 

#$0C 

YES-Set  counter  for  spaces (12) 
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QJ171  c2 

oAAj 

AU 

uu 

zu 

t  na 

JjUn 

9  Z  \J  \J  \f 

CXc±\~    e*r'1a-t*iiQ    rpoi  Qt"PT" 

OAAo 

z  y 

U  J 

awn 

AWL/ 

and  isolate  coTnrna.net  bits 

o  AAA 

a  a 

4  A 

a 

n 

TpqI-  bit  for    1  Busv 1 

oMd 

yu 

dp 

13  V— ^ 

$  8AF9 

Should  command  still  be  executed? 

oAAU 

r  u 

•PC 

r  o 

$8AA5 

YES- Data  controller  ready? 

OA  AH* 

oAAr 

A  Q 

Ay 

UU 

t  na 

If  9UU 

Wr-it*A  "hvt-p^  va  1  up  for  Pre— Index  2 

ojini 

oAol 

can 

yo 

zu 

9  £.  UUJ 

f-  0    H  "1  <3  V        1"  O 

O  A  T2  /I 

L.A 

Wr  1 1"  ^    np  x1"  bvt" 

8AB5 

Cilli 

t  p  a  a  r 

Al  1   V)v1~e>Q  readv' 

oAn  / 

A  O 

Az 

Uo 

t  nY 

*  9U0 

YF.^ — counter 

AU 

U  U 

zu 

t  ni 

fi^t  ^t atus  recrister  & 

z  y 

Uo 

AINU 

#  9  uo 

isolate  command  bits 

Q  A  nu 

*iA 

T  QP 

a 

Tpgt  bit  for  'Busv1 

oABr 

yu 

<QJVC<Q 

9  ortr 

Will  command  s t ill  be  exe cut ed ? 

o  a 

oACl 

r  U 

r  b 

£  OADQ 

9  0  Aoy 

YF^— nat-  a  controller  re  ad  v  7 

0AC0 

A  Q 

Ay 

r  0 

t  na 

xjx/ti 

¥v"  0 

Write  value  for  time  bvte  $C2 

8  AC  5 

8D 

03 

20 

STA 

9«£  UUO 

8  AC  8 

CA 

DEX 

8  AC  9 

DO 

EE 

BNE 

poAuy 

ail  >i\/-(- pc? 

nil   JjyLca  . 

8ACB"^ 

AD 

UU 

zU 

t  r\a 

JjUA 

9«£  uuu 

fi^t"  Ql~at*iiQ  recrister  & 

8  ACE 

z  y 

Uo 

AINU 

If  9  uo 

isolate  command  bits 

oAUU 

4A 

T  ^P 

Test  bit  for  'Busy1 

0  a  r\  T 

yu 

z  0 

Apr* 

9  Oric  -3 

Will  command  still  be  executed? 

0AU0 

T7T1 

£  O 

YES— Data  controller  ready? 

oAUO 

a  Q 

Ay 

f  C 

t  na 

*SFP 
1r  v  c  ^ 

Wrte  byte  val:"Addres  Index  Save' 

8  AD  7 

on 
oD 

n  -a 
Uo 

zU 

Din 

4  0  n  ni 

9 £.  UUO 

8ADA 

A  T 

A^ 

oz 

t  r\v 

iiUA 

lFs>OZ 

£jA 

MOP 
IN  Ur 

Two  cycles  delay 

q  Ann<- 
eAUU 

an 
AU 

UU 

LiUn. 

$2  000 

Get  status  register  &  isolate 

bAlliU 

£.  y 

uo 

awn 

AINU 

W  V  uo 

c  mum  Pi  nd  bit  s 

/1  a 

4A 

T 

a 

Test  bit  for  'Busy' 

8AE3 

yu 

1  ^ 
±4 

9  Onl  -? 

Wi 1 1   command     still  be  executed? 

8AE5 

r  U 

r  b 

9  OnUU 

YES— Data  controller  ready? 

8AE7 

A9 

4E 

LDA 

#$4E 

Write  byte  value  for  Post-Index 

8AE9 

8D 

03 

20 

STA 

$2003 

to  diskette 

8AEC 

CA 

DEX 

Write  next  byte 

8AED 

DO 

EE 

BNE 

$8ADD 

All  bytes  ready? 

8AEF 

FO 

14 

BEG 

$8B05 

YES-Jump  to  $8B05 

[8A8D]  Format 


8AF1 

8AF32 

8AF6 

8AF8 

8AF9f 

8AFB 

8AFD 


A2  3C 
AD  00  20 
29  03 
4A 

90  28 
F0  F6 
A9  4E 


sectors 
LDX  #$3C 
LDA  $2000 
AND  #$03 
LSR  A 
BCC  $8B23 
BEQ  $8AF3 
LDA  #$4E 


Set  counter  (60) 

Get  status  register  AND  isolate 

command  bits 

Test  bit  for  'Busy' 

Will  command    still  be  executed? 

YES-Data  controller  ready? 

Write  byte  value  for  space  1 
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OA£  £ 

on 
EJU 

A  1 

Uo 

O  A 

STA 

52003 

to  diskette 

CA 

DEX 

Write  next  byte 

odUj 

JJU 

EE 

BNE 

$8AF3 

All  bytes  ready? 

ODUJ 

A1 

#501 

YES— Sector  counter 

pan  7 1 
0JDU  f 

ao 
A^ 

uc 

LDX 

#50C 

Set  counter 

ppn  q2 

AJJ 

ft  ft 

uu 

2U 

LDA 

&  i  s\  r\  r\ 

52000 

Get  status  register  &  isolate 

craft/"1 
oriUC 

^  y 

03 

AND 

#$03 

command  bits 

odUL 

A  A 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8B0F 

90 

12 

BCC 

58B23 

Will  command  still  be  executed? 

ball 

F0 

F6 

BEQ 

58B09 

YES-Data  controller  ready? 

QD1  "3 

A  Q 

Ay 

ft  ft 
UU 

LDA 

ii  Ann 

#500 

Write  byte  value  for  2nd  part  of 

OD1  C 
ODXO 

8D 

03 

20 

STA 

$2003 

space  1  to  diskette 

pni  Q 
001.  O 

(-A 

DEX 

Write  next  byte 

QD1  Q 

obi  y 

UU 

EE 

BNE 

$8B09 

All  bytes  done? 

oJBlri 

A  1 

A^ 

03 

LDX 

#503 

Set  counter 

pni  r\2 

ocxu 

AU 

ft  ft 
UU 

a 

LDA 

$2000 

Get  status  register  &  isolate 

QDOrt 

ODiU 

^y 

03 

AND 

#$03 

command  bits 

PRO  O 

/I  A 

fiA 

LSR 

A 

Test  bit  for  'Busy' 

ODl  O 

qa 

"U 

o  / 

BCC 

$8B7C 

Will  command  still  be  executed? 

r  u 

pc 

£  D 

BEQ 

$8B1D 

YES— Data  controller  ready? 

ODZ  / 

a  q 

Ay 

£  D 

LDA 

#$F5 

Write  value  time  byte  $A1 

ODO  Q 

on 
OU 

A  T 
Uo 

STA 

$2003 

to  diskette 

pa 

V-A 

UCjX 

Write  next  byte 

nn 
UU 

£j£j 

BNE 

$8B1D 

All  bytes  done  up? 

pnotp2 

OD^C 

a  r\ 
AJJ 

ft  ft 
UU 

LDA 

52000 

Get  status  register  &  isolate 

o  n 

03 

AND 

#$03 

command  bits 

otSj  «i 

4A 

LSR 

A 

Test  bit  for  'Busy' 

OD  O  C 

nft 

45 

BCC 

$8B7C 

Will  command  still  be  executed? 

orio  / 

F0 

F6 

BEQ 

$8B2F 

YES-Data  controller  ready? 

odj  y 

A  Q 

Ay 

FE 

LDA 

#$FE 

Write  byte  value:' ID  Adress  Save 

obJo 

oD 

ft  *3 
U  J 

20 

STA 

$2003 

to  diskette 

otto!! 

AD 

00 

*^  a 
20 

LDA 

$2000 

Get  status  register  &  isolate 

^y 

U3 

AND 

#$03 

command  bits 

a  a 

JjoK 

A 

Test  bit  for  'Busy' 

QT3  A  A 

Oft 

yu 

J6 

BCC 

$8B7C 

Will  command  still  be  executed? 

OOH  D 

£  U 

TP  C 
£  D 

BEQ 

$8B3E 

YES-Data  controller  ready? 

PR/l  P 

Drift  o 

AD 

o  ft 

BU 

a  1 
01 

LDA 

$01B0 

Write  current  track  number 

or/  ra. 

oJJ 

ft  o 

Uo 

O  A 
20 

STA 

$2003 

to  diskette 

QD/V  1 

AU 

ft  ft 
UU 

O  A 

20 

LDA 

$2000 

Get  status  register  &  isolate 

odDI 

O  ft 

03 

AND 

#$03 

command  bits 

ODJO 

/I  A 

flA 

LSR 

A 

Test  bit  for  'Busy' 

ODE/ 
ODJ  fi 

QA 

£  D 

BCC 

$8B7C 

Will  command  still  be  executed? 

8B56 

F0 

F6 

BEQ 

$8B4E 

YES-Data  controller  ready? 

8B58 

A5 

3B 

LDA 

$3B 

Get  flag  for  current  disk  side  & 

8B5A 

29 

10 

AND 

#$10 

test  it 

8B5C 

DO 

03 

BNE 

$8B61 

Is  side  1  active? 

8B5E 

A9 

00 

LDA 

#$00 

YES-Then  set  side  identifier 
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8B60 

2C 

.byte  $2C 

Jump  lo  next.  *  oytes  voii.  t-ununeiinj./ 

8B611 

A9  01 

LDA  #501 

nllLc    Slue    £.    lUellLll  X. 

8B63 

8D  03 

20 

STA  52003 

no  aisjtette 

8B661 

AD  00 

20 

LDA  9^0UU 

Cc*\-     e+<  af  11c    rorr  1  efpr    £     1  Gfil  at" 

8B69 

29  03 

AND  #503 

command  bits 

8B6B 

4A 

LSR  A 

leSt    Oil.     LUX  Dusy 

8B6C 

90  0E 

ft  O  o  *7 /~* 

BCC  58B/C 

Will    COIuIuallU    aUlll    we  cacuuocu. 

8B6E 

F0  F6 

BEQ  90B00 

VTPC     Ha+-a         fM"Y  +"  y/\l  lor"  rOflHu' 

ICjO — UclLo    CunLLUXXcl     icauy  - 

8B70 

B9  OA 

AO 

02 

LDA   J?UzUA/  i 

8B73 

8D  03 

1  A 

20 

CPA  ftOAA^ 

i~  r\    H  *1  Q  V  at"  "t"  0 

8B76^ 

AD  00 

20 

T  T"\  Jl    ft  o  AAA 
LDA  9^UUU 

r*o+-     ol-atnc     rpai  efpT     £     t  qol  31"© 
VjC  L>     ol>uv.US     i.CH                       V     x  Jv-Luv-v_ 

8B7  9 

29  03 

AND  lf-?0o 

coimuano-  oius 

8B7B 

4A 

LSR  A 

leSl     U1L     LUI  DUoy 

8B7C^ 

90  33 

BCC  PoBBl 

Hill     COIUlTlclIlU    S>  L.  JL  J-  -L     AJC    CAGv^utCU  • 

8B7E 

F0  F6 

BEQ  58B7  6 

itjo — Uoua  controller  reaay  ; 

8B80 

AD  05 

02 

LDA  50203 

Write  luentirier  ioi 

8B83 

8D  03 

20 

STA  52003 

Sector   lenytjl   to  oia\ci.i.c 

8B86-'- 

AD  00 

20 

T  TM1  ft1Af\rt 

LDA  9*000 

bet.    StatUS    IcyloL.t:L     Ct  loUlaLe 

8B89 

29  03 

AND   ff pU J 

conuuanu  oils 

8B8B 

4A 

LSR  A 

lest  Dit  i or  Dusy 

8B8C 

90  23 

BCC  90BBI 

Will  commano.  still  oe  exeuui-eu. 

8B8E 

F0  F6 

BEQ  90D00 

ILO   Uatd   COniLUllci    Lcauy - 

8B90 

A9  F7 

T  nil       IL  ^  T7i  T 

LDA  ff$F7 

write  Dyue  vaiue  ror  £.  i-kl  oytes 

8B92 

8D  03 

20 

STA  9<e00J 

to  aisKette 

8B95 

TV  O      1  C 

A2  lo 

t  rw  it  ft  i  a 

Oct    CUUilLcI  i^^/ 

8B97^ 

AD  00 

1  A 

LDA  9*000 

bet    St  at  US    L  cyia  tel.    a  isuiqlc 

8B9A 

1  Q     A  O 

29   U  J 

7a  xir\   #  ft  a  *a 
AND  ffpUJ 

conunanu  Dies 

8B9C 

4A 

T  CD  TV 

L5K  A 

lest  oil  ror  cusy 

8B9D 

90  12 

ftQutai 
BCC  90B0I 

will   coniniaiiO-  sLiii  jyts  cac^uicu . 

8B9F 

F0  F6 

BEQ  9oBy / 

X£«o — Uata  controller   icauy  . 

8BA1 

A9  4E 

t  r\7i    ft  ft  ^  i? 
LDA   IF  9  •*  J~* 

write  r?y te  vaiuc  iut   apa^e  t 

oHAJ 

orv   A 1 

OA 

2U 

cmj  ftonm 

Oln  9tUUJ 

tO  UlaACllc 

8BA6 

CA 

DEX 

Write  next  oyte 

8BA7 

nviTj     ft  Q  Q  Q  T 

nil   Dyi.cS    QlLcaUy  . 

8BA9 

A2  0C 

t  r\v   4  ft  a/™* 
LDX  #90L 

oet  counter 

8BAB^ 

AD  00 

1  A 

20 

T  F\  7V     ft  O  AAA 

LUA  9*UUU 

ocL    St  at  US    r  cylo Lcl    a  isuiatc 

8BAE 

in    a  *a 
29    0  J 

A  XT  FN     ft  ft  A  T 

AND  ffpUJ 

conuTicinci  Dies 

8BB0 

4A 

T  CD  71 

LoK  A 

Tabt-          +*    f  Ar     1  nil  cu  I 

lest  oic   lux  DUoy 

8BB1^ 

art   o  o 
9U  Jo 

DLL.  pODCiD 

W-i  1  1     AAmmanH    qI"  "1  1  T     "ho  PYPfllfaH1? 
nlll    t>unuualiu    bLlli    we    cacv-ulcu  . 

8BB3 

F0  F6 

BEQ  9  0 BAB 

XiiiD — fata  controller    leauy  . 

8BB5 

A9  00 

t  na      ft  a  a 
LDA  ff  9  0  U 

write    Dy  Uc    vai  /  £uu   jpar  u    vj.  a^av-ct 

8BB7 

8D  03 

20 

STA  52003 

to  diskette 

8BBA 

CA 

DEX 

Write  next  byte 

8BBB 

DO  EE 

BNE  $8BAB 

All  bytes  done? 

8BBD 

A2  03 

LDX  #$03 

Set  counter 

8BBF2 

:  AD  00 

20 

LDA  $2000 

Get  status  register  &  isolate 

8BC2 

29  03 

AND  #$03 

command  bits 
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8BC4 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8BC5 

90 

24 

BCC 

V  ODLO 

will  command  still  be  executed? 

8BC7 

F0 

F6 

BEQ 

$8BBF 

ico-uata  controller  ready? 

8BC9 

A9 

F5 

LDA 

Write  value  for  time  byte  $A1 

8BCB 

8D 

03 

20 

STA 

$2003 

to  aisjcette 

8BCE 

CA 

DEX 

«i.          next,  oy te 

8BCF 

DO 

EE 

BNE 

$8BBF 

nil  oyt.es  aone ; 

8BD11 

AD 

00 

20 

LDA 

$2000 

Get  status  register  &  isolate 

8BD4 

29 

03 

AND 

command  bits 

8BD6 

4A 

LSR 

lest  oit  ror  nusy 

8BD7 

90 

12 

BCC 

h*  ODLO 

Will  command  still  be  executed? 

8BD9 

FO 

F6 

BEQ 

$8BD1 

ihjo  udta  controller  ready? 

8BDB 

A9 

FB 

LDA 

#$FB 

write  oyte  vai : 'Data  Address 

8BDD 

8D 

03 

20 

O  J.  A 

Save1  to  diskette 

8BE0 

84 

6F 

o  ±  J. 

y  or 

Save  current  sector  pointer 

8BE2 

A4 

44 

LDY 

V  4  *i 

Get  number  of  sector  portions 

8BE4 

EA 

NOP 

Two— cycle  delay 

8BE53 

AD 

00 

20 

LDA 

s?oon 

Get  status  register  &  isolate 

8BE8 

29 

03 

AND 

command  bits 

8BEA 

4A 

LSR 

A 

lest  oit  ror  ousy 

8BEB3 

90 

60 

BCC 

$8C4D 

Will  command  still  be  executed? 

8BED 

FO 

F6 

BEQ 

$8BE5 

ito-uata  controller  ready? 

8BEF 

AD 

OA 

02 

LDA 

&070& 

Write  empty  byte  for  sector 

8BF2 

8D 

03 

20 

STA 

$2003 

■f-  s\    si  4  cV  offa 

8BF5 

EC 

71 

02 

CPX 

S0971 

Test  for  length  of  a  sub— sect or 

8BF8 

FO 

04 

BEQ 

VODC  Ej 

Entire  sub— sector  written ? 

8BFA 

E8 

I  NX 

a\j    riL  lie    1  UI  LJlei  tO 

8BFB 

4C 

E5 

8B 

JMP 

$8BE5 

iicAL  uyte 

8BFE1 

E8 

I  NX 

iji±L.iaii  tic  t-ii  u  j. «  s  mo  sect  or  leng  u  n 

8BFF 

88 

DEY 

uct»iement  numoer  or  sud— sectors 

8C00 

DO 

E3 

BNE 

$8BE5 

"iii-c  to  otner  sud  sectors; 

8C021 

AD 

00 

20 

LDA 

$2000 

inv^r-vaet.  status  register  &  isolate 

8C05 

29 

03 

AND 

commanQ  oits 

8C07 

4A 

LSR 

A 

j.t=au  jjil   l \j l  ousy 

8C08 

90 

43 

BCC 

$8C4D 

nxii    vrfUiuitiajlui    Still    Jjc   cXecutGU . 

8C0A 

FO 

F6 

BEQ 

ijc»o — uata  controller  reaay  r 

8C0C 

A9 

F7 

LDA 

write  oyte  value  ror  z  CRC— bytes 

8C0E 

8D 

03 

20 

STA 

^  f\     si  1  el/  a+"  si 

to  Qisxette 

8C11 

AC 

05 

t  nv 

Identifier  for  sector  length 

8C14 

B9 

4F 

8C 

T.nA 

Get  size/ spaces  between  sectors 

8C17 

A4 

6F 

T.nY 

■?  or 

Number  of  current  sector 

8C19 

AA 

TAX 

S^t"            rp  rnnnfor 

\^  i~*     o^/a\'C     L>*J  Ui  1  L,cl 

8C1A2 

AD 

00 

20 

LDA 

$2000 

Get  status  register  &  isolate 

8C1D 

29 

03 

AND 

#$03 

command  bits 

8C1F 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8C20 

90 

2B 

BCC 

$8C4D 

Will  command  still  be  executed? 

8C22 

FO 

F6 

BEQ 

$8C1A 

YES-Data  controller  ready? 
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8C24 

A9 

4E 

LDA 

#$4E 

Write  byte  value  for  space  3 

8C2  6 

8D 

03 

20 

STA 

$2003 

to  diskette 

8C29 

CA 

DEX 

Write  next  byte 

8C2A 

DO 

EE 

BNE 

$8C1A 

All  bytes  done? 

8C2C 

CC 

07 

02 

CPY 

$0207 

Number  of  sectors  to  track 

8C2F 

FO 

04 

BEQ 

$8C35 

All  sectors  set  up? 

8C31 

C8 

INY 

NO— Increment  sector  counter 

8C32 

4C 

07 

8B 

JMP 

$8B07 

write  next  sector 

8C35J 

AD 

00 

20 

LDA 

$2000 

Get  status  register  &  isolate 

8C38 

29 

03 

AND 

II  A/NT 

#$03 

command,  bits 

8C3A 

4A 

LSR 

A 

Test  oit  ior  ousy 

8C3B 

90 

0B 

BCC 

$8C48 

Will  command  stiii  De  execucear 

8C3D 

FO 

F6 

BEQ 

$8C35 

YES— Data  controller  ready? 

8C3F 

18 

CLC 

Write  byte  value 

8C40 

A9 

4E 

LDA 

#$4E 

for  space  4 

8C42 

8D 

03 

20 

STA 

$2003 

to  diskette 

8C45 

4C 

35 

8C 

JMP 

$8C35 

Fill  rest  of  track 

8C481 

20 

61 

88 

JSR 

$8861 

Wait  until  command  is  finished 

8C4B 

18 

CLC 

Set  flag  for  'formatting  Ok' 

8C4C 

24 

•byte  $24 

Jump  to  next  byte  (bit  command) 

8C4D3 

38 

SEC 

Set  flag  for  format  error 

8C4E 

60 

RTS 

Return  from  this  subroutine 

[8C14]     Number  of  bytes  for  spaces  between  CP/M  sectors 
8C4F    07  Value  for    128  bytes  per  sector 

8C50    0C  Value  for    256  bytes  per  sector 

8C51     17  Value  for    512  bytes  per  sector 

8C52    2C  Value  for  1024  bytes  per  sector 

[8CA7]    Number  of  CP/M  sectors  per  track  by  formatting 
8C53     1A  Value  for    128  bytes  per  sector 

8C54     10  Value  for    256  bytes  per  sector 

8C55     09  Value  for    512  bytes  per  sector 

8C56    05  Value  for  1024  bytes  per  sector 


[Vector:  86D8] 

Format  diskette  in  'IBM  System 


8C57 

A5 

3B 

LDA 

#$3B 

8C59 

29 

08 

AND 

#$08 

8C5B 

F0 

07 

BEQ 

$8C64 

8C5D 

A6 

46 

LDX 

$46 

8C5F 

8E 

B0 

01 

STX 

$01B0 

8C62 

38 

SEC 

8C63 

60 

RTS 

8C641 

20 

07 

D3 

JSR 

$D307 

8C67 

AD 

74 

02 

LDA 

$0274 

8C6A 

38 

SEC 

Test  for 

write-protect  flag 

Is  'Write  Protect'  set? 

YES— Get  error  number 

&  set  as  return  message 

Flag  for  'Error  encountered' 

Return  from  this  subroutine 

Clear  all  channels 

Lengh  of  command  string 

Draw  off  number  of  bytes  utilized 
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8C6B 

E9 

04 

SBC 

#$04 

and 

8C6D 

A8 

TAY 

save  value 

8C6E 

FO 

20 

BEQ 

$8C90 

Any  more  statements  onhand? 

8C70 

88 

DEY 

Pointer  to  next  command  byte 

8C71 

FO 

22 

BEQ 

$8C95 

More  statements  in  cmd  string? 

8C73 

A9 

00 

LDA 

#$00 

YES— Set  first  track  to  be 

8C75 

8D 

BO 

01 

STA 

$01B0 

formatted 

8C78 

AD 

05 

02 

LDA 

$0205 

Get  identifier  for  2nd  length  & 

8C7B 

20 

57 

8A 

JSR 

$8A57 

set  appropriate  pointer 

8C7E 

88 

DEY 

Pointer  to  next  command  byte 

8C7F 

FO 

21 

BEQ 

$8CA2 

More  statements  in  cmd  string? 

8C81 

88 

DEY 

YES— Pointer  to  next  command  byte 

8C82 

FO 

23 

BEQ 

$8CA7 

More  statements  in  cmd  string? 

8C84 

88 

DEY 

YES— Pointer  to  next  command  byte 

8C85 

FO 

26 

BEQ 

$8CAD 

More  statements   i  n   rmd  ctr^nn1? 

8C87 

88 

DEY 

YES — Pointer  to  next   rntninanH  Vwt-» 

8C88 

FO 

2B 

BEQ 

$8CB5 

More  statements   "in   cmH   «f rinrt*? 

8C8A 

88 

DEY 

YES — Pointer   to   next    rnrnmanrl   Vwr- o 

8C8B 

FO 

2D 

BEQ 

$8CBA 

More  statements  in  cmd  Qtri  nrr*> 

8C8D 

4C 

BF 

8C 

JMP 

$8CBF 

Set  no  insert-value 

8C901 

A9 

00 

LDA 

#$00 

Clear  track  ^t at pmpni- 

8C92 

8D 

04 

02 

STA 

$0204 

in  command  string 

8C951 

A9 

00 

LDA 

#$00 

Set  first  track  to  be 

8C97 

8D 

BO 

01 

STA 

$01B0 

formatted  (0) 

8C9A 

A9 

01 

LDA 

#$01 

Set  identifier  for  256  bytes  per 

8C9C 

8D 

05 

02 

STA 

$0205 

sector 

8C9F 

20 

57 

8A 

JSR 

$8A57 

Set  sector  pointer 

8CA21 

A9 

27 

LDA 

#$27 

Lay  out  size  of 

8CA4 

8D 

06 

02 

STA 

$0206 

formatted  track 

8CA71 

BD 

53 

8C 

LDA 

$8C53,X 

Determine  &  set  number 

8CAA 

8D 

07 

02 

STA 

$0207 

of  sectors  per  track 

8CAD1 

A9 

00 

LDA 

#$00 

Set  first  logical 

8CAF 

8D 

08 

02 

STA 

$0208 

track  number 

8CB2 

8D 

01 

20 

STA 

$2001 

Give  track  over  CP/M  controller 

8CB51 

A9 

00 

LDA 

#$00 

Set  first  physical  track  to  be 

8CB7 

8D 

09 

02 

STA 

$0209 

formatted 

8CBA1 

A9 

E5 

LDA 

#$E5 

Save  empty  bytes  to  fill 

8CBC 

8D 

OA 

02 

STA 

$020A 

sectors 

8CBF1 

20 

DE 

8C 

JSR 

$8CDE 

Format  disk  side  in  IBM  format 

8CC2 

AD 

BO 

01 

LDA 

$01B0 

Get  return  message  &  compare 

8CC5 

EO 

02 

CPX 

#$02 

with  value  for  'Ok' 

8CC7 

BO 

12 

BCS 

$8CDB 

Is  track  formattincr  c^Trmr—frtzez^ 

^  v            *—        Vj            J.  \J  i-  Ilia  \f  k»                       d  tm  W  1.        11  CC  • 

8CC9 

A5 

3B 

LDA 

$3B 

YES-Get  command  number  &  test 

8CCB 

29 

20 

AND 

#$20 

flag  for  'two  sides' 

8CCD 

FO 

OC 

BEQ 

$8CDB 

Should  both  sides  be  formatted? 

8CCF 

A5 

3B 

LDA 

$3B 

YES-Set  flag  for 

8CD1 

09 

10 

ORA 

#$10 

side  2  in 
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8CD3 

85 

3B 

STA 

$3B 

command  number 

8CD5 

20 

54 

89 

JSR 

$8954 

Activate  head  on  current  side 

8CD8 

20 

DE 

8C 

JSR 

$8CDE 

Format  disk  side  in  ibm  rormat 

8CDB2 

4C 

EF 

89 

JMP 

$89EF 

Set  head  to  track  u  &  end 

[8CBF/8CD8] 

Format 

:  disk 

side 

in  ' 

IBM  System 

34 ' 

8CDE 

20 

B3 

89 

JSR 

$89B3 

Initialize  track 

8CE1 

BO 

7C 

BCS 

$8D5F 

Is  there  an  index  holer 

8CE3 

A9 

01 

LDA 

#$01 

YES— Re-initialize  tlag  ror  oisk 

8CE5 

8D 

0D 

18 

STA 

$180D 

exchange  (write-protect  changed) 

8CE8 

o  a 

EF 

89 

JSR 

$89EF 

Set  head  for  track  0 

8CEB 

AD 

a  o 

02 

LDA 

$0208 

Get  9th  char  from  command  string 

8CEE 

8D 

B0 

01 

STA 

$01B0 

&  set  as  first  track  number 

8CF1 

on 
oD 

A  T 
Ul 

20 

STA 

$2001 

Send  track  #  over  CP/M  controller 

8CF4 

a  *3 

02 

BIT 

$0203 

CsST.  ^tji  cnar  rrom  coiruucinQ  string 

8CF7 

^  A 

A  c: 
UO 

BVS 

$8CFE 

Flag  for  'no  sector  table1  set? 

8CF9 

o  a 

Q  O 

oo 

88 

JSR 

$8888 

NO- Create  sector  table 

8CFC 

T3  A 

BU 

£L  1 

bl 

BCS 

$8D5F 

iaoie  CieaT.Su  wiunou  errors; 

8CFE^ 

AD 

US 

02 

LDA 

£  a  o  A  n 
50209 

ILo — oei  lutn  cnar  ironi  cnin<j.st.L. uiy 

8D01 

29 

7F 

AND 

#$7F 

Set  as  first  physical  track  # 

8D03 

F0 

Do 

BEQ 

$8D0D 

Head  moved  to  a  starting  tracer 

8D05 

T  O 

18 

CLC 

YES — Physical  tracK  at  staru-or 

8D06 

65 

67 

ADC 

$67 

format  should  be 

8D08 

85 

67 

STA 

$67 

computed 

8D0A 

20 

BA 

87 

JSR 

$87BA 

Control  track 

SDOD'' 

78 

SEI 

Disable  bus/controller  interrupt 

8D0E 

AD 

0D 

18 

LDA 

$180D 

Test  signal  from  circuitry  for 

8D11 

4A 

LSR 

A 

' Write— protect  has  to  be  changed' 

8D12 

o  a 
BU 

A  O 

4B 

BCS 

$8D5F 

Has  diskette  been  changed? 

8D14 

o  a 
ZV 

O  D 

8A 

JSR 

$8A86 

NO— Format  track 

8D17 

■n  a 
BU 

^1  O 

BCS 

$8D5F 

Has  an  error  been  found? 

8D19 

AD 

An 

18 

LDA 

$180D 

NO— Test  signal  from  circuitry  for 

8D1C 

A  A 

LSR 

A 

1  write~prot.ect  nas  10  oe  cnangea 

8D1D 

T>  A 

A  A 

4  U 

BCS 

$8D5F 

Diskette  been  changed? 

8D1F 

20 

F0 

88 

JSR 

588F0 

NO— Test  sectors 

8D22 

B0 

3B 

BCS 

$8D5F 

All  sectors  written  error— free? 

8D24 

AD 

0D 

18 

LDA 

$180D 

i to- lest,  signax  rrm  circuitry  j. ui 

8D27 

4A 

LSR 

A 

write  protect  nas  to  oe  cnangea. 

8D28 

B0 

35 

BCS 

$8D5F 

nas  ulSKeuue  oeen  cnangea; 

8D2A 

AD 

B0 

01 

LDA 

$01B0 

Compare  current  logical  track  % 

8D2D 

CD 

06 

02 

CMP 

$0206 

with  last  number 

8D30 

F0 

0E 

BEQ 

$8D40 

Is  desired  range  formatted? 

8D32 

E6 

67 

INC 

$67 

NO-Set  to  next  target  track 

8D34 

EE 

01 

20 

INC 

$2001 

Put  CP/M  controller  to  next  track 

8D37 

EE 

B0 

01 

INC 

$01B0 

Increment  current  track  number 

8D3A 

20 

BA 

87 

JSR 

$87BA 

Set  head  to  track 
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8D3D 

4C 

OD 

8D 

JMP 

$8D0D 

Keep  formatting 

8D401 

24 

3B 

BIT 

$3B 

Test  flag  in  command  number 

8D42 

10 

18 

BPL 

$8D5C 

End  track  recognized  /  cleared? 

8D44 

38 

SEC 

Number  of  tracks  to  be  formatted 

8D45 

AD 

06 

02 

LDA 

$0206 

from  last  logical  track 

8D48 

ED 

08 

02 

SBC 

$0208 

&  compute  first  track  number 

8D4B 

C9 

27 

CMP 

#$27 

Compare  with  maximum  #  of  tracks 

8D4D 

BO 

OD 

BCS 

$8D5C 

Everything  til  side  2  formatted? 

8D4F 

E6 

67 

INC 

$67 

YES-Go  to  side  2  for 

8D51 

20 

BA 

87 

JSR 

$87BA 

formatting 

8D54 

A2 

1C 

LDX 

#$1C 

Write  7168  times  $55  (%01010101) 

8D56 

20 

63 

9D 

JSR 

$9D63 

to  track 

8D59 

20 

00 

FE 

JSR 

$FE00 

Switch  head  to  read 

8D5C^ 

A2 

00 

LDX 

#$00 

Error  number  for  'Ok' 

8D5E 
8D5F6 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

A2 

06 

LDX 

#$06 

Error  number  for  'Format  error' 

8D61 

8E 

BO 

01 

STX 

$01B0 

Set  return  message  & 

8D64 

4C 

E9 

85 

JMP 

$85E9 

get  ready  for  output 

[8DF0/Vektor:  86D9] 

Read  CP/M  sector  &  send  to  computer 


8D67 

A5 

3B 

LDA 

$3B 

Get  command  #,  &  test  Flag  for 

8D69 

29 

20 

AND 

#$20 

'Buffer  output  only' 

8D6B 

DO 

59 

BNE 

$8DC6 

Set? 

8D6D 

A9 

03 

LDA 

#$03 

NO— Set  current  buffer  pointer  to 

8D6F 

85 

31 

STA 

$31 

starting  address 

8D71 

AO 

00 

LDY 

#$00 

from  buffer  0 

8D73 

84 

30 

STY 

$30 

($0300) 

8D75 

A6 

44 

LDX 

$44 

Get  number  of  sub-sectors 

8D77 

AD 

03 

02 

LDA 

$0203 

Give  track  number  to 

8D7A 

8D 

01 

20 

STA 

$2001 

CP/M  controller 

8D7D 

AD 

04 

02 

LDA 

$0204 

Give  number  of  desired  sector 

8D80 

8D 

02 

20 

STA 

$2002 

over  CP/M  controller 

8D83 

A9 

88 

LDA 

#$88 

%10001000  'Read  sector' 

8D85 

20 

4E 

88 

JSR 

$884E 

command    over  CP/M  controller 

8D88 

EA 

NOP 

Two-cycle  delay 

8D893 

AD 

00 

20 

LDA 

$2000 

Get  status  register  &  isolate 

8D8C 

29 

03 

AND 

#$03 

command  bits 

8D8E 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8D8F 

90 

1A 

BCC 

$8DAB 

Will  command  still  be  executed? 

8D91 

29 

01 

AND 

#$01 

YES-Flagbit : 'Data  register  ready 

8D93 

F0 

F4 

BEQ 

$8D89 

Wait  until  data  are  ready 

8D95 

AD 

03 

20 

LDA 

$2003 

Get  Data  byte  from  CP/M 

8D98 

91 

30 

STA 

($30) ,Y 

controller  &  write  in  buffer 

8D9A 

CC 

71 

02 

CPY 

$0271 

Number  of  bytes  per  sub-sector 

8D9D 

F0 

03 

BEQ 

$8DA2 

All  bytes  read? 

8D9F 

C8 

INY 

NO— Buffer  pointer  to  next  byte 
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8DA0 

DO 

E7 

BNE 

$8D89 

End  of  buffer  reached? 

8DA2-'- 

C8 

INY 

YES — Clear  buffer  pointer 

8DA3 

CA 

DEX 

Next  sub— sector 

8DA4 

FO 

05 

BEQ 

$8DAB 

All  sub-sectors  read? 

8DA6 

E6 

31 

INC 

$31 

NO— Buffer  pointer  to  next  buffer 

8DA8 

4C 

89 

8D 

JMP 

$8D89 

Keep  reading  sectors 

8DAB2 

20 

61 

88 

JSR 

$8861 

Wait  until  command  is  done 

8DAE 

20 

3C 

88 

JSR 

$883C 

Get  status  of  CP/M  controller 

8DB1 

20 

E9 

85 

JSR 

$85E9 

Prepare  error  number  for  output 

8DB4 

24 

3B 

BIT 

$3B 

Test  flag  for  'Error  noted' 

8DB6 

70 

07 

BVS 

$8DBF 

Should  return  message  be  tested? 

8DB8 

EO 

02 

CPX 

#$02 

YES— Test  against  value  for  'OK' 

8DBA 

90 

03 

BCC 

$8  DBF 

Is  number  greater  (error  number) ? 

8DBC 

4C 

84 

83 

JMP 

$8384 

YES— Display  error 

8DBF2 

20 

F9 

85 

JSR 

$85F9 

Output  byte  over  1571  bus 

8DC2 

A5 

3B 

LDA 

$3B 

Note  flag  for  'read  sector  only' 

8DC4 

30 

22 

BMI 

$8DE8 

Should  buffer  be  transferred? 

8DC61 

A9 

03 

LDA 

#$03 

YES— Set  current  buffer  pointers 

8DC8 

85 

31 

STA 

$31 

($30/$31)  to  starting  address 

8DCA 

AO 

00 

LDY 

#$00 

in  ($0300) 

8DCC 

84 

30 

STY 

$30 

buffer  0  ($0300) 

8DCE 

A6 

44 

LDX 

$44 

Number  of  sub-sectors  per  sector 

8DD02 

Bl 

30 

LDA 

($30) , Y 

Get  byte  from  buffer  &  save 

8DD2 

85 

46 

STA 

$46 

as  character  to  be  output 

8DD4 

20 

F9 

85 

JSR 

$85F9 

Output  byte  over  1571  bus 

8DD7 

CC 

71 

02 

CPY 

$0271 

Number  of  bytes  per  sub- sector 

8DDA 

FO 

03 

BEQ 

$8DDF 

Entire  sub-sector  already  sent? 

8DDC 

C8 

INY 

NO— Buffer  pointer  to  next  byte 

8DDD 

DO 

Fl 

BNE 

$8DD0 

Reached  end-of-buf fer? 

8DDF1 

C8 

INY 

YES— Set  buffer  pointer  to  start 

8DE0 

CA 

DEX 

Decrement  number  of  sub-sectors 

8DE1 

FO 

05 

BEQ 

$8DE8 

Whole  sector  already  been  sent? 

8DE3 

E6 

31 

INC 

$31 

NO— Buffer  pointer  to  next  buffer 

8DE5 

4C 

DO 

8D 

JMP 

$8DD0 

Continue  sending  data 

8DE82 

CE 

05 

02 

DEC 

$0205 

#  of  sectors  to  be  transferred 

8DEB 

FO 

06 

BEQ 

$8DF3 

Read  more  sectors? 

8DED 

20 

6C 

88 

JSR 

$886C 

YES-Compute  next  sector  number 

8DF0 

4C 

67 

8D 

JMP 

$8D67 

Read  next  sector 

8DF31 

4C 

IB 

89 

JMP 

$891B 

Control  next  given  track 
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[8EBF/Vector:  86DC] 

Send  CP/M  sector  from  computer  and  write  to  diskette 


8DF6 

A9 

03 

LDA 

#$03 

Set  curr.  buffer  pointer  $30/$31 

8DF8 

85 

31 

STA 

$31 

to  starting  address 

8DFA 

AO 

00 

LDY 

#$00 

from  buffer 

8DFC 

84 

30 

STY 

$30 

0  ($0300) 

8DFE 

A6 

44 

LDX 

$44 

Number  of  sections  per  sector 

8E00 

A5 

3B 

LDA 

$3B 

Test  flag  for  'buffer  read' 

8E02 

30 

30 

BMI 

$8E34 

Data  taken  from  computer? 

8E042 

AD 

00 

18 

LDA 

$1800 

YES— Get  bus  control  register  & 

8E07 

49 

08 

EOR 

#$08 

switch  to  Clock  output 

8E09 

2C 

0D 

40 

BIT 

$400D 

Re-set  interrupt  register 

8E0C 

8D 

00 

18 

STA 

$1800 

Set  bus  control  register 

8E0F1 

AD 

00 

18 

LDA 

$1800 

Test  ATN  input 

8E12 

10 

03 

BPL 

$8E17 

Set? 

8E14 

20 

59 

EA 

JSR 

$EA59 

Test  for  ATN  command  mode 

8E171 

AD 

OD 

40 

LDA 

$400D 

NO-Test  flag  for  'serial 

8E1A 

29 

08 

AND 

#$08 

input  register  full' 

8E1C 

F0 

Fl 

BEQ 

$8E0F 

Is  data  transmitting? 

8E1E 

AD 

OC 

40 

LDA 

$400C 

YES-Get  byte  and  write 

8E21 

91 

30 

STA 

($30), Y 

to  buffer 

8E23 

CC 

71 

02 

CPY 

$0271 

Number  of  bytes  per  sub-sector 

8E26 

F0 

03 

BEQ 

$8E2B 

Entire  subdivision  read  in? 

8E28 

C8 

INY 

NO— Buffer  pointer  to  next  byte 

8E29 

DO 

D9 

BNE 

$8E04 

End  of  buffer  reached? 

8E2B1 

C8 

INY 

YES-Set  buffer  pointer  to  start 

8E2C 

CA 

DEX 

Next  sub-sector 

8E2D 

F0 

05 

BEQ 

$8E34 

Read  more  subdivisions  from  bus? 

8E2F 

E6 

31 

INC 

$31 

YES— Buffer  pointer  to  next  buffer 

8E31 

4C 

04 

8E 

JMP 

$8E04 

Continue  reading 

8E341 

A5 

3B 

LDA 

$3B 

Get  command  number  and  flag  for 

8E36 

29 

20 

AND 

#$20 

'Write  buffer  in  sector' 

8E38 

DO 

7D 

BNE 

$8EB7 

Should  sector  be  written? 

8E3A 

A5 

3B 

LDA 

$3B 

YES-Test  out  flag  for 

8E3C 

29 

08 

AND 

#$08 

'Write  protect' 

8E3E 

F0 

05 

BEQ 

$8E45 

Is  write-protect  active? 

8E40 

A6 

46 

LDX 

$46 

YES— Get  error  number  and 

8E42 

4C 

81 

83 

JMP 

$8381 

output  it 

8E451 

A9 

03 

LDA 

#$03 

Set  curr.  buffer  pointer  $30/$31 

8E47 

85 

31 

STA 

$31 

to  starting  address 

8E4  9 

AO 

00 

LDY 

#$00 

from  buffer 

8E4B 

84 

30 

STY 

$30 

0  ($0300) 

8E4D 

A6 

44 

LDX 

$44 

Number  of  subsectors  per  sector 

8E4F 

AD 

03 

02 

LDA 

$0203 

Get    track  #  from  command  string. 

8E52 

8D 

01 

20 

STA 

$2001 

and  give  to  CP/M  controller 

8E55 

AD 

04 

02 

LDA 

$0204 

Get  number  of  desired  sector  and 

8E58 

8D 

02 

20 

STA 

$2002 

give  to  CP/M  controller 
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8E5B 

AD 

OD 

18 

LDA 

$180D 

Signal  from  circuitry  for 

8E5E 

4A 

LSR 

A 

'Write-Protect  has  been  changed' 

8E5F 

BO 

32 

BCS 

$8E93 

Has  diskette  been  changed? 

8E61 

A9 

A8 

LDA 

#$A8 

NC—%101010000  Convey'Write  single 

8E63 

20 

4E 

88 

JSR 

$884E 

sector 'command  to  CP/M  controller 

8E663 

AD 

00 

20 

LDA 

$2000 

Get  status  register  and 

8E69 

29 

03 

AND 

#$03 

isolate  command  bits 

8E6B 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8E6C 

90 

25 

BCC 

$8E93 

Is  command  yet  to  be  executed? 

8E6E 

29 

01 

AND 

#$01 

YES— Flag:   'data  register  empty' 

8E70 

FO 

F4 

BEQ 

$8E66 

Should  new  data  be  taken  up? 

8E72 

Bl 

30 

LDA 

($30) ,Y 

YES-Get  data  byte  from  buffer  and 

8E74 

8D 

03 

20 

STA 

$2003 

write  to  diskette 

8E77 

CC 

71 

02 

CPY 

$0271 

Number  of  bytes  per  subdivision 

8E7A 

FO 

03 

BEQ 

$8E7F 

End  of  sub-sectors? 

8E7C 

C8 

I  NY 

NO-buffer  pointer  to  next  byte 

8E7D 

DO 

E7 

BNE 

$8E66 

End  of  buffer  reached? 

8E7F1 

C8 

INY 

YES-Set  buffer  pointer  to  start 

8E80 

CA 

DEX 

Number  of  subdivisions  per  sector 

8E81 

FO 

05 

BEQ 

$8E88 

Still  another  sub-sector? 

8E83 

E6 

31 

INC 

$31 

YES— Buffer  address  to  next  buffer 

8E85 

4C 

66 

8E 

JMP 

$8E66 

Keep  writing  to  diskette 

8E88 

AD 

OD 

18 

LDA 

$180D 

Check  signal  from  circuitry  for 

8E8B 

4A 

LSR 

A 

'Write-protect  has  to  be  changed' 

8E8C 

BO 

05 

BCS 

$8E93 

Has  diskette  been  exchanged? 

8E8E 

20 

C6 

8E 

JSR 

$8EC6 

NO-Read  sector  to  test 

8E91 

90 

07 

BCC 

$8E9A 

Read  functions  perfectly? 

8E933 

20 

CE 

81 

JSR 

$81CE 

NO-Switch  1571  bus  to  output 

8E96 

A2 

07 

LDX 

#$07 

Error  number  for  'verify  error' 

8E98 

DO 

06 

BNE 

$8EA0 

Jump  to  $8EA0 

8E9A1 

20 

CE 

81 

JSR 

$8  ICE 

Switch  1571  bus  to  output 

8E9D 

20 

3C 

88 

JSR 

$883C 

Get  CP/M  controller  error  status 

8EA01 

8E 

BO 

01 

STX 

$01B0 

and  save  it 

8EA3 

20 

E9 

85 

JSR 

$85E9 

Prepare  error  fo  output 

8EA6 

20 

F9 

85 

JSR 

$85F9 

Send  byte  over  1571  bus 

8EA9 

20 

AO 

86 

JSR 

$8  6A0 

Wait  for  jumper  from  Clock 

8EAC 

20 

B2 

81 

JSR 

$81B2 

Switch  1571  bus  to  input 

8EAF 

24 

3B 

BIT 

$3B 

Test  'Note  error'  flag 

8EB1 

70 

04 

BVS 

$8EB7 

Return  message  to  be  verified? 

8EB3 

EO 

02 

CPX 

#$02 

YES— Verify  against  error  number 

8EB5 

BO 

OE 

BCS 

$8EC5 

Is  there  an  error? 

8EB72 

CE 

05 

02 

DEC 

$0205 

NO-#  of  sectors  to  be  written 

8EBA 

FO 

06 

BEQ 

$8EC2 

Any  more  sectors? 

8EBC 

20 

6C 

88 

JSR 

$886C 

YES-Get  number  of  next  sector 

8EBF 

4C 

F6 

8D 

JMP 

$8DF6 

Read  and  write  next  sector 

8EC21 

4C 

IB 

89 

JMP 

$891B 

Get  next  track  and  set  it 

8EC51 

60 

RTS 

Return  from  this  subroutine 
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[8E8E/Vector:  86DE] 

Compare  CP/M  sector  with  buffer  contents  (verify) 


8EC6 

A9 

03 

LDA 

#$03 

Set  curr.  buffer  pointer  $30/$31 

8EC8 

85 

31 

STA 

$31 

to  starting 

8ECA 

AO 

00 

LDY 

#$00 

address  from 

8ECC 

84 

30 

STY 

$30 

buffer  0  ($0300) 

8ECE 

A6 

44 

LDX 

$44 

Number  of  subsectors  per  sector 

8ED0 

AD 

03 

02 

LDA 

$0203 

Get  track  #  from  command  string  & 

8ED3 

8D 

01 

20 

STA 

$2001 

send  to  CP/M  controller 

8ED6 

AD 

04 

02 

LDA 

$0204 

Get  number  of  desired  sector  and 

8ED9 

8D 

02 

20 

STA 

$2002 

send  to  CP/M  controller 

8EDC 

A9 

88 

LDA 

#$88 

%10001000  'Read  Sector' 

8EDE 

20 

4E 

88 

JSR 

$884E 

Send  command  to  controller 

8EE1° 

AD 

00 

20 

LDA 

$2000 

Get  status  register  and 

8EE4 

29 

03 

AND 

#$03 

isolate  command  bits 

8EE6 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8EE7 

90 

1C 

BCC 

$8F05 

Command  yet  to  be  executed? 

8EE9 

29 

01 

AND 

#$01 

YES— Test  'Ready  for  data'  flag 

8EEB 

F0 

F4 

BEQ 

$8EE1 

Wait  until  data  byte  is  ready? 

8EED 

AD 

03 

20 

LDA 

$2003 

Read  byte  from  diskette 

8EF0 

Dl 

30 

CMP 

($30) ,Y 

and  compare  with  buffer  contents 

8EF2 

DO 

11 

BNE 

$8F05 

Identical? 

8EF4 

CC 

71 

02 

CPY 

$0271 

YES— Number  of  bytes /sub-sector 

8EF7 

F0 

03 

BEQ 

$8EFC 

Entire  subdivision  compared? 

8EF9 

C8 

I  NY 

NO-buffer  pointer  to  next  byte 

8EFA 

DO 

E5 

BNE 

$8EE1 

End  of  buffer  reached? 

8EFC1 

C8 

I  NY 

YES-Set  buffer  pointer  to  start 

8EFD 

CA 

DEX 

Number  of  sub-sectors 

8EFE 

FO 

10 

BEQ 

$8F10 

Any  sub-sectors  left? 

8F00 

E6 

31 

INC 

$31 

YES-Pointer  addr  to  next  buffer 

8F02 

4C 

El 

8E 

JMP 

$8EE1 

Continue  verify 

SFOS^ 

A9 

DO 

LDA 

#$D0 

%11010000  'Forced  Interrupt' 

8F07 

8D 

00 

20 

STA 

$2000 

on  controller;  verify  ends 

8F0A 

20 

83 

A4 

JSR 

$A483 

Approx.  80-cycle  delay 

8F0D 

A2 

07 

LDX 

#$07 

Error  number  for  'verify  error' 

8F0F 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

8F101 

A2 

00 

LDX 

#$00 

Error  number  for  'Ok' 

8F12 

8E 

BO 

01 

STX 

$01B0 

Save  number 

8F15 

4C 

61 

88 

JMP 

$8861 

Wait  for  end  of  command 
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[8900/Vector :  86E0] 


Test  CP/N 

1  sector 

for 

empty 

contents 

8F18 

A9 

03 

LDA 

#$03 

Set  curr.  buffer  pointer  $30/$31 

8F1A 

85 

31 

STA 

$31 

to  starting  address 

8F1C 

AO 

00 

LDY 

#$00 

from 

8F1E 

84 

30 

STY 

$30 

buffer  0  ($0300) 

8F20 

A6 

44 

LDX 

$44 

Number  of  sub-sectors  per  sector 

8F22 

AC 

71 

02 

LDY 

$0271 

Length  of  a  sub-sector 

8F25 

A9 

88 

LDA 

#$88 

%10001000  'Read  Sector' 

8F27 

20 

4E 

88 

JSR 

$884E 

Give  command  to  CP/M  controller 

8F2A3 

AD 

00 

20 

LDA 

$2000 

Get  status  register  and 

8F2D 

29 

03 

AND 

#$03 

isolate  command  bits 

8F2F 

4A 

LSR 

A 

Test  bit  for  'Busy' 

8F30 

90 

1A 

BCC 

$8F4C 

Command  still  need  to  be  run? 

8F32 

29 

01 

AND 

#$01 

YES-Test  'Ready  for  data'  flag 

8F34 

F0 

F4 

BEQ 

$8F2A 

Waiting  for  a  data  byte? 

8F36 

AD 

03 

20 

LDA 

$2003 

Read  byte  from  diskette  &  compare 

8F39 

CD 

OA 

02 

CMP 

$020A 

with  value  for  empty  byte 

8F3C 

DO 

OE 

BNE 

$8F4C 

Identical? 

8F3E 

88 

DEY 

YES— Next  byte 

8F3F 

10 

E9 

BPL 

$8F2A 

Entire  sub-sector  compared? 

8F41 

CA 

DEX 

YES— Number  of  sub-sectors 

8F42 

FO 

13 

BEQ 

$8F57 

Any  more  sub-sectors? 

8F44 

AC 

71 

02 

LDY 

$0271 

YES— Set  counter  again 

8F47 

E6 

31 

INC 

$31 

Buffer  pointer  to  next  buffer 

8F49 

4C 

2A 

8F 

JMP 

$8F2A 

Continue  testing 

8F4C2 

A9 

DO 

LDA 

#$D0 

'11010000'    'Forced  Interrupt*  to 

8F4E 

8D 

00 

20 

STA 

$2000 

controller;  command  interrupt 

8F51 

20 

83 

A4 

JSR 

$A483 

Wait  approx.  80  cycles 

8F54 

A2 

07 

LDX 

#$07 

Error  number  for  'verify  error' 

8F56 

2C 

.byte  $2C 

Jump  to  next  two  bytes 

8F571 

A2 

00 

LDX 

#$02 

Error  #  for  'Header  not  found' 

8F59 

8E 

BO 

01 

STX 

$01B0 

Set  number 

8F5C 

4C 

61 

88 

JMP 

$8861 

Wait  until  command  is  finished 

[Vector:  86E2] 

Read  all  CP/M  headers  and  determine  sector  sequence 


8F5F 

08 

PHP 

Retain  processor  status 

8F60 

78 

SEI 

Disable  bus/controller  interrupt 

8F61 

20 

EF 

89 

JSR 

$89EF 

Set  head  to  track  0 

8F64 

24 

3B 

BIT 

$3B 

Test  'Track  set'  flag 

8F66 

10 

08 

BPL 

$8F70 

Should  a  new  track  be  turned  to? 

8F68 

AD 

03 

02 

LDA 

$0203 

YES— Get  track  #  from  cmd  string 

8F6B 

85 

67 

STA 

$67 

and  set  as  target  track 

8F6D 

20 

BA 

87 

JSR 

$87BA 

Position  head  to  track 

8F701 

A9 

00 

LDA 

#$00 

Clear  counter  for  number 

8F72 

85 

97 

STA 

$97 

of  sectors 
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8F74 

20 

27 

8A 

JSR 

$8A27 

Read  next  header 

8F77 

AE 

BO 

01 

LDX 

$01B0 

Get  return  message  and  check 

8F7A 

E0 

02 

CPX 

#$02 

against  error  number 

8F7C 

BO 

IF 

BCS 

$8F9D 

Read  procedure  done,  error-free? 

8F7E 

A5 

26 

LDA 

$26 

YES— Get  sector  number  and  save 

8F80 

85 

96 

STA 

$96 

as  first  sector  number 

8F821 

20 

27 

8A 

JSR 

$8A27 

Read  next  header 

8F85 

A5 

26 

LDA 

$26 

Get  sector  number 

8F87 

A4 

97 

LDY 

$97 

Pointer  to  curr.  sector  position 

8F89 

99 

OB 

02 

STA 

$020B,Y 

Enter  sector  number  in  table 

8F8C 

E6 

97 

INC 

$97 

Pointer  to  next  sector  entry 

8F8E 

CO 

IF 

CPY 

#$1F 

Compare  with  max.  #  of  sectors 

8F90 

BO 

OB 

BCS 

$8F9D 

Number  of  sectors  allowable? 

8F92 

C5 

96 

CMP 

$96 

YES-Test  against  first  sector  # 

8F94 

DO 

EC 

BNE 

$8F82 

Reached  the  first  sector  again? 

8F96 

A5 

24 

LDA 

$24 

YES-Get  track  #  from  header  & 

8F98 

85 

67 

STA 

$67 

set  as  current  target  track 

8F9A 

A2 

00 

LDX 

#$00 

Value  for  'Ok'  message 

8F9C 

zc 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

8F9D2 

A2 

02 

LDX 

#$02 

Error  number:   'Header  not  found' 

8F9F 

8E 

BO 

01 

STX 

$01B0 

Set  return  message 

8FA2 

28 

PLP 

Re-establish  processor  status 

8FA3 

60 

RTS 

Return  from  this  subroutine 

[8FF1] 

•S' -command 

(sector) 

:  Set  sector 

format  for  Commodore  diskettes 

8FA4 

AD 

04 

02 

LDA 

$0204 

Get  5th  char  from  command  string 

8FA7 

85 

69 

STA 

$69 

and  set  as  new  sector  format 

8FA9 

60 

RTS 

Return  from  this  subroutine 

[8FF5] 

•R' -command  (Read)   :  Set  number  of  read  attempts 

8FAA    AD  04  02      LDA  $0204  Get  5th  char  from  command  string 

8FAD     85  6A           STA  $6A  and  set  as  new  #  of  read  attempts 

8FAF     60                 RTS  Return  from  this  subroutine 


[8FF9] 

'T' -command  (Test)   :  Test  ROM  checksum 

8FB0     4C  4E  92      JMP  $924E  Compute  checksum 

[9001] 

•H' -command  (Head)    :  Set  head  at  given  diskette  side 
(in  1541  mode  only) 

8FB3     78  SEI  Disable  bus/controller  interrupt 

8FB4    AD  OF  18      LDA  $180F  Get  control  register  and  get 

8FB7     29  20  AND  #$20  flag  for  operating  mode 

8FB9    DO  66  BNE  $9021  Is  drive  in  1541  mode? 
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8FBB 

AD 

04 

02 

LDA 

$0204 

YES— Get  5th  char  from  cmnd  string 

8FBE 

C9 

31 

CMP 

#$31 

and  compare  with  1 1 ' 

8FC0 

FO 

12 

BEQ 

$8FD4 

Should  head  be  set  to  side  2? 

8FC2 

C9 

30 

CMP 

#$30 

NO-Compare  with  '0' 

8FC4 

DO 

5B 

BNE 

$9021 

Should  head  be  set  to  side  1? 

8FC6 

AD 

OF 

18 

LDA 

$180F 

YES— Get  control  register  and 

8FC9 

29 

FB 

AND 

#$FB 

switch  head  circuitry  to 

8FCB 

8D 

OF 

18 

STA 

$180F 

side  1 

8FCE 

58 

CLI 

Enable  bus/controller  interrupt 

8FCF 

24 

3B 

BIT 

$3B 

Test  flag  in  command  number 

8FD1 

10 

OE 

BPL 

$8FE1 

Should  diskette  be  initialized? 

8FD3 

60 

RTS 

NO-Return  from  this  subroutine 

[8FC0] 

Change  head 

to 

side  5 

* 

8FD4 

AD 

OF 

18 

LDA 

$180F 

Get  control  register  and 

8FD7 

09 

04 

ORA 

#$04 

place  bit  for  head  electronics  to 

8FD9 

8D 

OF 

18 

STA 

$180F 

side  2 

8FDC 

58 

CLI 

Enable  bus/controller  interrupt 

8FDD 

24 

3B 

BIT 

$3B 

Test  flag  in  command  number 

8FDF 

30 

03 

BMI 

$8FE4 

Should  diskette  be  initialized? 

8FE11 

4C 

42 

DO 

JMP 

$D042 

YES-Read  BAM  from  diskette 

8FE41 

60 

RTS 

Return  from  this  subroutine 

[Origin  of  vector  80C2  through  routine  8030] 
Decode  status/control  functions 


8FE5 

AE 

74  02 

LDX 

$0274 

Determine  length/command  string 

8FE8 

E0 

04 

CPX 

#$04 

and  test  if  4  chars  are  given 

8FEA 

90 

35 

BCC 

$9021 

Command  a  minimum  4  char  long? 

8FEC 

AD 

03  02 

LDA 

$0203 

YES— Get  4th  char  from  command 

8FEF 

C9 

53 

CMP 

#$53 

and  compare  with  'S' 

8FF1 

F0 

Bl 

BEQ 

$8FA4 

Should  sector  format  be  set? 

8FF3 

C9 

52 

CMP 

#$52 

NO-Compare  with  'R' 

8FF5 

F0 

B3 

BEQ 

$8FAA 

Set  number  of  read  attempts? 

8FF7 

C9 

54 

CMP 

#$54 

NO-Compare  with  'T* 

8FF9 

F0 

B5 

BEQ 

$8FB0 

Test  ROM-checksum? 

8FFB 

C9 

4D 

CMP 

#$4D 

NO-Compare  with  'M' 

8FFD 

F0 

27 

BEQ 

$9026 

1541/1571  mode  switched  around? 

8FFF 

C9 

48 

CMP 

#$48 

NO-Compare  with  'H' 

9001 

F0 

B0 

BEQ 

$8FB3 

Should  diskette  side  be  changed? 

ROM -49 


Abacus  Software 


1571  Internals 


Set  device  address  (number  in  A) 


9003 

A8 

TAY 

Save  device  address 

9004 

CO 

04 

CPY 

#$04 

Compare  with  minimal  IEC  address 

9006 

90 

19 

BCC 

$9021 

Is  new  address  smaller? 

9008 

CO 

IF 

CPY 

#$1F 

NO-Check  maximum  IEC  address 

900A 

B0 

15 

BCS 

$9021 

New  address  in  allowable  range? 

900C 

A9 

40 

LDA 

#$40 

YES-Set  identifier  for 

900E 

85 

78 

STA 

$78 

Talk 

9010 

A9 

20 

LDA 

#$20 

Set  identifier  for 

9012 

85 

77 

STA 

$77 

Listen 

9014 

98- 

TYA 

Get  new  device  address  and  use  it 

9015 

18 

CLC 

to  set  new  address  for 

9016 

65 

78 

ADC 

$78 

Talk  call 

9018 

85 

78 

STA 

$78 

Sot"  aHHroeo 

901A 

98 

TYA 

Get  new  device  address  and  use  it 

901B 

18 

CLC 

to  establish  new  address  for 

901C 

65 

77 

ADC 

$77 

Listen  call 

901E 

85 

77 

STA 

$77 

JC^      CI  ' — t  i_  vC  -J  -J 

9020 

60 

RTS 

Return  from  this  subroutine 

[8FB9/8FC4/8FEA/9006/900A/9030] 

9021 

A9 

31 

LDA 

#$31 

Display 

9023 

4C 

C8 

CI 

JMP 

$C1C8 

'31  Syntax  Error'  message 

[8FFD] 

•M' -command 

(Mode)  : 

1541  /  1571 

operating  mode  switching 

9026 

78 

SEI 

Disable  hus/eontTol  lor  \  nt^TTiid" 

9027 

AD 

04 

02 

LDA 

$0204 

Get  5th  char  from  command  string 

902A 

C9 

31 

CMP 

#$31 

and  compare  with  *  1 ' 

902C 

FO 

20 

BEQ 

$904E 

Switched  into  1571  mode? 

902E 

C9 

30 

CMP 

#$30 

NO-Compare  with  '0' 

9030 

DO 

EF 

BNE 

$9021 

Switched  into  1541  mode? 

Switch  to  1541 

mode 

9032 

AD 

OF 

18 

LDA 

$180F 

YES— Get  control  register 

9035 

29 

DF 

AND 

#$DF 

Switch  control  &  bus  electronics 

9037 

8D 

OF 

18 

STA 

$180F 

to  1541   (1  MHz  speed) 

903A 

20 

83 

A4 

JSR 

$A4  83 

80-cycle  delay 

903D 

20 

82 

FF 

JSR 

$FF82 

Initialize  1541  mode 

9040 

AD 

AF 

02 

LDA 

$02AF 

Set  flag  for 

9043 

09 

80 

ORA 

#$80 

■1541  IRQ  Routine' 

9045 

8D 

AF 

02 

STA 

$02AF 

($9D88) 

9048 

58 

CLI 

Enable  bus/controller  interrupt 

9049 

24 

3B 

BIT 

$3B 

Test  flag  in  command  number 

904B 

10 

2F 

BPL 

$907C 

Should  diskette  be  initialized? 

904D 

60 

RTS 

NO— Return  from  this  subroutine 
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[902C] 

Switch  to  1571  mode 


904E 

AD 

OF 

18 

LDA 

$180F 

Get  control  register  and 

9051 

09 

20 

ORA 

#$20 

switch  bus,  operating  electronics 

9053 

8D 

OF 

18 

STA 

$180F 

to  1571   (2  MHz  speed) 

9056 

20 

83 

A4 

JSR 

$A483 

80-cycle  delay 

9059 

A9 

DE 

LDA 

#$DE 

IRQ  vector  in  $02A9/$02AA  to 

905B 

8D 

A9 

02 

STA 

$02A9 

job  loop  call 

905E 

A9 

9D 

LDA 

#$9D 

Turn  to  1571  routine  in 

9060 

8D 

AA 

02 

STA 

$02AA 

$9DDE 

9063 

A9 

40 

LDA 

#$40 

Timer  1  (High-Byte) 

9065 

8D 

07 

1C 

STA 

$1C07 

set  to  about 

9068 

8D 

05 

1C 

STA 

$1C05 

8  ms 

90  6B 

AD 

AF 

02 

LDA 

$02AF 

Set  flag  for 

906E 

29 

7F 

AND 

#$7F 

'Toggle  IRQ  from  1541  to 

9070 

8D 

AF 

02 

STA 

$02AF 

1571 ' 

9073 

A9 

00 

LDA 

#$00 

Clear  flag  for  current 

9075 

85 

62 

STA 

$62 

headmode 

9077 

58 

CLI 

Enable  bus/controller  interrupt 

9078 

24 

3B 

BIT 

$3B 

Test  command  number 

907A 

30 

03 

BMI 

$907F 

Should  diskette  be  initialized? 

907C1 

4C 

42 

DO 

JMP 

$D042 

YES— Read  BAM  from  diskette 

907F1 

60 

RTS 

Return  from  this  subroutine 

[BF66/0rigin  over  vector  in  80CC  through  routine  8030] 
Fast-load  file  over  1571  bus   (PRG,  SEQ  or  USR) 


9080 

20 

CE 

81 

JSR 

$81CE 

Switch  1571  bus  to  output 

9083 

20 

EA 

91 

JSR 

$91EA 

Prepare  filename 

9086 

B0 

5F 

BCS 

$90E7 

Improper  filename? 

9088 

20 

3D 

C6 

JSR 

$C63D 

NC—Initialize  diskette 

90  8B 

A5 

FF 

LDA 

$FF 

Get  flag  for  drive  status 

908D 

DO 

58 

BNE 

$90E7 

Is  drive  ready? 

908F 

A5 

37 

LDA 

$37 

YES— Get  bus  status  and  set 

9091 

09 

81 

ORA 

#$81 

flags  for  '1571  mode'  and 

9093 

85 

37 

STA 

$37 

'last  sector' 

9095 

20 

CA 

91 

JSR 

$91CA 

Set  channel  and  buffer  parameters 

9098 

AD 

00 

02 

LDA 

$0200 

Get  first  character  of  filename  & 

909B 

C9 

2A 

CMP 

#$2A 

compare  with  wildcard  ' * ' 

909D 

DO 

OF 

BNE 

$90AE 

Load  last-loaded  file? 

90  9F 

A5 

7E 

LDA 

$7E 

YES— Get  number  of  last  track 

90A1 

F0 

0B 

BEQ 

$90AE 

Is  track  number  given? 

90A3 

48 

PHA 

YES— Save  number 

90A4 

AD 

6F 

02 

LDA 

$026F 

Get  number  of  last  sector  &  enter 

90A7 

8D 

85 

02 

STA 

$0285 

in  table 

90AA 

68 

PLA 

Get  last  track  number 

90AB 

4C 

EC 

90 

JMP 

$90EC 

Load  file 

90AE2 

A9 

00 

LDA 

#$00 

Clear  pointer  and  register: 
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90B0 

A8 

TAY 

[Error —  see  7.1.5] 

90B1 

AA 

TAX 

[Unnecessary  initialization] 

90B2 

8D 

8E 

02 

STA 

$028E 

Number  of  last  drive 

90B5 

8D 

7A 

02 

STA 

$027A 

Pointer  to  first  filename 

90B8 

20 

12 

C3 

JSR 

$C312 

Get  drive  #  from  command  string 

90BB 

AD 

78 

02 

LDA 

$0278 

Retain  number  of  filenames 

90BE 

48 

PHA 

found  and  allow 

90BF 

A9 

01 

LDA 

#$01 

for  only  one 

90C1 

8D 

78 

02 

STA 

$0278 

filename 

90C4 

A9 

FF 

LDA 

#$FF 

Clear  pointer  in 

90C6 

85 

86 

STA 

$86 

directory  buffer 

90C8 

20 

4F 

C4 

JSR 

$C44F 

Search  for  entry  in  directory 

90CB 

68 

PLA 

Repeat  pointer  with  number 

90CC 

8D 

78 

02 

STA 

$0278 

of  filenames 

90CF 

A5 

37 

LDA 

$37 

Get  bus  status  and 

90D1 

29 

7F 

AND 

#$7F 

clear  flag  for 

90D3 

85 

37 

STA 

$37 

'1571  mode' 

90D5 

24 

3B 

BIT 

$3B 

Get  command  number  and  test  flag 

90D7 

30 

06 

BMI 

$90DF 

Should  file  be  tested  for  'PRC  ? 

90D9 

A5 

E7 

LDA 

$E7 

Determine  filetype  of  file  entry 

90DB 

C9 

02 

CMP 

#$02 

&  compare  with  identifier  for  PRG 

90DD 

DO 

05 

BNE 

$90E4 

Is  entry  a  PRG  file? 

90DF1 

AD 

80 

02 

LDA 

$0280 

YES-Track  #  of  first  file  sector 

90E2 

DO 

08 

BNE 

$90EC 

Entry  to  be  found  in  directory? 

90E41 

A2 

02 

LDX 

#$02 

Error  number  for  'File  Not  Found' 

90E6 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

90E72 

A2 

OF 

LDX 

#$0F 

Error  #  for  'Drive  Not  Ready' 

90E9 

4C 

AD 

91 

JMP 

$9  IAD 

Send  error  over  1571  bus 

90EC2 

85 

7E 

STA 

$7E 

Save  last  track  and 

90EE 

48 

PHA 

retain  number 

90EF 

20 

DA 

91 

JSR 

$91DA 

Compute  pointer  to  job  table 

90F2 

68 

PLA 

Repeat  last  track  number 

90F3 

AE 

BO 

02 

LDX 

$02B0 

Get  pointer  from  job  table  and 

90F6 

95 

06 

STA 

$06, X 

set  track  of  job 

90F8 

AD 

85 

02 

LDA 

$0285 

Get  last  sector  number 

90FB 

8D 

6F 

02 

STA 

$026F 

and  save  down 

90FE 

95 

07 

STA 

$07, X 

Give  sector  number  to  jobloop 

9100 

A9 

80 

LDA 

#$80 

Read  jobcode  for 

9102 

8D 

02 

02 

STA 

$0202 

sector  and  save 

9105 

85 

5F 

STA 

$5F 

as  current  jobcode 

91071 

58 

CLI 

Enable  bus/controller  interrupt 

9108 

A6 

F9 

LDX 

$F9 

Get  number  of  current  buffer  and 

910A 

A5 

5F 

LDA 

$5F 

give  current  jobcode 

910C 

95 

00 

STA 

$00, X 

to  job  loop 

910E 

20 

4B 

86 

JSR 

$864B 

Execute  job 

9111 

EO 

02 

CPX 

#$02 

Check  return  message  to  'OK' 

9113 

90 

03 

BCC 

$9118 

Job  run  error-free? 
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9115 

4C 

99 

91 

JMP 

$9199 

NO-Display  return  message 

91181 

78 

SEI 

Disable  bus /controller  interrupt 

9119 

AO 

00 

LDY 

#$00 

Buffer  pnter  to  1st  byte/sector 

911B 

Bl 

94 

LDA 

($94) ,Y 

Get  byte  from  buffer 

911D 

FO 

2F 

BEQ 

$914E 

Is  this  the  last  sector? 

911F 

A5 

37 

LDA 

$37 

NO-Get  bus  status  and 

9121 

29 

FE 

AND 

#$FE 

clear  flag  for  'last 

9123 

85 

37 

STA 

$37 

sector' 

9125 

20 

28 

92 

JSR 

$9228 

Give  last  'OK'message  by  1571  bus 

9128 

AO 

02 

LDY 

#$02 

Buffer  pointer  to  first  data  byte 

912A1 

Bl 

94 

LDA 

($94) ,Y 

Get  byte  from  buffer  and  prepare 

912C 

AA 

TAX 

for  output 

912D 

20 

28 

92 

JSR 

$9228 

Output  byte  over  1571  bus 

9130 

C8 

INY 

Turn  buffer  pointer  to  next  byte 

9131 

DO 

F7 

BNE 

$912A 

Entire  buffer  alredy  transferred? 

9133 

AE 

BO 

02 

LDX 

$02B0 

YES-Get  pointer  in  job  table 

9136 

Bl 

94 

LDA 

($94), Y 

Track  of  next  sector  from  buffer 

9138 

D5 

06 

CMP 

$06, X 

Compare  with  track  of  last  job 

913A 

FO 

03 

BEQ 

$913F 

Next  sector  to  same  track? 

913C 

AO 

80 

LDY 

#$80 

NO-Jobcode  for  'Read  sector' 

913E 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

913F1 

AO 

88 

LDY 

#$88 

Jobcode'Read  sector  of  sametrack' 

9141 

84 

5F 

STY 

$5F 

Set  jobcode  and  give 

9143 

95 

06 

STA 

$06, X 

track  number  to  job  loop 

9145 

AO 

01 

LDY 

#$01 

Pointer  to  number  of  next  sector 

9147 

Bl 

94 

LDA 

($94) ,Y 

Get  byte  from  linked  bytes  and 

9149 

95 

07 

STA 

$07, X 

give  to  job  loop 

914B 

4C 

07 

91 

JMP 

$9107 

Transfer  next  sector 

914E1 

A2 

IF 

LDX 

#$1F 

Give  return  message  for  'last 

9150 

20 

28 

92 

JSR 

$9228 

sector'  over  1571  bus 

9153 

A9 

01 

LDA 

#$01 

Test  flag  for  'only  one  sector' 

9155 

24 

37 

BIT 

$37 

in  bus  status  byte 

9157 

FO 

IE 

BEQ 

$9177 

Does  program  have  only  one  block? 

9159 

A8 

TAY 

YES— Set  buffer  pointer 

915A 

Bl 

94 

LDA 

($94) ,Y 

Get  #  of  data  bytes  applicable  to 

915C 

38 

SEC 

sector  and  remove 

915D 

E9 

03 

SBC 

#$03 

bytes  for  starting  address  & 

915F 

85 

46 

STA 

$46 

linking  bytes 

9161 

AA 

TAX 

Give  #  of  bytes  still  to  be 

9162 

20 

28 

92 

JSR 

$9228 

sent  over  1571  bus 

9165 

C8 

INY 

Buffer  pointer  to  prg  start  addr 

9166 

Bl 

94 

LDA 

($94) ,Y 

Get  lo-byte  of  start  address  £ 

9168 

AA 

TAX 

set  as  character  to  be  output 

9169 

20 

28 

92 

JSR 

$9228 

Send  byte  over  1571  bus 

91 6C 

C8 

INY 

Turn  buffer  pointer  to  hi-byte  & 

91 6D 

Bl 

94 

LDA 

($94) ,Y 

get  byte  from  buffer 

91 6F 

AA 

TAX 

Give  rest  of  starting  address 
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9170 

20 

28 

92 

JSR 

$9228 

9173 

AO 

04 

LDY 

#$04 

9175 

DO 

OD 

BNE 

$9184 

91771 

AO 

01 

LDY 

#$01 

9179 

Bl 

94 

LDA 

($94) , Y 

917B 

AA 

TAX 

917C 

CA 

DEX 

917D 

86 

46 

STX 

$46 

917F 

20 

28 

92 

JSR 

$9228 

9182 

AO 

02 

LDY 

#$02 

91842 

Bl 

94 

LDA 

($94) ,Y 

9186 

AA 

TAX 

9187 

20 

28 

92 

JSR 

$9228 

918A 

C8 

INY 

918B 

C6 

46 

DEC 

$46 

918D 

DO 

F5 

BNE 

$9184 

918F 

A9 

00 

LDA 

#$00 

9191 

85 

83 

STA 

$83 

9193 

20 

CO 

DA 

JSR 

$DACO 

9196 

4C 

94 

CI 

JMP 

$C194 

[9115/A9CF] 

Display  error  message 


9199 

78 

SEI 

91 9A 

86 

46 

STX 

$46 

91 9C 

20 

28 

92 

JSR 

$9228 

91 9F 

A9 

00 

LDA 

#$00 

91A1 

85 

83 

STA 

$83 

91A3 

20 

CO 

DA 

JSR 

$DAC0 

91A6 

A6 

F9 

LDX 

$F9 

91A8 

A5 

46 

LDA 

$46 

91AA 

4C 

OA 

E6 

JMP 

$E60A 

[90E9] 

Output  Load 

error 

91AD 

78 

SEI 

91AE 

86 

46 

STX 

$46 

91B0 

A2 

02 

LDX 

#$02 

91B2 

20 

28 

92 

JSR 

$9228 

91B5 

A9 

00 

LDA 

#$00 

91B7 

85 

83 

STA 

$83 

91B9 

20 

CO 

DA 

JSR 

$DAC0 

over  1571  bus 

Set  buffer  pntr  to  begin,  of  data 
Jump  to  $9184 

Pointer  to  data  bytes  yet  allowed 

Get  #  of  data  bytes  from  buffer 

and  save  number 

Send  number  of  data  bytes 

still  ahead  over 

1571  bus 

Pointer  to  start  of  data  range 
Get  byte  from  buffer  and  prepare 
for  output 

Send  byte  over  1571  bus 

Turn  buffer  pointer  to  next  byte 

#  of  bytes  yet  to  be  transferred 

All  of  them  sent? 

YES— Set  secondary  address 

for  Load 

Close  file 

Prepare  return  message 


Disable  bus/controller  interrupt 
Send  error  number  over 
1571  bus 

set  secondary  address  for 
Load 

Close  file 

Number  of  current  buffer 
Error  number 

Prepare  text  version  of  message 


Disable  bus/controller  interrupt 

Save  error  number 

Error  number  for  'File  Not  Found' 

over  1571  bus 

Set  secondary  address 

for  load 

Close  file 
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91BC 

A5 

46 

LDA 

$46 

Reo^flt*    pttcit   nnmVwr   ^inH  rhprV 

91BE 

C9 

02 

CMP 

#$02 

against  'File  Not  Found' 

91C0 

F0 

03 

BEQ 

$91C5 

Identical? 

91C2 

A9 

74 

LDA 

#$74 

Vi\J        U 1 I IXJ C  J-     i.  \J  J.         L/l  X  V  C    J.1I  {J  L*  I\caUy 

91C4 

2C 

A9 

62 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

91C51 

A9 

62 

LDA 

#$62 

Number  for  'File  Not  Found' 

91C7 

4C 

C8 

CI 

JMP 

$C1C8 

Prepare  text  of  message 

[9095] 

Set  up  channel 

and  buffer  for  Fast  Load 

91CA 

A9 

00 

LDA 

#$00 

Set  secondary  address  for  Load 

91CC 

85 

83 

STA 

$83 

and  set 

91CE 

A9 

01 

LDA 

#$01 

number  of  buffer  to  be  opened 

91D0 

20 

E2 

Dl 

JSR 

$D1E2 

Open  buffer  and  channel 

91D3 

AA 

TAX 

Get  #  of  appropriate  buffer  and 

91D4 

BD 

EO 

FE 

LDA 

$FEE0,X 

take  high-byte  of  buffer  address 

91D7 

85 

95 

STA 

$95 

in  buffer  pointer 

91D9 

60 

RTS 

Return  from  this  subroutine 

[90EF] 

Find  out 

track 

&  sector  numbers 

from  job  table 

91DA 

A5 

95 

LDA 

$95 

Get  high-byte  of  buffer  pointer 

91DC 

38 

SEC 

£  compute  logical  buffer  #  from 

91DD 

E9 

03 

SBC 

#$03 

physical  address;  set 

91DF 

85 

F9 

STA 

$F9 

as  current  buffer  number 

91E1 

OA 

ASL 

A 

Double  number  (for  2— byte  table) 

91E2 

8D 

BO 

02 

STA 

$02BO 

and  save  it 

91E5 

A9 

00 

LDA 

#$00 

Reset  low— byte  of  buffer  pointer 

91E7 

85 

94 

STA 

$94 

to  buffer  start 

91E9 

60 

RTS 

Return  from  this  subroutine 

[9083] 

Shift 

filename 

to  beginning  of 

input  buffer 

91EA 

AO 

03 

LDY 

#$03 

Pointer  to  beginning  of  filename 

91EC 

AD 

74 

02 

LDA 

$0274 

Get  length  of  command  string  & 

91EF 

38 

SEC 

take  up  character 

91F0 

E9 

03 

SBC 

#$03 

for  'U0'  command 

91F2 

8D 

74 

02 

STA 

$0274 

Save  length  of  filename 

91F5 

AD 

04 

02 

LDA 

$0204 

Check  for  colon  " : "  as  second 

91F8 

C9 

3A 

CMP 

#$3A 

character  of  filename 

91FA 

DO 

OE 

BNE 

$92  OA 

Drive  identifier  onhand? 

91FC 

AD 

03 

02 

LDA 

$0203 

YES— Get  and  save  drive 

91FF 

AA 

TAX 

number 

9200 

29 

30 

AND 

#$30 

Check  for  number  in  ASCII- 

9202 

C9 

30 

CMP 

#$30 

numbers 

9204 

DO 

04 

BNE 

$92  OA 

Is  there  a  number? 

9206 

EO 

31 

CPX 

#$31 

YES-Compare  with  '1' 
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C  U 

1  c 
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$9215 
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A9 
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u  u 
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t  na 
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op 
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Turn  buff  at  oointer  to 

XL 

1LO 

INX 

r\ q  vf     r*V>  a        f^t"  ay 
IicaL.  uIlalavLcJ. 

921F 

EC 

74 

02 

CPX 

$0274 

Compare  with  end  of  filename 

9222 

DO 

F3 

BNE 

$9217 

Entire  name  already  shifted? 

9224 

18 

CLC 

YES— Flag  for  'Name  error-free' 

9225 

24 

.byte  $24 

Jump  to  next  byte  (bit  command) 

92261 

38 

SEC 

Flag  for  bad  drive  declaration 

9227 

60 

RTS 

Return  from  this  subroutine 

[9125/912D/9150/9162/9169/9170/917F/9187/919C/91B2/A9EA] 

Byte  given  over 

1571 

bus  for 

Fast  Load 

9228 

AD 

00 

18 

LDA 

$1800 

Get  bus  control  register 

922B 

CD 

00 

18 

CMP 

$1800 

and  wait  for  constant  status 

922E 

DO 

F8 

BNE 

$9228 

No  changes? 

9230 

29 

FF 

AND 

#$FF 

YES-Set  processor  flag  (N/Z) 

9232 

30 

17 

BMI 

$924B 

Is  ATN  input  set? 

9234 

45 

37 

EOR 

$37 

NO-Get  bus  status  flag  and  check 

9236 

29 

04 

AND 

#$04 

with  anticipated  Clock  status 

9238 

F0 

EE 

BEQ 

$9228 

Clock  changed  since  last  time? 

923A 

8E 

OC 

40 

STX 

$400C 

YES— Write  byte  in  output  register 

923D 

A5 

37 

LDA 

$37 

Get  bus  status  and 

923F 

49 

04 

EOR 

#$04 

set  flag  for  'Clock  input  status' 

9241 

85 

37 

STA 

$37 

to  next  value 

9243 

A9 

08 

LDA 

#$08 

Test  flag  for  'Output  register 

92451 

2C 

0D 

40 

BIT 

$400D 

empty ' 

9248 

F0 

FB 

BEQ 

$9245 

Is  byte  transferred? 

924A 

60 

RTS 

YES— Return  from  this  subroutine 

924B1 

4C 

B3 

A7 

JMP 

$A7B3 

ATN  command  working 

[8FB0/BF69] 

Compute  ROM  checksum  and  test  ROM 


924E 

08 

PHP 

Retain  processor  status 

924F 

78 

SEI 

Disable  bus/controller  interrupt 

9250 

A2 

00 

LDX 

#$00 

Clear  result  register 

9252 

86 

00 

STX 

$00 

for  checksum  to 

9254 

86 

01 

STX 

$01 

be  computed 

9256 

A9 

03 

LDA 

#$03 

Set  starting  address  of 

9258 

85 

75 

STA 

$75 

ROM  (low-byte) 
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92  5 A 

A8 

TAY 

Set  pointer 

925B 

A9 

80 

LDA 

#$80 

Determine  high-byte  of 

925D 

85 

76 

STA 

$76 

ROM  address 

925F2 

Bl 

75 

LDA 

($75) ,Y 

Get  byte  from  ROM 

92  61 

85 

02 

STA 

$02 

and  save  it 

92  63 

A2 

08 

LDX 

#$08 

Number  of  bits  per  byte 

92651 

A5 

02 

LDA 

$02 

Get  ROM  byte  and  isolate 

9267 

29 

01 

AND 

#$01 

a  bit 

9269 

85 

03 

STA 

$03 

Take  bit  into  temporary  storage 

92  6B 

A5 

01 

LDA 

$01 

Add  bit  15  of 

92  6D 

10 

02 

BPL 

$9271 

checksum  register 

92  6F 

E6 

03 

INC 

$03 

to  it 

92711 

6A 

ROR 

A 

Add  bit  11 

9272 

90 

02 

BCC 

$9276 

of  checksum  register 

9274 

E6 

03 

INC 

$03 

to  it 

92761 

6A 

ROR 

A 

Bit  8  of  16-bit 

9277 

6A 

ROR 

A 

checksum  register 

9278 

6A 

ROR 

A 

in  $00  and  $01; 

9279 

90 

02 

BCC 

$927D 

compute  for 

927B 

E6 

03 

INC 

$03 

temporary  storage 

927D1 

A5 

00 

LDA 

$00 

Get  bit  6 

927F 

2A 

ROL 

A 

of  checksum  register 

9280 

2A 

ROL 

A 

and  add 

9281 

90 

02 

BCC 

$9285 

to  temporary 

9283 

E6 

03 

INC 

$03 

storage 

92851 

66 

03 

ROR 

$03 

Move  checksum  registers  one  bit 

9287 

26 

00 

ROL 

$00 

to  the  left;  transfer  bit  0  into 

9289 

26 

01 

ROL 

$01 

free  area 

92  8B 

66 

02 

ROR 

$02 

Go  to  next  bit  of  ROM  byte 

928D 

CA 

DEX 

Number  of  bits  per  byte 

92  8E 

DO 

D5 

BNE 

$9265 

Entire  byte  handled? 

9290 

E6 

75 

INC 

$75 

YES— Turn  pointer  to  current 

9292 

DO 

CB 

BNE 

$925F 

byte  in  ROM 

9294 

E6 

76 

INC 

$76 

to  next  position 

9296 

DO 

C7 

BNE 

$925F 

Reached  end  address  $FFFF? 

9298 

88 

DEY 

YES— Set  pointer 

9299 

88 

DEY 

back  to 

92  9A 

88 

DEY 

zero 

92  9B 

A5 

00 

LDA 

$00 

Test  first  byte  computed  against 

92  9D 

CD 

00 

80 

CMP 

$8000 

correct  checksum 

92A0 

DO 

11 

BNE 

$92B3 

Error? 

92A2 

A5 

01 

LDA 

$01 

NO-Test  2nd  byte  computed  against 

92A4 

CD 

01 

80 

CMP 

$8001 

correct  checksum 

92A7 

DO 

OA 

BNE 

$92B3 

Checksum  error? 

92A9 

84 

00 

STY 

$00 

NO-Clear  checksum  register 

92AB 

84 

01 

STY 

$01 

and  the 

92AD 

84 

02 

STY 

$02 

different  temporary  storage 
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92AF  84  03  STY  $03  areas 

92B1  28  PLP  Re-establish  processor  status 

92B2  60  RTS  Return  from  this  subroutine 

92B32  A2  03  LDX  #$03  Initialize  flag  for 

92B5  86  6F  STX  $6F  hardware  error 

92B7  4C  71  EA  JMP  $EA71  Show  hardware  error  (LED  blinks) 


[9E08/9E11/BF09] 
1571  jobloop 


92  BA 

BA 

TSX 

Save  current  stack 

92BB 

86 

49 

STX 

$49 

pointer 

92  BD 

2C 

04 

1C 

BIT 

$1C04 

Timer  re-set 

92C0 

AD 

OC 

1C 

LDA 

$1C0C 

CA2  output  'SOE' 

92C3 

09 

0E 

ORA 

#$0E 

(Serial  Output  Enable) 

92C5 

8D 

0C 

1C 

STA 

$1C0C 

set  to  high 

92C8 

AO 

05 

LDY 

#$05 

Number  of  buffers 

92CA1 

B9 

00 

00 

LDA 

$0000, Y 

Get  jobcode  of  buffer 

92CD 

30 

06 

BMI 

$92D5 

Is  jobcode  onhand? 

92CF 

88 

DEY 

NO— Test  next  buffer 

92D0 

10 

F8 

BPL 

$92CA 

All  buffers  tested  out? 

92D2 

4C 

CA 

99 

JMP 

$99CA 

YES— Execute  stepper  commands 

92D51 

C9 

88 

CMP 

#$88 

Jobcode' Read  sector  on  same  trak 

92D7 

DO 

03 

BNE 

$92DC 

Identical? 

92D9 

4C 

0D 

96 

JMP 

$960D 

YES— Read  sector  in  buffer 

92DC-1- 

C9 

DO 

CMP 

#$D0 

Jobcode  for  'Execute  program' 

92DE 

DO 

03 

BNE 

$92E3 

Identical? 

92E0 

4C 

A2 

93 

JMP 

$93A2 

YES— Start  program  in  buffer 

92E31 

29 

01 

AND 

#$01 

Get  number  of  desired  drive 

92E5 

F0 

07 

BEQ 

$92  EE 

Drive  0  chosen? 

92E7 

84 

3F 

STY 

$3F 

NO— Save  buffer  number 

92E9 

A9 

OF 

LDA 

#$0F 

Display 

92EB 

4C 

B5 

99 

JMP 

$99B5 

'Drive  not  Ready'  error  message 

92EE* 

AA 

TAX 

Save  drive  number  and  test 

92EF 

C5 

3E 

CMP 

$3E 

against  active  drive 

92F1 

F0 

08 

BEQ 

$92FB 

Identical? 

92  F3 

85 

3E 

STA 

$3E 

NO— Then  reset  current  drive 

92F5 

20 

7E 

F9 

JSR 

$F97E 

Switch  drive  number  on 

92F8 

4C 

CA 

99 

JMP 

$99CA 

Execute  stepper  command 

92FB1 

A5 

20 

LDA 

$20 

Get  drive  status 

92  FD 

30 

03 

BMI 

$9302 

Is  drive  ready? 

92FF 

OA 

ASL 

A 

YES— Test  stepper  motor  flag 

9300 

10 

03 

BPL 

$9305 

Is  head  still  moving? 

93021 

4C 

CA 

99 

JMP 

$99CA 

YES— Execute  stepper  function 

93051 

A9 

20 

LDA 

#$20 

Set  drive  status  flag  for 

9307 

85 

20 

STA 

$20 

'Motor  on/Drive  ready' 

9309 

AO 

05 

LDY 

#$05 

Number  of  buffers 

930B 

84 

3F 

STY 

$3F 

Choose  current  buffer 
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930D1 

20 

Dl 

93 

JSR 

$93D1 

Set  buffer  pointer  £  get  jobcode 

9310 

30 

1A 

BMI 

$932C 

Is  a  job  onhand? 

93122 

C6 

3F 

DEC 

$3F 

NO-Go  to  next  buffer 

9314 

10 

F7 

BPL 

$930D 

All  buffers  already  checked? 

9316 

A4 

41 

LDY 

$41 

Get  buffer  number  of  last  job 

9318 

20 

D3 

93 

JSR 

$93D3 

Set  buffer  pointer 

931B 

A5 

42 

LDA 

$42 

Save  #  of  track  to  be  controlled 

931D 

85 

4A 

STA 

$4A 

as  target  track 

931F 

06 

4A 

ASL 

$4A 

Compute  #  of  half-track  steps 

9321 

A9 

60 

LDA 

#$60 

Set  drive  status  flag  for 

9323 

85 

20 

STA 

$20 

'Stepper  on/Motor  on' 

9325 

Bl 

32 

LDA 

($32) ,Y 

Get  and  save  track  of 

9327 

85 

22 

STA 

$22 

job 

9329 

4C 

CA 

99 

JMP 

$99CA 

Steer  track 

932C1 

29 

01 

AND 

#$01 

Compare  number  of  chosen  drive 

932K 

C5 

3E 

CMP 

$3E 

with  current  drive  number 

9330 

DO 

EO 

BNE 

$9312 

Identical? 

9332 

A5 

22 

LDA 

$22 

Test  number  of  current  track 

9334 

FO 

32 

BEQ 

$9368 

Is  pointer  set? 

9336 

A5 

22 

LDA 

$22 

YES— Get  current  track  and  compare 

9338 

C9 

24 

CMP 

#$24 

with  maximum  tracks  +1  (36) 

93  3 A 

08 

PHP 

Save  result 

933B 

Bl 

32 

LDA 

($32) ,Y 

Compare  job  track  with  maximum 

933D 

C9 

24 

CMP 

#$24 

tracks  +  1 

933F 

6A 

ROR 

A 

Result  in  bit  7 

9340 

28 

PLP 

Previous  bit  in  carry 

9341 

29 

80 

AND 

#$80 

Isolate  last  test  result 

9343 

90 

OB 

BCC 

$9350 

Is  current  track  on  side  2? 

9345 

30 

11 

BMI 

$9358 

YES— Is  new  track  on  side  1? 

9347 

A5 

22 

LDA 

$22 

YES-Compute  number  of  current 

9349 

E9 

23 

SBC 

#$23 

track  on  side  1  and 

934B 

85 

22 

STA 

$22 

save  it 

934D 

4C 

58 

93 

JMP 

$9358 

Continue  working  with  track  # 

93501 

10 

06 

BPL 

$9358 

Is  new  track  on  side  2? 

9352 

A5 

22 

LDA 

$22 

YES-Calculate  current  track 

9354 

69 

23 

ADC 

#$23 

number  on  side  2; 

9356 

85 

22 

STA 

$22 

save  it 

9358J 

38 

SEC 

Figure  out  difference 

9359 

Bl 

32 

LDA 

($32) ,Y 

between  new  track 

935B 

E5 

22 

SBC 

$22 

and  current  track 

935D 

FO 

09 

BEQ 

$9368 

Head  already  set  to  desired  trak? 

935F 

85 

42 

STA 

$42 

Save  #  of  steps  to  be  moved 

9361 

A5 

3F 

LDA 

$3F 

Get  number  of  current  buffer 

9363 

85 

41 

STA 

$41 

and  save  it 

9365 

4C 

12 

93 

JMP 

$9312 

Work  on  next  job 

93682 

A2 

04 

LDX 

#$04 

No  function  [Error — see  7.1.5] 

93  6A 

Bl 

32 

LDA 

($32) ,Y 

Get  number  of  track 
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93  6C 

85 

40 

STA 

$40 

and  save  it 

936E 

C9 

24 

CMP 

#$24 

Compare  with  maximum  track  #  +1 

9370 

A8 

TAY 

and  save  result 

9371 

20 

F3 

93 

JSR 

$93F3 

Go  to  corresponding  side 

9374 

98 

TYA 

Repeat  track 

9375 

90 

02 

BCC 

$9379 

Track  on  side  2? 

9377 

E9 

23 

SBC 

#$23 

YES-Compute  absolute  track  of 

93791 

AA 

TAX 

that  side  and  save  it 

937A 

BD 

08 

94 

LDA 

$9408, X 

Calculate  bitrate  of  track  range 

937D 

85 

43 

STA 

$43 

and  set  it 

937F 

AD 

00 

1C 

LDA 

$1C00 

Get  drive  control  register 

9382 

29 

9F 

AND 

#$9F 

Re-set  bits  for  record  rate 

9384 

05 

43 

ORA 

$43 

and  set  into 

9386 

8D 

00 

1C 

STA 

$1C00 

control  register 

9389 

BD 

2B 

94 

LDA 

$942B,X 

Determine  #  of  sectors  per  track. 

938C 

85 

43 

STA 

$43 

and  store 

938E 

A5 

45 

LDA 

$45 

Get  command  bits  of  jobcode  and 

9390 

C9 

40 

CMP 

#$40 

test  for  'Bump' 

9392 

F0 

1C 

BEQ 

$93B0 

Should  head  be  set  to  track  0? 

9394 

C9 

60 

CMP 

#$60 

NO-Check  for  'Run  program' 

9396 

FO 

OA 

BEQ 

$93A2 

Should  buffer  program  be  started? 

9398 

C9 

70 

CMP 

#$70 

NO— Test  for  'Format' 

93  9A 

FO 

03 

BEQ 

$939F 

Should  diskette  be  formatted? 

93  9C 

4C 

4F 

94 

JMP 

$944F 

NO— Read  sector  header 

939F1 

4C 

29 

9B 

JMP 

$9B29 

Format  diskette 

[92E0/9396]     cf.  F36E 


Put  program 

in 

buffer 

■  into 

jobloop 

93A2 

A5 

3F 

LDA 

$3F 

Get  number  of  current 

93A4 

18 

CLC 

and 

93A5 

69 

03 

ADC 

#$03 

calculate  physical 

93A7 

85 

31 

STA 

$31 

buffer  address 

93A9 

A9 

00 

LDA 

#$00 

Set . low-byte  to 

93AB 

85 

30 

STA 

$30 

st art-of -buffer 

93AD 

6C 

30 

00 

JMP 

($0030)           Run  program 

Set  head  back  to 


93B0J 

93B2 

93B4 

93B7 

93B9 

93BC 

93BE 

93C0 

93C3 

93C5 


A9  60 
85  20 
AD  00  1C 

29  FC 

8D  00  1C 
A9  A4 
85  4A 
AD  Bl 

30  03 
A9  01 


01 


track  0  ('Bump') 

LDA  #$60 

STA  $20 

LDA  $1C00 

AND  #$FC 

STA  $1C00 

LDA  #$A4 

STA  $4A 

LDA  $01B1 

BMI  $93C8 

LDA  #$01 


[cf.  F37C] 
Set  drive  status  flag  for 
'Stepper  on/Motor  on' 
Get  control  register 
and  clear  stepper  control 
bits 

Set  number  of  tracks  (-36) 
the  head  is  capable  of  moving 
Get  flag  for  current  disk  side 
Is  side  1  chosen? 
YES-Set  first  track  number  (1) 
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93C7  2C 

93C81  A9  24 

93CA  85  22 

93CC  A9  01 

93CE  4C  B5  99 


.byte  $2C 
LDA  #$24 
STA  $22 
LDA  #$01 
JMP  $99B5 


Jump  to  next  2  bytes (bit  command) 
Save  first  track  of  side  2  (36) 
as  track  number 
Give  'OK' 
return  message 


[930D/94D3/9527/BF0F/93D3: 
Set  buffer  pointer  and  get 


9318]     cf.  F393 
jobcode  of  buffer 


93D1 

A4 

3F 

LDY 

$3F 

Current  buffer  number 

93D3 

B9 

00  00 

LDA 

$0000, Y 

Get  matching  jobcode  and 

93D6 

48 

PHA 

save  it 

93D7 

10 

14 

BPL 

$93ED 

Is  there  a  command  onhand? 

93D9 

29 

78 

AND 

#$78 

YES— Isolate  bits  3-6  and  save 

93DB 

85 

45 

STA 

$45 

as  significant  command  bits 

93DD 

98 

TYA 

Get  buffer  number  and 

93DE 

OA 

ASL 

A 

double  it 

93DF 

69 

06 

ADC 

#$06 

Set  pointer  to  table  of 

93E1 

85 

32 

STA 

$32 

track  and  sector  assignments 

93E3 

A9 

00 

LDA 

#$00 

to  the  job 

93E5 

85 

33 

STA 

$33 

($0006-$0011) 

93E7 

98 

TYA 

Get  buffer  number; 

93E8 

18 

CLC 

compute  physical 

93E9 

69 

03 

ADC 

#$03 

memory  address 

93EB 

85 

31 

STA 

$31 

from  that 

93ED1 

AO 

00 

LDY 

#$00 

Put  address  into 

93EF 

84 

30 

STY 

$30 

pointers  $30/$31 

93F1 

68 

PLA 

Repeat  jobcode 

93F2 

60 

RTS 

Return  from  this  subroutine 

[895C/937 
Activate 


1/9B41] 

read/write  head  on 


current  diskette  side 


93F3 

B0 

03 

BCS 

$93F8 

Is  side  2  chosen? 

93F5 

A9 

00 

LDA 

#$00 

NO-Control  buts  for  side  1 

93F7 

2C 

.byte  $2C 

Jump  to  next  2  bytes 

93F8 

A9 

84 

LDA 

#$84 

Control  bits/side  2  (%10000100) 

93FA 

8D 

Bl 

01 

STA 

$01B1 

Save  bits 

93FD 

AD 

OF 

18 

LDA 

$180F 

Get  control  register  A 

9400 

29 

FB 

AND 

#$FB 

and  re-set 

9402 

0D 

Bl 

01 

ORA 

$01B1 

bits 

9405 

8D 

OF 

18 

STA 

$180F 

Write  value  into  control  register 

9408 

60 

RTS 

Return  from  this  subroutine 
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[937A]     Control  bits  for  recoding  rate  of  every  track 


Bit  6  Bit  5  Track  range    recording  rate 


0 

0 

31 

-  35 

31250 

Bytes/sec 

0 

1 

25 

-  30 

33333 

Bytes/sec 

1 

0 

18 

-  24 

35714 

Bytes/sec 

1 

1 

1 

-  17 

38461 

Bytes/sec 

9409  60  60  60  60  60  60  60  60  60  60  60  60  60  60  60  60 
9419  60  40  40  40  40  40  40  40  20  20  20  20  20  20  00  00 
9429  00  00  00 


[A82C/A8C2]    Number  of  sectors  per  track  in  Commodore  format 

942C  15  15  15  15  15  15  15  15  15  15  15  15  15  15  15  15 

943C  15  13  13  13  13  13  13  13  12  12  12  12  12  12  11  11 
944C  11  11  11 


[939C/97F6] 

Look 

for 

a  sector  header 

944F 

A9 

5A 

LDA 

#$5A 

Determine  number  of 

9451 

85 

4B 

STA 

$4B 

read  attempts  (90) 

94531 

20 

54 

97 

JSR 

$9754 

Wait  for  next  sync-marking 

94561 

2C 

OF 

18 

BIT 

$180F 

Test  'Byte  Ready*  signal 

9459 

30 

FB 

BMI 

$9456 

Is  next  byte  ready? 

945B 

AD 

01 

1C 

LDA 

$1C01 

YES-read  GCR-byte  from  diskette 

945E 

C9 

52 

CMP 

#$52 

Compare  with  'Header'  identifier 

9460 

DO 

3E 

BNE 

$94A0 

Is  it  a  sector  header? 

9462 

99 

24 

00 

STA 

$0024, Y 

YES-Byte  in  header  buffer 

94  65 

C8 

INY 

Set  buffer  pointer  to  next  byte 

94  6  62 

2C 

OF 

18 

BIT 

$180F 

Test  'Byte  Ready'  signal 

9469 

30 

FB 

BMI 

$9466 

Is  next  byte  ready? 

94  6B 

AD 

01 

1C 

LDA 

$1C01 

YES-Read  GCR-byte  from  diskette 

94  6E 

99 

24 

00 

STA 

$0024, Y 

Byte  in  header  buffer 

9471 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9472 

CO 

08 

CPY 

#$08 

Number  of  header  bytes 

9474 

DO 

F0 

BNE 

$9466 

entire  header  read? 

9476 

20 

2F 

95 

JSR 

$952F 

YES-Blockheader  /  GCR  to  binary 

9479 

AO 

04 

LDY 

#$04 

Number  of  relevant  header  bytes 

947B 

A9 

00 

LDA 

#$00 

Compute  checksum  of  bytes: 

947D1 

59 

16 

00 

EOR 

$0016, Y 

Compute  header  byte 

9480 

88 

DEY 

Pointer  to  next  byte 

9481 

10 

FA 

BPL 

$947D 

All  bytes  figured  out? 

9483 

C9 

00 

CMP 

#$00 

Compare  with  'Correct'  value 

9485 

DO 

30 

BNE 

$94B7 

Error-free  checksum? 

9487 

A5 

18 

LDA 

$18 

YES-Set  track  number  from  header 

9489 

85 

22 

STA 

$22 

as  current  track  number 

94  8B 

A5 

45 

LDA 

$45 

Get  jobcode  command  bits  &  check 
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948D 

C9 

30 

CMP 

#$30 

code  for  'Look  for  sector' 

948F 

FO 

18 

BEQ 

$94A9 

Should  sectorheader  be  sought? 

9491 

A5 

12 

LDA 

$12 

NO-Compare  ID  from  sectorheader 

94  93 

C5 

16 

CMP 

$16 

with  current  ID 

9495 

DO 

ID 

BNE 

$94B4 

Identical? 

9497 

A5 

13 

LDA 

$13 

Test  next  ID 

9499 

C5 

17 

CMP 

$17 

character 

94  9B 

DO 

17 

BNE 

$94B4 

Run  into  a  disk  exchange? 

94  9D 

4C 

BC 

94 

JMP 

$94BC 

NO-Get  next  job 

94A01 

C6 

4B 

DEC 

$4B 

Number  of  read  attempts 

94A2 

DO 

AF 

BNE 

$9453 

Still  need  to  do  search? 

94A4 

A9 

02 

LDA 

#$02 

NO-' Header  Not  Found'  error  # 

94A6 

20 

B5 

99 

JSR 

$99B5 

Output  error  message 

94A91 

A5 

16 

LDA 

$16 

Take  current  ID 

94AB 

85 

12 

STA 

$12 

from  header  (1st  character) 

94AD 

A5 

17 

LDA 

$17 

Take  current  ID 

94AF 

85 

13 

STA 

$13 

from  header  (2nd  character) 

94B1 

A9 

01 

LDA 

#$01 

Number  for  *Ok'  message 

94B3 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

94B42 

A9 

OB 

LDA 

#$0B 

'ID  Mismatch'  error  number 

94B6 

2C 

.byte  $2C 

Jump  to  next  2  bytes (bit  command) 

94B71 

A9 

09 

LDA 

#$09 

'Read  Error  (27)  '  error  number 

94B9 

4C 

B5 

99 

JMP 

$99B5 

Give  return  message 

[949D]     cf.  F423 

Get  next  job  (Sector  optimizing) 

Optimum  is  a  state  of  >  6  (read)   or  9-12  sectors  (write) 


94  BC 

A9 

7F 

LDA 

#$7F 

Initialize  pointer  for  difference 

94  BE 

85 

4C 

STA 

$4C 

to  next  job 

94C0 

A5 

19 

LDA 

$19 

Compare  sector  number 

94C2 

18 

CLC 

from  blockheader 

94C3 

69 

02 

ADC 

#$02 

with  maximum 

94C5 

C5 

43 

CMP 

$43 

sector  number 

94C7 

90 

02 

BCC 

$94CB 

Is  number  in  allowable  range? 

94C9 

E5 

43 

SBC 

$43 

NO— Remove  max.  number  and 

94CB1 

85 

4D 

STA 

$4D 

save  new  sector  number 

94CD 

A2 

05 

LDX 

#$05 

Set  buffer  5 

94CF 

86 

3F 

STX 

$3F 

as  current  buffer 

94D1 

A2 

FF 

LDX 

#$FF 

Buffer  pointer  value 

94D31 

20 

Dl  93 

JSR 

$93D1 

Set  buffer  pointer  &  get  jobcode 

94D6 

10 

43 

BPL 

$951B 

Is  a  jobcode  onhand? 

94D8 

29 

01 

AND 

#$01 

YES-Determine  corresponding  drive 

94DA 

C5 

3E 

CMP 

$3E 

and  compare  with  current  drive 

94DC 

DO 

3D 

BNE 

$951B 

Identical? 

94DE 

AO 

00 

LDY 

#$00 

YES-Pntr  to  params  from  bufferO 

94E0 

Bl 

32 

LDA 

($32) ,Y 

Get  job  track  for  buffer  0 

94E2 

C5 

40 

CMP 

$40 

Compare  with  last  track 
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94E4 

DO 

9  yoiD 

Identical? 

94F6 

nj 

t  na 

JjJJA 

93o 

YES— Get  command  bits  of  jobcode  & 

94E8 

C9 

60 

CMP 

IrvvU 

test  for  'Execute  program1  code 

94EA 

F0 

OC 

identical? 

94EC 

AO 

01 

U  X 

t  nv 

NO— Pntr  to  params  from  bufferO 

94EE 

38 

SEC 

Get  sector  number  of  job  for 

94EF 

Bl 

t  na 

for  buffer  1 

94F1 

E5 

4D 

SBC 

Test  for  optimal  sectors  computed 

94F3 

10 

03 

^  Q4TTQ 

Is  new  sector  number  smaller? 

94F5 

18 

CT.P 

NO— Calculate  number  of  sectors  up 

94F6 

65 

$  A  "5 
9^0 

to  this  sector  and  compare 

94F8^ 

with  last  difference 

94  FA 

RO 

1  F 

9  yoio 

Is  new  value  smaller  or  greater? 

sir  L 

"D  U  7\ 

YES— Save  sector  difference 

94FD 

A5 

45 

t  na 

930 

Check  command  bits  of  jobcode 

94FF 

F0 

x  j 

9  jOIo 

Should  sector  be  read? 

9501 

DO 

NO— Get  difference  again  and 

9502 

OQ 

&<n  q 

compare  with  9 

:?  J  U  H 

1  c 
10 

DLL 

9  yoiB 

Is  value  smaller? 

9506 

C9 

OC 

PMP 

#snp 

NO — Compare  with  1 3 

9508 

B0 

11 

BCS 

9  J.D 

Is  difference  less  than  13? 

950A^ 

85 

4C 

9  *JL 

YES— Save  new  sector  difference 

950C 

A5 

3F 

T.nA 

9  or 

Get  number  of  current 

950E 

AA 

TAY 
InA 

buffer  and 

950F 

18 

PT  P 

from  it  compute 

QSI  0 

D  J 

UJ 

a  no 

A  c  rt  "3 
ff  9U0 

the  appropriate  physical 

9512 

85 

O  X 

o  X/i 

90I 

memory  address 

9514 

no 

9  yoitj 

Jump  to  $951B 

95161 

68 

pt  a 

Repeat  sector  difference  & 

9517 

C9 

06 

PMP 

f  vUO 

compare  with  6 

9519 

90 

EF 

BCC 

Is  difference  less? 

951B7 

C6 

3F 

DEC 

9  or 

NO— Turn  pointer  to  next  buffer 

951D 

10 

B4 

BPL 

$94D3 

all      Kll  f  f  ava     4-  _  _  4-  _  J  0 

aii  Duiiers  tested; 

951F 

8A 

TXA 

itb— isurrer  numtier  or  next  30b 

9520 

10 

03 

BPL 

$9525 

Optimal  job  found? 

9522 

4C 

CA 

99 

JMP 

$99CA 

execute  stepper  commands 

95251 

86 

3F 

STX 

$3F 

Save  number  of  current  buffer 

9527 

20 

Dl 

93 

JSR 

$93D1 

Set  buffer  pointer  &  get  jobcode 

952A 

A5 

45 

LDA 

$45 

Determine  command  bits  of  jobcode 

952C 

4C 

06 

96 

JMP 

$9606 

Execute  read/write  jobs 
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[9476]     cf.  F497 

Convert  sector  header  from  GCR  to  binary 


952F 

A5 

30 

LDA 

KcLain   low  oyte  oi   uul  j-tsiiL.  uui  ici 

A  O 

48 

null 

friA 

poinuci 

9532 

AO 

jl 

t  r\7i 
LDA 

ft*ai 
5ol 

D -.+-  a  4  n   v.  i  Mi*itf  «   /-> "F   nirrfint"    Vyii  f  "F^t 
Rctalll   in  oy L. oi    uuiiciiL  wuiici 

9534 

48 

PHA 

pointer 

9535 

A9 

24 

LDA 

#524 

oGt  ourrer  pointers  90U/ 9J1 

9537 

85 

30 

STA 

$30 

to  start  or  ouner 

9539 

A9 

00 

LDA 

JL  £  f\  f\ 

#500 

for  the  current 

953B 

85 

31 

STA 

$31 

sector  header  s 

953D 

A9 

00 

LDA 

JL  £:  r\  rt 

Reset  buffer 

953F 

85 

34 

STA 

$34 

pointer 

9541 

20 

D9  98 

JSR 

598D9 

COnVrt    O    bL-KDyLGS    ->fl    Oinaiy  Oyl-tsia 

9544 

A5 

55 

LDA 

ft  c  c 
555 

Caei-  lirst  convertea  oyte  ano.  save 

9546 

85 

18 

STA 

$18 

as  track  number  of  header 

954  8 

A5 

54 

LDA 

ft  C  /I 

554 

bet    SeCOnQ    COnVcI  Leu   oy  ic    tt    0  a  v  c: 

954A 

85 

19 

STA 

ft  i  n 

519 

as  sector  number 

954C 

A5 

53 

LDA 

ft  c  "a 
553 

iaet  tnira  convertea.  oyte  ano-  £>t;u 

nc  /In 

934L 

OR 

1A 

oXA 

ft.1  & 
9 1A 

as    HcaUcL    t  Jlct>Ao  uiu 

o  rt 
Z\J 

TOD 
uoK 

ft.  QQnQ 

rnnvrt   ^  rCpPYwt*^**  >4  binarv  bvtes 

9553 

A5 

52 

LDA 

ft  c  o 
552 

oct   111st   con  v xsl  Leu  uy  l. ts 

9555 

85 

17 

STA 

$17 

as  second  ID  character 

9557 

A5 

53 

LDA 

$53 

Set  second  converted  byte  as 

9559 

85 

16 

STA 

$16 

first  ID  character 

yjju 

OO 

PLA 

Get  original  values  of 

955C 

85 

31 

STA 

$31 

buffer  pointers  $30/$31 

955E 

68 

PLA 

and 

955F 

85 

30 

STA 

$30 

set 

9561 

60 

RTS 

Return  from  this  subroutine 

9562 

FF 

Unused 

95FF 

.  FF 

ROM  area 
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[960D/98A6]     cf.  F50A 

Look  for  data  sector  and  set  head  to  start-of-data 

9600     20  OF  97      JSR  $970F  Look  for  sector  header 

9603     4C  54  97      JMP  $9754  Wait  for  next  Sync-marking 


[952C]     cf.  F4CA 

Read  Commodore  sectors  when  jobcode  =  $80   (command  bits  $00) 
9606    C9  00           CMP  #$00  Test  for  'Read  sector'  jobcode 

9608    F0  03  BEQ  $960D  Identical? 

960A     4C  6E  97       JMP  $976E  NO-Continue  jobcode  test 


[92D9/9608] 

Read 

sector 

960D 

20 

00 

yo 

JSR 

$9600 

9610^ 

2C 

1  o 

BIT 

$180F 

9613 

30 

FB 

T3MT 

9615 

AD 

01 

±c 

LDA 

$1C01 

9618 

AA 

TAX 

9619 

BD 

0D 

AO 

LDA 

$A00D 

961C 

85 

52 

STA 

$52 

961E 

8A 

TXA 

961F 

29 

07 

AND 

#$07 

9621 

85 

53 

STA 

$53 

96231 

2C 

OF 

18 

BIT 

$180F 

9626 

30 

FB 

BMI 

$9623 

9628 

AD 

01 

1C 

LDA 

$1C01 

962B 

85 

54 

STA 

$54 

962D 

29 

CO 

AND 

#$co 

962F 

05 

53 

ORA 

$53 

9631 

AA 

TAX 

9632 

BD 

0D 

9F 

LDA 

$9F0D 

9635 

05 

52 

ORA 

$52 

9637 

48 

PHA 

9638 

4C 

67 

96 

JMP 

$9667 

Look  for  data  block 
Wait  for  'Byte  ready' 
signal 

Read  byte  from  diskette 
and  save  it 

Get  binary  equivalent  and 
save  it 

Repeat  original  byte  and 
expand  first  GCR  part 
Save  byte 

wait  for  'Byte  ready' 
signal 

Read  byte  from  diskette 
and  save  it 

Get  last  2  bits  of  2nd  GCR-byte 
and  add  in  first  3  bits 
(1st  part : bitsO-2 ; 2ndprt : bit s6-7 ) 
Get  binary  equivalent,  OR  with 
previous  half-byte  of  1st  byte 
Save  byte  as  data  blok  identifier 
Read  data  part 


[963E/96D4] 

Read  GCR-bytes  from  diskette 


963B 

2C 

OF 

18 

BIT 

$180F 

963E 

30 

FB 

BMI 

$963B 

9640 

AD 

01 

1C 

LDA 

$1C01 

9643 

AA 

TAX 

9644 

BD 

0D 

AO 

LDA 

$A00D,X 

9647 

85 

52 

STA 

$52 

9649 

8A 

TXA 

964A 

29 

07 

AND 

#$07 

964C 

85 

53 

STA 

$53 

put  into  buffer  as  binary  bytes 
Wait  for  'Byte  ready' 
signal 

Read  byte  from  diskette  and 
save  it 

Determine  binary  equivalent  and 

store  away  temporarily 

Repeat  original  data  byte  spread 

out  first  GCR-byte 

Save  part  of  2nd  GCR-byte 


ROM  -66 


Abacus  Software  1571  Internals 


964EX 

2C  OF  18 

BIT  $180F 

Wait  for  'Byte  ready1 

9651 

30  FB 

BMI  $964E 

signal 

9653 

AD  01  : 

LC 

LDA  $1C01 

Read  byte  from  diskette 

9656 

85  54 

STA  $54 

and  save  it 

9658 

29  CO 

AND  #$CO 

uet  last  pari,  ol  ziiu  ijv^r\  uyuc 

965A 

05  53 

ORA  $53 

ana  comoine  witn  ist  part. 

965C 

AA 

TAX 

\ istpar t  i oits  u—«t/ ^nupiL  •on-so  w 

965D 

BD  OD 

9F 

LDA  $9F0D,X 

bet  cor r espuiitu-iiy  iiaxi  « 

9660 

05  52 

ORA  $52 

~  /-\yviV>  -1  n  a    r"NV  «~»^  r  'I  Aiie    Vial  'F™  "hvt"  ^ 

conujinc  prcvxuus  iictj. j.  *jy ~ 

9662 

91  30 

era    /  ft  v 

Wr"1  i-o   hi  narv  bvl~P   to  buffer 

9664 

C8 

INY 

turn  oil r re r  pointci   lu  next  uy 

9665 

FO  70 

BEQ  5  9  6D  / 

Q  j-»        Vt     —3     nn^_  /n  f  — Vm  if  for") 

9667^ 

A5  54 

xio  n<=>t-  novt-  nr*P— hvtp  £  determine 

9669 

AA 

TAX 

upper  nail  joy tc  u j. 

966A 

BD  OD 

Al 

t  fsa    6  Tt  i  rtrv  V 
LUA  ?A1UL/,A 

equivalent    u±iiaL  y    *-»jr  iCf 

966D 

85  52 

STA  $52 

s  a ve  it 

966F 

8A 

TXA 

Dnrv^af     Avi  /Yi  na  1      f^f*T3  — h\/t"  O     anH     f  Cl  Y*TTI 

Kepeat   original  tz^n.  wy tc   ant*  ivnu 

9670 

29  01 

AND  #$01 

first  part  or  next,  t>t.r\  Dyt.es, 

9672 

85  54 

STA  $54 

save  it 

96741 

2C  OF 

18 

BIT  $180F 

Wait  for  1  Byte  ready 1 

9677 

30  FB 

BMI  $9674 

signal 

9679 

AD  01 

1C 

LDA  51C01 

Keao  Dy te  rrom  uissclic 

967C 

85  55 

STA  $55 

and  save  it 

967E 

29  FO 

AND  #$F0 

Determine  ^na  part  or  ijt-K-oyte 

9680 

05  54 

ORA  $54 

ana  connect  witn  ist  patt 

9682 

AA 

TAX 

/  1  e+-            T-t"  •  V»l  t*  fl  •     9nH    •OflT't"  •  bit  S4  —  7  ) 

\  ±  st>   par  t  •uxtUr    ^  ntx  pai.  <-  •  ^  j- 1-  -j  -3 

9683 

BD  OF 

9F 

T  HI     ft  QTrtTT  Y 

(^ot*   r»nTT"^<;r>ond.i_ncr  half —  bvte  and 

9686 

05  52 

ORA  I?o<> 

LOLIu    IleAL    Uliiaty     u y 

9688 

91  30 

STA    (§oU) / i 

HJtltG    Uy  tc     XIIt*J  uuiici 

968A 

C8 

INY 

Tn-r-rt    V\n  t7 for   nn  i       or   i~ rt    npxt  bvte 

968B 

A5  55 

t  r\n  tec 
LDA  poo 

Caf  nn    f  i  ret"     OPlTt"  of 

968D 

29  OF 

AND  #$0F 

next  «t.i\"JDyte  an ti 

968F 

85  55 

STA  $55 

save  it 

96911 

2C  OF 

18 

BIT  $180F 

Walt   ror     oyte  tcauy 

9694 

30  FB 

BMI  $9691 

signal 

9696 

AD  01 

1C 

LDA  $1C01 

Keao  oy te  rrom  aisnettc 

9699 

85  3A 

STA  $3A 

and  save  it 

969B 

29  80 

AND  #$80 

oet    second  par t   ul    o^r\   uy »uw 

969D 

05  55 

ORA  $55 

combine  witn  rirst  part 

969F 

AA 

TAX 

/ 1  ct-  nari-  »bii-s  0—3:  2nd  cart : bit 7 ) 

96A0 

BD  ID 

9F 

LDA  $9F1D,X 

Determine  S  temporarily  store  1st 

96A3 

85  52 

STA  $52 

half-byte  of  next  binary  value 

96A5 

A5  3A 

LDA  $3A 

Repeat  original  GCR-value  and 

96A7 

AA 

TAX 

get  second  half-byte 

96A8 

BD  OD 

A2 

LDA  $A20D/X 

of  equivalent  binary  byte 
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uo 

OKA 

£  C  1 

552 

Add  in  first  part  and  write  byte 

qcan 

Q1 
71 

O  1ft 

($30) , Y 

to  buffer 

j  Drtr 

{.a 

1NY 

Turn  buffer  pointer  to  next  byte 

3DDU 

on 

1  Aft 

Set  up  first  part 

96B1 

\J  o 

awn 

or  next  GCR-byte 

DC 

OJ 

Oft 

OTA 

Mil 

9oA 

and  save  it 

Q£de;1 

ur 

Xo 

Dll 

PloUr 

Wait  for  1  Byte  ready ' 

96B8 

30 

r  d 

DMT 

Dnl 

6  Q  C.T1C. 

signal 

;J  Oort 

an 
nu 

U  X 

XL. 

t  r\  a 

s>lCUX 

read  byte  from  diskette  and 

96BD 

O  J 

JO 

OT3V 
O  1ft 

■?oo 

store  away  temporarily 

96BF 

29 

E0 

avrn 

is  ox  at.  zna  part  or  GCR-byte, 

96C1 

05 

3A 

6  ^  A 
9  Oft 

and  combine  with  1 st  part 

96C3 

AA 

TB.Y 
J.  ft  A 

1 1st part : bits  0-1 ; 2ndprt : bits 5-7) 

13U 

Zft 

XiUft 

Determine  and  save  first  binary 

96C7 

AS 

O  £ 

o  1ft 

90<d 

nair— oyte 

96C9 

A5 

53 

LDA 

nepeau  onginaxbtK" value  and 

96CB 

AA 

TAX 

get  second  part  of 

96CC 

BD 

0D 

A3 

LDA 

$A30D,X 

binary  byte 

96CF 

05 

C  1 

3  2 

ORA 

$52 

Include  first  half-byte 

96D1 

91 

30 

STA 

($30) ,Y 

Write  byte  to  buffer 

96D3 

C8 

INY 

Set  buffer  pointer  >next  position 

96D4 

4C 

3B 

96 

JMP 

$963B 

Next  5  GCRbytes  in  4  binary  bytes 

[9665] 

End  of  buffer  reached 

96D7 

A5 

54 

LDA 

$54 

Get  last  GCR-byte  and  determine 

96D9 

AA 

TAX 

first  half-byte  of 

96DA 

BD 

0D 

Al 

LDA 

$A10D,X 

next  binary  byte 

96DD 

85 

52 

STA 

$52 

save  it 

96DF 

8A 

TXA 

Repeat  original  GCR-value  and 

96E0 

29 

01 

AND 

#$01 

isolate  first  part  of  next  GCR- 

96E2 

85 

54 

STA 

$54 

byte 

96E41 

2C 

OF 

18 

BIT 

$180F 

wan.  ror  'byte  ready' 

96E7 

30 

FB 

BMI 

$96E4 

signal 

96E9 

AD 

01 

1C 

LDA 

$1C01 

Read  byte  from  diskette 

96EC 

29 

F0 

AND 

#$F0 

and  get  second  part  of  GCR-byte 

96EE 

05 

54 

ORA 

$54 

Combine  with  first  part 

96F0 

AA 

TAX 

(1st  part:bit  0;2nd  part :bits4-7) 

96F1 

BD 

OF 

9F 

LDA 

$9F0F,X 

Determine  2nd  part  of  binary  byte 

96F4 

05 

52 

ORA 

$52 

ana  lorm  rinax  omary  byte 

96F6 

85 

53 

STA 

$53 

■Jove    v  ax  uc    a.  £>  ilcit-AoUni 

96F8 

68 

PLA 

Repeat  data  block  identifier  and 

96F9 

C5 

47 

CMP 

$47 

test  it 

96FB 

DO 

OA 

BNE 

$9707 

Is  identifier  correct? 

96FD 

20 

E9 

F5 

JSR 

$F5E9 

YES-Compute  buffer  checksum 

9700 

C5 

53 

CMP 

$53 

Test  against  checksum  to  be  given 
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9702    FO  06  BEQ  $970A  Is  a  read  error  taking  place? 

9704    A9  05  LDA  #$05  YES-Error  #  for  'Read  Error  (23) • 

9706    2C  .byte  $2C  Jump  to  next  2  bytes (bit  command) 

97071  A9  04  LDA  #$04  Error  #  for  'Read  Error   (22) ' 

9709    2C  .byte  $2C  Jump  to  next  2  bytes (bit  command) 

97 OA1  A9  01  LDA  #$01  Value  for  'Ok'  message 

970C    4C  B5  99      JMP  $99B5  Give  return  message 


[9600/9789/98CE]  cf .  F510 
Look  for  sector  header 


970F 

A5 

12 

LDA 

$12 

9711 

85 

16 

STA 

$16 

9713 

A5 

13 

LDA 

$13 

9715 

85 

17 

STA 

$17 

9717 

AO 

00 

LDY 

#$00 

9719 

Bl 

32 

LDA 

($32) ,Y 

971B 

85 

18 

STA 

$18 

97  ID 

C8 

INY 

97  IE 

Bl 

32 

LDA 

($32) ,Y 

9720 

85 

19 

STA 

$19 

9722 

A9 

00 

LDA 

#$00 

9724 

45 

16 

EOR 

$16 

9726 

45 

17 

EOR 

$17 

9728 

45 

18 

EOR 

$18 

972A 

45 

19 

EOR 

$19 

972C 

85 

1A 

STA 

$1A 

972E 

20 

34 

F9 

JSR 

$F934 

9731 

A9 

5A 

LDA 

#$5A 

9733 

85 

4B 

STA 

$4B 

97351 

20 

54 

97 

JSR 

$9754 

97381 

B9 

24 

00 

LDA 

$0024, Y 

973B1 

2C 

OF 

18 

BIT 

$180F 

973E 

30 

FB 

BMI 

$973B 

9740 

CD 

01 

1C 

CMP 

$1C01 

9743 

DO 

06 

BNE 

$974B 

9745 

C8 

INY 

9746 

CO 

08 

CPY 

#$08 

9748 

DO 

EE 

BNE 

$9738 

974A 

60 

RTS 

974B1 

C6 

4B 

DEC 

$4B 

974D 

DO 

E6 

BNE 

$9735 

974F 

A9 

02 

LDA 

#$02 

9751 

4C 

B5 

99 

JMP 

$99B5 

Write  current  ID   (1st  character) 

in  buffer  for  Sector  header 

Write  current  ID  (2nd  character) 

in  buffer  for  sector  header 

Re-set  buffer  pointer 

Get  track  of  current  job  and  take 

in  Header  buffer 

Buffer  pointer  to  next  byte 

take  number  of  current  sector 

in  header 

Compute  checksum: 

ID  1 

ID  2 

Track  number 

Sector  number 

Checksum  in  header  buffer 

Convert  header  into  GCR-values 

Set  number  of  read 

attempts  (90) 

Wait  for  next  Sync-marking 
Get  byte  from  header  buffer 
Wait  for  'Byte  ready' 
signal 

Compare  with  byte  on  diskette 
Identical? 

YES— Compare  next  byte 
Number  of  bytes  to  a  header 
Entire  header  compared? 
YES-Return  from  this  subroutine 
Try  again 

Number  of  read  attempts  ended? 
YES-Error  #  for  'Read  Error  (21) ' 
Give  return  message 
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[9453/9603/9735/9CDD/9D08/BF21] 


Wait 

i  or 

next 

Sync-marking 

y  ioh 

A2 

Ur 

LDX 

#50F 

on  c  c 

y  /o  o 

AO 

UU 

If  ouu 

UU 

1L 

BIT 

6  1  O  Art 

51CUU 

y  /  ob 

lu 

ud 

oFL 

>y  /  bo 

y  /  od 

o  o 
OD 

y  /  oh 

1JU 

F8 

BNE 

$9758 

97  60 

CA 

DEX 

9761 

DO 

F5 

BNE 

$9758 

97  63 

A9 

03 

LDA 

#$03 

97  65 

4C 

B5 

99 

JMP 

$99B5 

9768 

AD 

01 

1C 

LDA 

$1C01 

97  6B 

AO 

00 

LDY 

#$00 

97  6D 

60 

RTS 

cf.  F556 

Set  attempt  counter 

(ca.  47  /  23  ms) 

Test  'Sync'  signal 

Is  Sync  set? 

NO— Decrement  counter 

Counter  already  running 

Decrement  counter 

256  cycles  passed? 

Error  number  for  'sync  not  found' 

Give  return  message 

Initialize  'Byte  ready'  (CA1) 

Clear  register 

Return  from  this  subroutine 


[960A]     cf.  F56E 
Write  sector,  when  jobcode  =$90 
976E     C9  10  CMP  #$10 

9770     F0  03  BEQ  $9775 

9772     4C  98  98       JMP  $9898 


(command  bit  $10) 

Test  for  'Write'  jobcode 
Should  sector  be  written? 
NO-Continue  jobcode  test 


Write 

sector 

97751 

20 

E9 

F5 

JSR 

$F5E9 

Compute  buffer  checksum  and 

9778 

85 

3A 

STA 

$3A 

save  it 

977A 

AD 

00 

1C 

LDA 

$1C00 

Get  drive  control  register  and 

977D 

29 

10 

AND 

#$10 

test  'Write  Protect'  bit 

977F 

DO 

05 

BNE 

$9786 

Is  write-protect  set? 

9781 

A9 

08 

LDA 

#$08 

YES- 'Write  protect  on'  error  # 

9783 

4C 

B5 

99 

JMP 

$99B5 

Set  return  message 

97861 

20 

8F 

F7 

JSR 

$F78F 

Convert  buffer  contents  to  GCR 

9789 

20 

OF 

97 

JSR 

$97  OF 

Look  for  blockheader 

97  8C 

AO 

09 

LDY 

#$09 

Gap  bytes  until  data  block 

978E2 

2C 

OF 

18 

BIT 

$180F 

wait  for  'Byte  ready' 

9791 

30 

FB 

BMI 

$978E 

signal 

9793 

2C 

00 

1C 

BIT 

$1C00 

Get  head  ready  again 

9796 

88 

DEY 

Another  byte 

97  97 

DO 

F5 

BNE 

$978E 

Gap  already  jumped  over? 

9799 

A9 

FF 

LDA 

#$FF 

YES-Set  head  register  for 

97  9B 

8D 

03 

1C 

STA 

$1C03 

output 

97  9E 

AD 

oc 

1C 

LDA 

$1C0C 

Get  control  register  and 

97A1 

29 

IF 

AND 

#$1F 

place  head  circuitry 

97A3 

09 

CO 

ORA 

#$C0 

in  write  mode 

97A5 

8D 

0C 

1C 

STA 

$1C0C 

(CB2  to  low) 

97A8 

A9 

FF 

LDA 

#$FF 

Sync-marking  value 

97AA 

AO 

05 

LDY 

#$05 

Number  of  Sync-bytes 
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97AC 

8D 

01 

1C 

STA 

$1C01 

Write  byte  to  diskette 

97AF2 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  Ready' 

97  B2 

30 

FB 

BMI 

$97AF 

signal 

97B4 

2C 

00 

1C 

BIT 

$1C00 

Re-set  'Byte  Ready' 

97B7 

88 

DEY 

Next  Sync-byte 

97B8 

DO 

F5 

BNE 

$97AF 

Entire  marking  already  written? 

97  BA 

AO 

BB 

LDY 

#$BB 

YES-Buffer  pointr  to  status  bufer 

97BC1 

B9 

00 

01 

LDA 

$0100, Y 

Get  byte  from  buffer 

97BF1 

2C 

OF 

18 

BIT 

$180F 

wait  for  'Byte  ready' 

97C2 

30 

FB 

BMI 

$97BF 

signal 

97C4 

8D 

01 

1C 

STA 

$1C01 

Write  GCR-byte  to  diskette 

97C7 

C8 

INY 

Turn  pointer  to  next  byte 

97C8 

DO 

F2 

BNE 

$97BC 

Entire  status  buffer  on  diskette? 

97CA1 

Bl 

30 

LDA 

($30), Y 

YES-Get  byte  from  current  buffer 

97CC1 

2C 

OF 

18 

BIT 

$180F 

wait  for  'Byte  ready' 

97CF 

30 

FB 

BMI 

$97CC 

signal 

97D1 

8D 

01 

1C 

STA 

$1C01 

Write  GCR-byte  to  diskette 

97D4 

C8 

INY 

Set  buffer  pointer  to  next  byte 

97D5 

DO 

F3 

BNE 

$97CA 

Entire  buffer  written? 

97D71 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

97  DA 

30 

FB 

BMI 

$97D7 

signal,  until  byte  is  written 

97  DC 

AD 

OC 

1C 

LDA 

$1C0C 

Switch  head  electronics 

97DF 

09 

EO 

ORA 

#$E0 

to  read  mode 

97E1 

8D 

OC 

1C 

STA 

$1C0C 

(CB2  to  high) 

97E4 

A9 

00 

LDA 

#$00 

Set  head  register 

97E6 

8D 

03 

1C 

STA 

$1C03 

to  input 

97E9 

20 

F9 

97 

JSR 

$97F9 

Convert  buffer  from  GCR  to  binary 

97EC 

A4 

3F 

LDY 

$3F 

Number  of  current  buffer 

97EE 

B9 

00 

00 

LDA 

$0000 , Y 

Get  jobcode  and  convert 

97F1 

49 

30 

EOR 

#$30 

into  'Test  sector' 

97F3 

99 

00 

00 

STA 

$0000, Y 

Set  new  jobcode 

97F6 

4C 

4F 

94 

JMP 

$944F 

Look  for  sector  header 

[97E9/99BE]     cf.  F5F2 

Convert  current  buffer  Sstatus  buffer ($01BB-$1FF) from  GCR  to  binary 


97F9 

A9 

00 

LDA 

#$00 

Initialize  lo-byte  of  pointer  for 

97FB 

85 

2E 

STA 

$2E 

current  data  buffer  and 

97FD 

85 

30 

STA 

$30 

status  buffer 

97FF 

85 

4F 

STA 

$4F 

Hold  momentary  value  of  pointer 

9801 

A5 

31 

LDA 

$31 

for  current  data  buffer  in 

9803 

85 

4E 

STA 

$4E 

in  $4E/$4F 

9805 

A9 

01 

LDA 

#$01 

Turn  buffer  pointer  to 

9807 

85 

31 

STA 

$31 

status  buffer 

9809 

85 

2F 

STA 

$2F 

(high-byte) 

980B 

A9 

BB 

LDA 

#$BB 

Turn  buffer  pointr/conver  routine 

980D 

85 

34 

STA 

$34 

to  start  of  status  buffer  ($1BB) 
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980F 

R^ 

-J  D 

O  ift 

Set  pointer  to  current  byte  pos 

9811 

20 

no 

QO 

JO 

uol\ 

4  Q  Q  n  Q 

Convert  5  GCR  to  4  binary  bytes 

9814 

A5 

52 

bet  laentitier  or  data  block 

9816 

85 

38 

O  Xrt 

>?oo 

and  s  ave  it 

9818 

A4 

3  6 

t  nv 

v  O  D 

Get  buffer  pointer-next  bin  byte 

981A 

A5 

53 

Get  data  byte  and  write 

QR 1  c 

Q1 
13  J. 

£11* 

O  In 

/  4  OTP  \  V 

to  buffer 

98  IE 

T\IV 
X  IN  I 

Set  buffer  pointer  to  next  byte 

981F 

A5 

54 

9  0  4 

Get  data  byte  and 

9821 

91 

2E 

o  Xrl 

I             r  x 

write  to  buffer 

9823 

C8 

THV 
J- IN  X 

Set  buffer  pointer  to  next  byte 

9824 

A5 

■j  -j 

t  na 

ice 

bet  aata  byte  and 

QR  9  £ 

Q1 

yi 

o  XA 

(5^E) , Y 

write  to  buffer 

QR  9  ft 

INi 

Set  buffer  pointer  to  next  byte 

QQOQ 

Rd 

O  D 

oil 

Save  buffer  pointer 

982B^ 

no 

9  y  ouy 

Convert  5  GCR— bytes— 4  bin  bytes 

QR9F 

o  o 

t  nv 

XjUX 

Repeat  buffer  pointer 

9830 

A5 

R9 

t  na 

LiUri 

93<£ 

Get  data  byte  and  write 

9832 

91 

2E 

«5Ta 

O  Xtt 

/<9EM  V 

to  buffer 

9834 

PR 

T\TV 
XIV  X 

Set  buffer  pointer  to  next  byte 

9835 

A5 

53 

T.na 

yJ  J 

uet  OatoDyte  ana. 

9837 

91 

2E 

Oln 

write  to  buffer 

983A 

FO 

0E 

DUA 

End  of  status  buffer  reached? 

983C 

A5 

54 

LDA 

9  04 

wu  bet  uataoyts  ana. 

983E 

91 

2E 

O  Xn 

V9^&; / x 

write  to  bu f f er 

984  0 

C8 

TVfV 
X  LN  X 

set  buffer  pointer  to  next  byte 

9841 

A5 

55 

LDA 

■?  jj 

«et  aat aoyt e  ana 

9843 

91 

2E 

c?Ta 

/ tori  v 

write  to  buffer 

9845 

C8 

TlMY 
XtN  X 

Set  buffer  pointer  to  next  byte 

984  6 

84 

36 

STY 

$36 

Save  buffer  pointer 

9848 

DO 

El 

BNE 

9    O ^-D 

Reached  end  of  status  buffer ? 

984A1 

A5 

54 

LDA 

ihjo— T^ei-  convertea  01  nary  oyte  ana 

984C 

91 

30 

STA 

write  co  cat a  ourrer 

984E 

C8 

INY 

oet  Duirer  pointer  to  next  oyte 

984F 

A5 

55 

LDA 

$55 

Get  converted  binary  byte  and 

9851 

91 

30 

STA 

w-jv;  ,  x 

write  to  data  outrer 

9853 

C8 

TNY 

XIM  X 

Set  buffer  pointer  to  next  byte 

9854 

84 

36 

STY 

$36 

oave  du r  rer  pointer 

98561 

20 

D9 

98 

JSR 

$98D9 

uunver  o  u^K~rsyt es- h  Din  Joyte s 

9859 

A4 

36 

LDY 

$36 

kaet  ouiier  pointer  again 

985B 

A5 

52 

LDA 

$52 

Get"   cnnvprtpH   hi  n^T\/  H\/-t-ci  anH 

985D 

91 

30 

STA 

($30)  ,Y 

write  to  data  buffer 

985F 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9860 

A5 

53 

LDA 

$53 

Get  converted  binary  byte  and 

9862 

91 

30 

STA 

($30) ,Y 

write  to  data  buffer 

9864 

C8 

INY 

Set  buffer  pointer  to  next  byte 
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AO 

^  4 

t  na 

riot*    ronvorf  or)    H"i  n^ru   bvt^  and 

ye  o  / 

Q1 

yx 

0  u 

c»PA 

W  X  X  L.  G      1—  "kJ              I—  CI          u  i.  .1-  ci. 

yo  o  y 

TMV 
X  IN  X 

^c^t  hnf  f  pr  noi  nter  to  next  bvte 

y  £5  DM 

•J  D 

t  na 

$55 

Get  converted  binary  byte  and 

jo  DL. 

71 

0  \j 

cnpa 
Oln 

/g-an^  Y 
\  9ou;  ,  x 

wr 1 t e  to  dat a  bu f f er 

y  o  oil 

PP 
t-O 

TMY 

ini 

^^t  buffer  oointer  to  next  bvte 

j  o  or 

36 

STY 

$36 

Save  buffer  pointer  and 

Q071 

ye  /  x 

no 

DD 

PDY 

■ff  9DD 

Pnnioarp  with  pnd  value 

y  0  /  0 

yu 

til 

FnH  nf  data  buffer  reached15 

A9 

45 

LDA 

#$45 

YES— Set  pointer  to 

QR7  7 

85 

2E 

STA 

$2E 

target  address  of 

QP.  7  Q 

0  X 

vJl 

the  f ollowincr  shift 

QQTR 

ft  s 

^  r 

STA 

S?F 

action 

987D 

AO 

BA 

LDY 

#$BA 

Shift  bytes  in  data  buffer  from 

QR7Trl 

"  O  1  £ 

R1 

LDA 

/&^0)  Y 
lyjyj  /  i- 

$01-$BB  to  position  $46-$FF  in 

QQOI 
jo  O  X 

7X 

OP 
£.sLt 

O  in 

buffer  above 

ftft 
O  O 

DEY 

buffsr  pointer  to  next  byte 

QQO/I 
3004 

FQ 

r  7 

RWF 

DIN  Cj 

$987F 

All  characters  already  shifted? 

QOpfT 

R1 

Di 

■an 

LDA 

/<-30^  Y 

\  V-JV  J  ,  X 

YES— Copy  byte  $00  to 

Qppp 

?ooo 

71 

OP 

Oln 

/gor\  y 

oosi tion  S45 

K-/  W  i3      w  J.  \-/ 11      Y  J 

qr  p  a 
y  0  on 

DD 
DO 

XjL/A 

*SRR 

Pointer  to  start  of  status  buffer 

QO  Op  1 

on 

OLJ 

nn  1*11 

t  na 

ft  m  on  y 

Get  byte  from  status  buffer 

988F 

yi 

oU 

OlA 

a.  I  Id    tJULjy    1I1UU    UaUG  UUllci 

9891 

C8 

INY 

turn  buffer  pointer  for  Data-  and 

9892 

E8 

INX 

status  buffer  to  next  byte 

9893 

DO 

F7 

BNE 

$988C 

Entire  buffer  copied? 

9895 

86 

50 

STX 

$50 

YES-Clr  flag  fr'buffer  in  GCR' (0) 

9897 

60 

RTS 

Return  from  this  subroutine 
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[9772]     cf.  F691 

Sector  verify,  when  jobcode  =  $A0  (Command  bit  $20) 


9898 

C9 

20 

CMP 

#$20 

Test  for  jobcode: 'Sector  verify' 

98  9A 

F0 

02 

BEQ 

$989E 

Should  sector  be  verified? 

989C 

DO 

30 

BNE 

$98CE 

N-Jump  to  $98CE 

Sector  verify 

989E1 

20 

E9 

F5 

JSR 

$F5E9 

Compute  buffer  checksum 

98A1 

85 

3A 

STA 

$3A 

and  save  it 

98A3 

20 

8F 

F7 

JSR 

$F78F 

Convert  buffer  from  binary  to  GCR 

98A6 

20 

00 

96 

JSR 

$9600 

Look  for  sector  header 

98A9 

AO 

BB 

LDY 

#$BB 

Turn  pointer  to  status  buffer 

98AB1 

B9 

00 

01 

LDA 

$0100, Y 

Get  byte  from  buffer 

98AE1 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'byte  ready' 

98B1 

30 

FB 

BMI 

$98AE 

signal  and  compare 

98B3 

4D 

01 

1C 

EOR 

$1C01 

with  byte  from  diskette 

98B6 

DO 

1C 

BNE 

$98D4 

Identical? 

98B8 

C8 

INY 

YES-Buffer  pointer  to  next  byte 

98B9 

DO 

F0 

BNE 

$98AB 

Entire  status  buffer  compared? 

98BB1 

Bl 

30 

LDA 

($30) ,Y 

byte  from  data  buffer 

98BD1 

2C 

OF 

18 

BIT 

$180F 

wait  for  'byte  ready' 

Qopn 

■^n 
ou 

r  d 

BMI 

$98BD 

signal 

98C2 

4D 

01 

1C 

EOR 

$1C01 

Compare  with  byte  from  diskette 

98C5 

DO 

OD 

BNE 

$98D4 

Identical? 

98C7 

C8 

INY 

YES-Buffer  pointer  to  next  byte 

98C8 

CO 

FD 

CPY 

#$FD 

Compare  pointer  with  end  value 

98CA 

DO 

EF 

BNE 

$98BB 

Reached  end  of  data  buffer? 

98CC 

F0 

03 

BEQ 

$98D1 

YES- Jump  to  $98D1 

98CE1 

20 

OF 

97 

JSR 

$970F 

Look  for  next  sector  header 

98D11 

A9 

01 

LDA 

#$01 

Number  for  'Ok'  message 

98D3 

2C 

.byte  $2C 

Jump  to  next  2  bytes 

98D42 

A9 

07 

LDA 

#$07 

Set  'Verify  Error'  error  number 

98D6 

4C 

B5 

99 

JMP 

$99B5 

Send  return  message 

[9541/9550/9811/982B/9856/9979/9993/BF30]     cf.  F7E6 

Convert  5  GCR-bytes  into  4  binary  bytes 

98D9 

A4 

34 

LDY 

$34 

Get  pointer  to  next  GCR-byte 

98DB 

Bl 

30 

LDA 

($30) ,Y 

Get  GCR-byte  from  buffer  and 

98DD 

85 

56 

STA 

$56 

save  as  first  GCR  value 

98DF 

29 

07 

AND 

#$07 

Save  1st  part  of  2nd 

98E1 

85 

57 

STA 

$57 

GCR  value 

98E3 

C8 

INY 

Pointer  to  next  GCR-byte 

98E4 

DO 

06 

BNE 

$98EC 

Reached  end  of  status  buffer? 

98E6 

A5 

4E 

LDA 

$4E 

YES— set  pointer  to  beginning  of 

98E8 

85 

31 

STA 

$31 

current  data  buffer 

98EA 

A4 

4F 

LDY 

$4F 

Set  pointer  to  position  in  buffer 
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98EC1 

Bl 

30 

LDA 

($30) ,Y 

98EE 

85 

58 

STA 

$58 

98F0 

29 

CO 

AND 

#$C0 

98F2 

05 

57 

ORA 

$57 

98F4 

85 

57 

STA 

$57 

98F6 

A5 

58 

LDA 

$58 

98F8 

29 

01 

AND 

#$01 

98FA 

85 

59 

STA 

$59 

98FC 

C8 

INY 

98FD 

Bl 

30 

LDA 

($30) ,Y 

98FF 

AA 

TAX 

9900 

29 

FO 

AND 

#$F0 

9902 

05 

59 

ORA 

$59 

9904 

85 

59 

STA 

$59 

9906 

8A 

TXA 

9907 

29 

OF 

AND 

#$0F 

9909 

85 

5A 

STA 

$5A 

990B 

C8 

INY 

990C 

Bl 

30 

LDA 

($30) ,Y 

990E 

85 

5B 

STA 

$5B 

9910 

29 

80 

AND 

#$80 

9912 

05 

5A 

ORA 

$5A 

9914 

85 

5A 

STA 

$5A 

9916 

A5 

5B 

LDA 

$5B 

9918 

29 

03 

AND 

#$03 

991A 

85 

5C 

STA 

$5C 

991C 

C8 

INY 

991D 

DO 

08 

BNE 

$9927 

991F 

A5 

4E 

LDA 

$4E 

9921 

85 

31 

STA 

$31 

9923 

A4 

4F 

LDY 

$4F 

9925 

84 

30 

STY 

$30 

99271 

Bl 

30 

LDA 

($30) ,Y 

9929 

85 

5D 

STA 

$5D 

992B 

29 

EO 

AND 

#$E0 

992D 

05 

5C 

ORA 

$5C 

992F 

85 

5C 

STA 

$5C 

9931 

C8 

INY 

9932 

84 

34 

STY 

$34 

9934 

A6 

56 

LDX 

$56 

9936 

BD 

OD 

AO 

LDA 

$A00D,X 

9939 

A6 

57 

LDX 

$57 

993B 

ID 

OD 

9F 

ORA 

$9F0D,X 

993E 

85 

52 

STA 

$52 

9940 

A6 

58 

LDX 

$58 

9942 

BD 

OD 

Al 

LDA 

$A10D,X 

Get  GCR-byte  from  buffer 
and  save  it 

Get  2nd  part  of  2nd  GCR  value; 
combine  with  first:  part 
Save  second  GCR  value 
Get  original  GCR-byte  again  and 
get  1st  part  of  3rd  GCR  value 
Save  value 

Set  buffer  pointer  to  next  byte 
Get  byte  from  buffer 
and  save  it 

Find  2nd  part  of  3rd  GCR  value; 
combine  with  first  part 
Save  entire  byte 
Get  original  GCR-byte  again,  and 
save  1st  part  of 
4th  GCR  value 
Turn  buffer  pointer  to  next  byte 
Get  byte  from  buffer  and 
save  it 

get  2nd  part  of  4th  GCR  value  and 

combine  with  previous  first  part 

Save  entire  value 

Get  original  GCR-byte  again  and 

isolate  1st  part  pf  5th  GCR 

value 

Set  pointer  to  next  byte 
Reached  end  of  status  buffer? 
YES— Turn  pointer  to  current 
data  buffer 

Set  pointer  in  position  in 
buffer 

Get  byte  from  buffer  and 
save  it 

Get  2nd  part  of  5th  GCR  value  and 

combine  with  first  part 

Save  entire  GCR  value 

Buffer  pointer  to  next  character 

and  save  it 

Get  1st  GCR  value-find  equivalent 
most  significant  binary  half-byte 
Get  second  GCR  value  and  form 
least  signifcant  binary  half-byte 
Save  first  converted  binary  byte 
Get  3rd  GCR  value, find  equivalent 
most  significant  binary  half -byte 
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9945 

A6 

59 

LDX 

$59 

Get  fourth  GCR  alue  and  form 

9947 

ID 

OF 

9F 

ORA 

$9F0F,X 

least  significant  bin.  half-byte 

994A 

85 

53 

STA 

$53 

Save  second  converted  binary  byte 

994C 

A6 

5A 

LDX 

$5A 

Get  5th  GCR  value, find  equivalent 

994E 

BD 

ID 

9F 

LDA 

$9F1D,X 

most  significant  binary  half-byte 

9951 

A6 

5B 

LDX 

$5B 

Get  sixth  GCR  value  and  form 

9953 

ID 

OD 

A2 

ORA 

$A20D,X 

least  significant  half-byte 

9956 

85 

54 

STA 

$54 

Save  third  converted  binary  byte 

9958 

A6 

5C 

LDX 

$5C 

Get  7th  GCR  value, find  equivalent 

995A 

BD 

2A 

9F 

LDA 

$9F2A,X 

most  significant  binary  half-byte 

995D 

A6 

5D 

LDX 

$5D 

Get  eighth  GCR  value  and  form 

995F 

ID 

OD 

A3 

ORA 

$A30D,X 

least  significant  bin.  half-byte 

9962 

85 

55 

STA 

$55 

Save  last  converted  binary  byte 

9964 

60 

RTS 

Return  from  this  subroutine 

[BF27/Routine  not  used  in  DOS]  cf.  F8E0 
Convert  status  buffer  from  GR  to  binary 


9965 

A9 

00 

LDA 

#$00 

Pointer  to  current  GCR-byte 

9967 

85 

34 

STA 

$34 

set  back 

9969 

85 

2E 

STA 

$2E 

Clear  pointer  to  target  buffer 

996B 

85 

36 

STA 

$36 

Pointer  to  current  data  position 

996D 

A9 

01 

LDA 

#$01 

Turn  temp,  storage  for  address 

996F 

85 

4E 

STA 

$4E 

of  current  data  buffer 

9971 

A9 

BA 

LDA 

#$BA 

to  beginning  of 

9973 

85 

4F 

STA 

$4F 

status  buffer 

9975 

A5 

31 

LDA 

$31 

Set  buffer  pointer  to  value  of 

9977 

85 

2F 

STA 

$2F 

current  data  buffer 

9979 

20 

D9  98 

JSR 

$98D9 

Convert  5  GCRbytes  to  4  bin. bytes 

997C 

A5 

52 

LDA 

$52 

Get  first  binary  byte  &  take  as 

997E 

85 

38 

STA 

$38 

identifier  of  data  blocks 

9980 

A4 

36 

LDY 

$36 

Pointer  to  current  byte 

9982 

A5 

53 

LDA 

$53 

Get  second  converted  byte  and 

9984 

91 

2E 

STA 

($2E) ,Y 

write  in  buffer 

9986 

C8 

iny 

Buffer  pointer  to  next  byte 

9987 

A5 

54 

LDA 

$54 

Get  third  converted  byte  and 

9989 

91 

2E 

STA 

($2E) ,Y 

write  to  buffer 

998B 

C8 

INY 

Buffer  pointer  to  next  byte 

998C 

A5 

55 

LDA 

$55 

Get  last  converted  byte  and 

998E 

91 

2E 

STA 

($2E) ,Y 

write  to  buffer 

9990 

C8 

INY 

Buffer  pointer  to  next  byte 

99911 

84 

36 

STY 

$36 

and  save  it 

9993 

20 

D9  98 

JSR 

$98D9 

Convert  5  GCRbytes  to  4  bin. bytes 

9996 

A4 

36 

LDY 

$36 

Repeat  buffer  pointer 

9998 

A5 

52 

LDA 

$52 

Get  1st  converted  byte  and  write 

999A 

91 

2E 

STA 

($2E) ,Y 

to  buffer 

999C 

C8 

INY 

Buffer  pointer  to  next  byte 
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999D 

FO 

11 

BEQ 

$99B0 

Reached  end  of  buffer? 

999F 

A5 

53 

LDA 

$53 

N-Get  2nd  converted  binary  byte 

99A1 

91 

2E 

STA 

($2E) ,Y 

and  write  to  buffer 

99A3 

C8 

I  NY 

Set  buffer  pointer  to  next  byte 

99A4 

A5 

54 

LDA 

$54 

Get  third  converted  byte  and 

99A6 

91 

2E 

STA 

($2E) ,Y 

write  to  buffer 

99A8 

C8 

INY 

Buffer  pointer  to  next  byte 

99A9 

A5 

55 

LDA 

$55 

Get  3rd  converted  byte  and  write 

99AB 

91 

2E 

STA 

($2E) , Y 

to  buffer 

9  9  AD 

C8 

INY 

Buffer  pointer  to  next  byte 

99AE 

DO 

El 

BNE 

$9991 

Reached  end  of  buffer? 

99B01 

A5 

2F 

LDA 

$2F 

YES-Reestablish  pointer  to 

99B2 

85 

31 

STA 

$31 

current  data  buffer 

99B4 

60 

RTS 

Return  from  this  subroutine 

[92EB/93CE/94A6/ 
F969 

Give  return  mess 
99B5     A4  3F 
99B7     99  00  00 
99BA    A5  50 
99BC     F0  03 
99BE     20  F9  97 
99C11  20  8F  F9 
99C4     A6  4  9 
99C6  9A 
99C7     4C  C8  92 


94B9/970C/9751/9765/9783/9806/904E/9D60/BF15]     cf . 


age  over  job  loop 

LDY  $3F  Number  of  current  buffer 

STA  $0000, Y  Write  return  message  to  job  reg. 

LDA  $50  Flag  for  'buffer  in  GCR-Code' 

BEQ  $99C1  Is  the  buffer  still  in  GCR  ? 

JSR  $97F9  YES-Convert  buffer,  GCR  to  binary 

JSR  $F98F  Drive  motor  off 

LDX  $49  Redirect 

TXS  stack  pointer 

JMP  $92C8  1571  job  loop 


[92D2/92F8/9302/9329/9522/9B55/9B64/9D41/9D56/BF72] 
Part  of  jobloop  for  motor-  and  stepper  control 


99CA 

AD 

07 

1C 

LDA 

$1C07 

Timer  1  (high-byte) 

99CD 

8D 

05 

1C 

STA 

$1C05 

re-set 

99D0 

AD 

00 

1C 

LDA 

$1C00 

Get  drive  control  register 

99D3 

29 

10 

AND 

#$10 

and  test  for  'Write  Protect' 

99D5 

C5 

IE 

CMP 

$1E 

Compare  with  last  test 

99D7 

85 

IE 

STA 

$1E 

and  save  current  status 

99D9 

DO 

07 

BNE 

$99E2 

Has  'Write  Protect'  been  changed? 

99DB 

AD 

AB 

02 

LDA 

$02AB 

N— Motor  runtime  counter 

99DE 

DO 

10 

BNE 

$99F0 

Is  motor  on? 

99E0 

F0 

1C 

BEQ 

$99FE 

N— Jump  to  $99FE 

99E21 

A9 

FF 

LDA 

#$FF 

Set  counter  for  motor  runtime  in 

99E4 

8D 

AB 

02 

STA 

$02AB 

disk  exchange 

99E7 

20 

64 

87 

JSR 

$8764 

Motor  off 

99EA 

A9 

01 

LDA 

#$01 

Set  'Newly  initialize  diskette' 

99EC 

85 

1C 

STA 

$1C 

flag 

99EE 

DO 

0E 

BNE 

$99FE 

Jump  to  $99FE 
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1 

99F01 

CE 

AB 

02 

DEC 

$02AB 

99F3 

DO 

09 

BNE 

$99FE 

99F5 

A5 

20 

LDA 

$20 

99F7 

C9 

00 

CMP 

#$00 

99F9 

DO 

03 

BNE 

$99FE 

99FB 

20 

70 

87 

JSR 

$8770 

99FEq 

AD 

FE 

02 

LDA 

$02FE 

9A01 

FO 

15 

BEQ 

$9A18 

9A03 

C9 

02 

CMP 

#$02 

9A05 

DO 

07 

BNE 

$9A0E 

9A07 

A9 

00 

LDA 

#$00 

9A09 

8D 

FE 

02 

STA 

$02FE 

9A0C 

FO 

OA 

BEQ 

$9A18 

9A0E1 

85 

4A 

STA 

$4A 

9A10 

A9 

02 

LDA 

#$02 

9A12 

8D 

FE 

02 

STA 

$02FE 

9A15 

4C 

56 

9A 

JMP 

$9A56 

9A182 

A6 

3E 

LDX 

$3E 

9A1A 

30 

07 

BMI 

$9A23 

9A1C 

A5 

20 

LDA 

$20 

9A1E 

A8 

TAY 

9A1F 

C9 

20 

CMP 

#$20 

9A21 

DO 

03 

BNE 

$9A26 

9A232 

4C 

C9 

9A 

JMP 

$9  AC  9 

9A261 

C6 

48 

DEC 

$48 

9A28 

DO 

1C 

BNE 

$9A46 

9A2A 

98 

TYA 

9A2B 

10 

04 

BPL 

$9A31 

9A2D 

29 

7F 

AND 

#$7F 

9A2F 

85 

20 

STA 

$20 

9A311 

29 

10 

AND 

#$10 

9A33 

FO 

11 

BEQ 

$9A46 

9A35 

C6 

35 

DEC 

$35 

9A37 

DO 

OD 

BNE 

$9A46 

9A39 

20 

70 

87 

JSR 

$8770 

9A3C 

A9 

FF 

LDA 

#$FF 

9A3E 

85 

3E 

STA 

$3E 

9A40 

A9 

00 

LDA 

#$00 

9A42 

85 

20 

STA 

$20 

9A44 

FO 

DD 

BEQ 

$9A23 

9A4  63 

98 

TYA 

9A47 

29 

40 

AND 

#$40 

9A49 

DO 

03 

BNE 

$9A4E 

9A4B 

4C 

C9 

9A 

JMP 

$9  AC  9 

9A4E1 

A5 

62 

LDA 

$62 

9A50 

DO 

50 

BNE 

$9AA2 

Decrement  counter  f/motor  runtime 

Motor  now  off? 

YES— Get  drive  status 

Compare  with  'motor  out' 

Identical? 

YES-Drive  motor  off 

Read  error  control  byte  for  head 

Should  head  be  set  to  next  track? 

N— Test  with  'control  byte  taken' 

Is  head  evenly  set? 

Clear  control  byte 

register 

Jump  to  $9A18 

Set  #  of  steps  to  be  performed 
Set  'Control  byte  taken' 
flag 

Re-position  head 

Flag  for  'drive  aktiv' 

Is  flag  set? 

N— Get  drive  status 

and  save  it 

Compare  with  'Motor  on'  flag 
Is  drive  ready? 

YES— Return  from  this  subroutine 

Motor  delay  counter 

Is  motor  out  of  turn  mode? 

YES-Get  drive  status 

Flag  for  'Motor  not  ready'  set? 

YES-Clear 

flag 

Flag  for  'Motor  in  off  phase' 

Should  motor  be  turned  off? 

Jobloop  calls  yet  to  be  performed 

Jobloop  called  again? 

N— Drive  motor  off 

Clear  'drive  active' 

flag 

Re-set 

drive  status 

Jump  to  $9A23 

Repeat  drive  status 

Test  'Stepper  in  operation'  flag 

Is  head  moving? 

N— Return  from  this  subroutine 

Flag  for  current  stepper  phase 

Is  head  in  position? 
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9A52 

A5 

4A 

LDA 

$4A 

N— Number  of  steps  to  be  moved 

9A54 

FO 

43 

BEQ 

$9A99 

Counter  set? 

[9A15] 

Head  control 

routine 

9A56 

A5 

4A 

LDA 

$4A 

YES— Get  number  of  half-steps 

9A58 

10 

59 

BPL 

$9AB3 

Should  head  be  moved  out? 

9A5A 

98 

TYA 

YES— Get  drive  status  and 

9A5B 

48 

PHA 

retain  it 

9A5C 

AO 

63 

LDY 

#$63 

Number  of  probe  attempts  (99) 

9A5E1 

AD 

OF 

18 

LDA 

$180F 

Get  Ctrl  reg.  A  &  set  status  of 

9A61 

6A 

ROR 

A 

track  0  write-protect  in  carry 

no 

nun 
Jrliir 

Save  carry 

9A63 

AD 

OF 

18 

LDA 

$180F 

Read  control  reg.  again  and 

9A66 

6A 

ROR 

A 

re-test  write-protect  notch 

9A67 

6A 

ROR 

A 

Set  result  in  bit  7 

9A68 

28 

PLP 

Get  previous  result 

9A69 

29 

80 

AND 

icon 
#580 

Establish  last  result 

9A6B 

90 

04 

BCC 

$9A71 

Is  track  0  active  in  first  test? 

9A6D 

10 

ID 

BPL 

$9A8C 

N-Is  it  at  track  0  now? 

9A6F 

30 

02 

BMI 

$9A73 

YES-Jump  to  $9A73 

9A711 

30 

19 

BMI 

$9A8C 

Is  track  0  still  active? 

Track 

0  write-protect  notch 

status  remains  unchanged 

9A731 

88 

DEY 

YES-Try  again 

9A74 

DO 

E8 

BNE 

$9A5E 

All  attempts  been  performed? 

9A76 

B0 

14 

BCS 

$9A8C 

YES-Was  track  0  set? 

QA7R 

A5 

7B 

LDA 

$7B 

YES— Current  head  control  byte  set 

9A7A 

DO 

10 

BNE 

$9A8C 

by  an  error? 

9A7C 

AD 

00 

1C 

LDA 

$1C00 

N— Get  drive  control  register  and 

9A7F 

29 

03 

AND 

#$03 

get  stepper  bits 

9A81 

DO 

09 

BNE 

$9A8C 

Is  a  stepper  reel  active? 

9A83 

68 

PLA 

N— repeat  drive  status 

9A84 

A8 

TAY 

and  save  it 

9A85 

A9 

00 

LDA 

#$00 

Clear  counter 

9A87 

85 

4A 

STA 

$4A 

for  steps  to  be  travelled 

9A89 

4C 

C9 

9A 

JMP 

$9  AC  9 

End 

Track 

0  write-protect  notch 

status  has  been  changed 

9A8C5 

68 

PLA 

repeat  drive  status  and  save 

9A8D 

A8 

TAY 

it 

9A8E 

E6 

4A 

INC 

$4A 

Counter  one  step  out 

9A90 

AD 

00 

1C 

LDA 

$1C00 

Get  control  register  and 

9A93 

38 

SEC 

set  stepper  bits  for 

9A94 

E9 

01 

SBC 

#$01 

one  step 

9A96 

4C 

BB 

9A 

JMP 

$9ABB 

outward 
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9A991 

A9 

02 

LDA 

#$02 

Set  delay  counter  to  two 

9A9B 

85 

48 

STA 

$48 

more  IRQs 

9A9D 

85 

62 

STA 

$62 

Stepper  flag  to  'Rest  phase' 

9A9F 

4C 

C9 

9A 

JMP 

$9  AC  9 

Return  from  this  subroutine 

9AA21 

C6 

48 

DEC 

$48 

Delay  for  head  resting  time 

9AA4 

DO 

23 

BNE 

$9  AC  9 

Head  ready? 

9AA6 

A5 

20 

LDA 

$20 

YES-Get  drive  status  and 

9AA8 

29 

BF 

AND 

#$BF 

clear  1  Stepper  on ' 

9AAA 

85 

20 

STA 

$20 

flag 

9AAC 

A9 

00 

LDA 

#$00 

Set  stepper  flag 

9AAE 

85 

62 

STA 

$62 

back 

9AB0 

4C 

C9 

9A 

JMP 

$9  AC  9 

Return  from  this  subroutine 

[9A58] 

One  half 

-track  step  in 

9AB3 

C6 

4A 

DEC 

$4A 

Step  counter  1  step  in 

9AB5 

AD 

00 

1C 

LDA 

$1C00 

Get  control  register 

9AB8 

18 

CLC 

and  set  stepper  bits 

9AB9 

69 

01 

ADC 

#$01 

for  one  half-track  step 

[9A96] 

Set  stepper  control 

9ABB 

29 

03 

AND 

#$03 

inward 

9ABD 

85 

4B 

STA 

$4B 

Save  value 

9ABF 

AD 

00 

1C 

LDA 

$1C00 

Get  control  register 

9AC2 

29 

FC 

AND 

#$FC 

and  combine  new 

9  AC  4 

05 

4B 

ORA 

$4B 

value  of 

9AC6 

8D 

00 

1C 

STA 

$1C00 

stepper  bits 

9AC9b 

60 

RTS 

Return  from  this  subroutine 

[9B6C] 

Format  track 

9B89 

A5 

3B 

LDA 

$3B 

Get  command  number  and  test  flags 

9B8B 

10 

03 

BPL 

$9B90 

Should  track  capacty  be  computed? 

9B8D 

20 

DC 

9A 

JSR 

$9ADC 

YES— Determine  track  capacity 

9B901 

AD 

26 

06 

LDA 

$0626 

[Error  —  see  7.1.5] 

9B93 

18 

CLC 

[Unnecessary  operation] 

9B94 

A9 

03 

LDA 

#$03 

Set  pointers  $32/$33 

9B96 

85 

33 

STA 

$33 

to  beginning 

9B98 

A9 

00 

LDA 

#$00 

of 

9B9A 

85 

32 

STA 

$32 

data  buffer  0 

9B9C 

8D 

28 

06 

STA 

$0628 

Set  first  sector  number  (0) 

9B9F 

AO 

00 

LDY 

#$00 

Re-set  buffer  pointer 

9BA11 

A5 

39 

LDA 

$39 

Write  sector  header  identifier 

9BA3 

91 

32 

STA 

($32) ,Y 

in  buffer 

9BA5 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9BA6 

A9 

00 

LDA 

#$00 

Write  empty  byte  for  checksum 

9BA8 

91 

32 

STA 

($32) ,Y 

in  buffer 

9BAA 

C8 

INY 

Set  buffer  pointer  to  next  byte 
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9BAB 

AD 

28 

06 

LDA 

$0628 

Get  sector  number  and 

9BAE 

91 

32 

STA 

($32) , Y 

write  in  buffer 

9BB0 

C8 

I  NY 

Set  buffer  pointer  to  next  byte 

9BB1 

A5 

51 

LDA 

$51 

Write  current  track  number 

9BB3 

91 

32 

STA 

($32) ,Y 

in  buffer 

9BB5 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9BB6 

A5 

13 

LDA 

$13 

Get  second  ID  character  and 

9BB8 

91 

32 

STA 

($32) ,Y 

write  in  buffer 

9BBA 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9BBB 

A5 

12 

LDA 

$12 

Get  first  ID  character  and 

9BBD 

91 

32 

STA 

($32) ,Y 

write  in  buffer 

9BBF 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9BC0 

A9 

OF 

LDA 

#$0F 

Write  empty  byte  value 

9BC2 

91 

32 

STA 

($32) ,Y 

in  buffer 

9BC4 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9BC5 

91 

32 

STA 

($32) ,Y 

Write  to  buffer 

9BC7 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9BC8 

98 

TYA 

Get  buffer  pointer 

9BC9 

48 

PHA 

and  recover  it 

9BCA 

A2 

07 

LDX 

#$07 

Number  of  bytes  to  be  included 

9BCC 

A9 

00 

LDA 

#$00 

Clear 

9BCE 

85 

3A 

STA 

$3A 

checksum 

9BD01 

88 

DEY 

Set  buffer  pointer  to  prev  byte 

9BD1 

Bl 

32 

LDA 

($32), Y 

Get  byte  from  header  buffer  and 

9BD3 

45 

3A 

EOR 

$3A 

compute  in  checksum 

9BD5 

85 

3A 

STA 

$3A 

Save  value 

9BD7 

CA 

DEX 

One  more  byte 

9BD8 

DO 

F6 

BNE 

$9BD0 

Entire  header  been  included? 

9BDA 

91 

32 

STA 

($32) ,Y 

YES— write  checksum  in  header 

9BDC 

68 

PLA 

Reset  current  buffer 

9BDD 

A8 

TAY 

pointer 

9BDE 

EE 

28 

06 

INC 

$0628 

Go  to  next  sector 

9BE1 

AD 

28 

06 

LDA 

$0628 

Compare  current  sector  number 

9BE4 

C5 

43 

CMP 

$43 

with  maximumr  number 

9BE6 

90 

B9 

BCC 

$9BA1 

Is  sector  number  allowed? 

9BE8 

A9 

03 

LDA 

#$03 

NO- Initialize  buffer  pointer  for 

9BEA 

85 

31 

STA 

$31 

buffer  $0300 

9BEC 

20 

30 

FE 

JSR 

$FE30 

Convert  block  header  to  GCR-bytes 

9BEF 

AO 

BA 

LDY 

#$BA 

Turn  buff  pointer  to  status  buff 

9BF11 

Bl 

32 

LDA 

($32) ,Y 

Get  byte  from  status  buffer 

9BF3 

A2 

45 

LDX 

#$45 

Set  pointer  to  second  buffer 

9BF5 

86 

32 

STX 

$32 

range 

9BF7 

91 

32 

STA 

($32) ,Y 

Write  GCRbyte  in  higher  buff. area 

9BF9 

A2 

00 

LDX 

#$00 

Re-set  pointer  to 

9BFB 

86 

32 

STX 

$32 

beginning 

9BFD 

88 

DEY 

Set  buffer  pointer  to  next  byte 
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9BFE 

CO 

FF 

CPY 

#$FF 

Compare  with  end  value 

9C00 

DO 

EF 

BNE 

$9BF1 

Copy  $300-$344  into  $345-$389? 

9C02 

AO 

44 

LDY 

#$44 

Buffer  pointer  to  status  buffer 

9C041 

B9 

BB 

01 

LDA 

$01BB,Y 

Get  byte  from  status  buffer  and 

9C07 

91 

32 

STA 

($32) , Y 

write  to  data  buffer 

9C09 

88 

DEY 

Set  buffer  pointer  to  next  byte 

9C0A 

10 

F8 

BPL 

$9C04 

Entire  buffer  been  transferred? 

9C0C 

18 

CLC 

YES— Set  buffer  pointer  to 

9C0D 

A9 

03 

LDA 

#$03 

new  buffer 

9C0F 

69 

02 

ADC 

#$02 

for 

9C11 

85 

31 

STA 

$31 

data  block  contents 

9C13 

A9 

00 

LDA 

#$00 

Fill  byte  value 

9C15 

A8 

TAY 

Clear  buffer  pointer 

9C161 

91 

30 

STA 

($30) ,Y 

Write  empty  byte  in  buffer 

9C18 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9C19 

DO 

FB 

BNE 

$9C16 

Entire  buffer  cleared? 

9C1B 

20 

E9 

F5 

JSR 

$F5E9 

YES— Compute  checksum  and 

9C1E 

85 

3A 

STA 

$3A 

save  it 

9C20 

20 

8F 

F7 

JSR 

$F78F 

Convert  buffer  into  GCR-bytes 

9C23 

A9 

00 

LDA 

#$00 

Clear  pointer  to  current  position 

9C25 

85 

IB 

STA 

$1B 

in  header  buffer 

9C27 

A2 

06 

LDX 

#$06 

1536  times  $55  (%01010101) 

9C29 

20 

63 

9D 

JSR 

$9D63 

to  diskette 

9C2C1 

AO 

05 

LDY 

#$05 

Number  of  Sync-bytes 

9C2E2 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9C31 

30 

FB 

BMI 

$9C2E 

signal 

9C33 

A9 

FF 

LDA 

#$FF 

Write  byte  for  Sync-marking 

9C35 

8D 

01 

1C 

STA 

$1C01 

to  diskette 

9C38 

2C 

00 

1C 

BIT 

$1C00 

Re-set  Sync  flag 

9C3B 

88 

DEY 

Next  byte 

9C3C 

DO 

FO 

BNE 

$9C2E 

Entire  marking  written? 

9C3E 

A2 

OA 

LDX 

#$0A 

YES-Number  of  header  bytes 

9C40 

A4 

IB 

LDY 

$1B 

Get  buffer  pointer 

9C422 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9C45 

30 

FB 

BMI 

$9C42 

signal 

9C47 

Bl 

32 

LDA 

($32) ,Y 

Get  byte  from  header  buffer 

9C4  9 

8D 

01 

1C 

STA 

$1C01 

and  write  to  diskette 

9C4C 

2C 

00 

1C 

BIT 

$1C00 

Re-set  Sync  flag 

9C4F 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9C50 

CA 

DEX 

Number  of  header  bytes 

9C51 

DO 

EF 

BNE 

$9C42 

Entire  header  written? 

9C53 

AO 

09 

LDY 

#$09 

YES-Number  of  gap  bytes 

9C552 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9C58 

30 

FB 

BMI 

$9C55 

signal 

9C5A 

A9 

55 

LDA 

#$55 

Write  empty  byte  in  gap  between 

9C5C 

8D 

01 

1C 

STA 

$1C01 

header  and  data  block 
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9C5F 

2C 

00 

1C 

BIT 

$1C00 

Control  register  reset 

9C62 

88 

DEY 

Number  of  gap  bytes 

9C63 

DO 

FO 

BNE 

$9C55 

Gap  written? 

9C65 

A9 

FF 

LDA 

#$FF 

write  Sync-marking  for 

9C67 

AO 

05 

LDY 

#$05 

start  of  data  block 

9C692 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9C6C 

30 

FB 

BMI 

$9C69 

signal 

9C6E 

8D 

01 

1C 

STA 

$1C01 

Write  Sync-byte  to  diskette 

9C71 

2C 

00 

1C 

BIT 

$1C00 

Initialize  input  for  Sync  signal 

9C74 

88 

DEY 

Next  byte 

9C75 

DO 

F2 

BNE 

$9C69 

Is  Sync-marking  written? 

9C77 

AO 

BB 

LDY 

#$BB 

YES-Set  buff  pntr  to  status  buffr 

9C792 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9C7C 

30 

FB 

BMI 

$9C79 

signal 

9C7E 

B9 

00 

01 

LDA 

$0100, Y 

Get  data  byte  and 

9C81 

8D 

01 

1C 

STA 

$1C01 

write  to  diskette 

9C84 

2C 

00 

1C 

BIT 

$1C00 

Initialize  Byte  Ready  input 

9C87 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9C88 

DO 

EF 

BNE 

$9C79 

Entire  status  buffer  written? 

9C8A2 

2C 

OF 

18 

BIT 

$180F 

YES-Wait  for  'Byte  ready' 

9C8D 

30 

FB 

BMI 

$9C8A 

signal  until  last  byte  is  written 

9C8F 

Bl 

30 

LDA 

($30) ,Y 

Get  byte  from  data  buffer  &  write 

9C91 

8D 

01 

1C 

STA 

$1C01 

to  diskette 

9C94 

2C 

00 

1C 

BIT 

$1C00 

Initialize  Sync  signal  input 

9C97 

C8 

INY 

Set  buffer  pointer  to  next  byte 

9C98 

DO 

FO 

BNE 

$9C8A 

Data  buffer  written  to  diskette? 

9C9A 

A9 

55 

LDA 

#$55 

YES— Fillbyte  f/gap  betwen  sectors 

9C9C 

AC 

26 

06 

LDY 

$0626 

Number  of  bytes  between  sectors 

9C9F2 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9CA2 

30 

FB 

BMI 

$9C9F 

signal 

9CA4 

8D 

01 

1C 

STA 

$1C01 

Write  byte  to  diskette 

9CA7 

2C 

00 

1C 

BIT 

$1C00 

Initialize  Byte  Ready  input 

9CAA 

88 

DEY 

Next  byte 

9CAB 

DO 

F2 

BNE 

$9C9F 

Gap  written? 

9CAD 

A5 

IB 

LDA 

$1B 

YES— Get  pointer  in  header  buffer 

9CAF 

18 

CLC 

and  compute  number  of  GCR— bytes 

9CB0 

69 

OA 

ADC 

#$0A 

in  header 

9CB2 

85 

IB 

STA 

$1B 

Save  new  pointer 

9CB4 

CE 

28 

06 

DEC 

$0628 

Decrement  number  of  sectors 

9CB7 

FO 

03 

BEQ 

$9CBC 

All  sectors  written? 

9CB9 

4C 

2C 

9C 

JMP 

$9C2C 

NO— Write  next  sector 

9CBC2 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9CBF 

30 

FB 

BMI 

$9CBC 

Wait  until  last  byte  is  written 

9CC1 

2C 

00 

1C 

BIT 

$1C00 

Initialize  Byte  Ready  input 

9CC41 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9CC7 

30 

FB 

BMI 

$9CC4 

signal 
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9CC9 

2C 

00 

1C 

BIT 

$1COO 

Initialize  Byte  Ready  input 

9CCC 

20 

00 

FE 

JSR 

$FE00 

Switch  head  for  reading 

9CCF 

A9 

C8 

LDA 

#$C8 

Determine  number  of  read  attempts 

9CD1 

8D 

23 

06 

STA 

$0623 

(200) 

9CD41 

A9 

00 

LDA 

#$00 

Clear  buffer  pointer  to  current 

9CD6 

85 

IB 

STA 

$1B 

header 

9CD8 

A5 

43 

LDA 

$43 

Get  #  of  sectors  per  track  and 

9CDA 

8D 

28 

06 

STA 

$0628 

set  in  counter 

9CDD1 

20 

54 

97 

JSR 

$9754 

Wait  for  next  Sync-marker 

9CE0 

A2 

OA 

LDX 

#$0A 

Number  of  header  bytes 

9CE2 

A4 

IB 

LDY 

$1B 

Get  pointer  to  current  header  and 

9CE41 

Bl 

32 

LDA 

($32) , Y 

get  first  header  byte 

9CE6^- 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9CE9 

30 

FB 

BMI 

$9CE6 

signal 

9CEB 

CD 

01 

1C 

CMP 

$1C01 

Compare  byte  from  disk  w/header 

9CEE 

DO 

OE 

BNE 

$9CFE 

Identical? 

9CF0 

C8 

INY 

YES— Set  pointer  to  next  byte 

9CF1 

CA 

DEX 

Number  of  header  bytes 

9CF2 

DO 

FO 

BNE 

$9CE4 

Entire  header  checked? 

9CF4 

18 

CLC 

YES— Turn  buffer  pointer 

9CF5 

A5 

IB 

LDA 

$1B 

to  next 

9CF7 

69 

OA 

ADC 

#$0A 

sector  header 

9CF9 

85 

IB 

STA 

$1B 

in  buffer 

9CFB 

4C 

08 

9D 

JMP 

$9D08 

Test  data  block 

9CFE^ 

CE 

23 

06 

DEC 

$0623 

Decrement  number  of  read  attempts 

9D01 

DO 

Dl 

BNE 

$9CD4 

Any  tries  left? 

9D03 

A9 

06 

LDA 

#$06 

NO— Number  for  'Format  error' 

9D05 

4C 

51 

9D 

JMP 

$9D51 

Give  return  message 

9D081 

20 

54 

97 

JSR 

$9754 

Wait  for  next  Sync-marking 

9D0B 

AO 

BB 

LDY 

#$BB 

Turn  buffer  pntr  to  status  buffer 

9D0D^ 

B9 

00 

01 

LDA 

$0100, Y 

get  byte  from  buffer 

9D101 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9D13 

30 

FB 

BMI 

$9D10 

signal 

9D15 

CD 

01 

1C 

CMP 

$1C01 

Compare  buffer  with  diskette 

9D18 

DO 

E4 

BNE 

$9CFE 

Identical? 

9D1A 

C8 

INY 

YES— Set  buffer  pnter  to  next  byte 

9D1B 

DO 

FO 

BNE 

$9D0D 

Entire  buffer  examined? 

golD^ 

Bl 

30 

LDA 

($30) , Y 

YES— Get  byte  from  data  buffer 

9D1F1 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9D22 

30 

FB 

BMI 

$9D1F 

signal 

9D24 

CD 

01 

1C 

CMP 

$1C01 

and  compare  byte  with  diskette 

9D27 

DO 

D5 

BNE 

$9CFE 

Identical? 

9D2  9 

C8 

INY 

YES-Set  buffer  pntr  to  next  byte 

9D2A 

DO 

Fl 

BNE 

$9D1D 

Entire  buffer  examined? 

9D2C 

CE 

28 

06 

DEC 

$0628 

YES-Next  sector 

9D2F 

DO 

AC 

BNE 

$9CDD 

All  sectors  read? 
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9D31 

E6 

51 

INC 

$51 

YES— Set  pointer  to  next  track 

9D33 

A5 

51 

LDA 

$51 

Get  current  format  track 

9D35 

2C 

Bl 

01 

BIT 

$01B1 

Test  flag  for  diskette  side 

9D38 

30 

03 

BMI 

$9D3D 

Is  2nd  side  set? 

9D3A 

C9 

24 

CMP 

#$24 

NO— Test  track  for  maximum  track 

9D3C 

2C 

.byte  $2C 

Jump  next  2  bytes   {bit  command) 

9D3D1 

C9 

47 

CMP 

#$47 

Compare  track  with  max.  track (71) 

9D3F 

BO 

03 

BCS 

$9D44 

Is  current  track  smaller? 

9D41 

4C 

CA 

99 

JMP 

$99CA 

YES — Move  stepper  to  next  track 

9D441 

A9 

FF 

LDA 

#$FF 

Clear  flag  for  current 

9D4  6 

85 

51 

STA 

$51 

format  track 

9D48 

A9 

00 

LDA 

#$00 

Clear  flacr*    'buffer  data  in  GCR' 

9D4A 

85 

50 

STA 

$50 

GCR' 

9D4C 

A9 

01 

LDA 

#$01 

Number  for  'Ok' 

9D4E 

4C 

B5 

99 

JMP 

$99B5 

Give  return  message 

[9B70/9D05] 

end 

format 

9D51 

CE 

20 

06 

DEC 

$0620 

Job  loop  calls  still  to  be  called 

9D54 

FO 

03 

BEQ 

$9D59 

Call  stepper  loop  again? 

9D56 

4C 

CA 

99 

JMP 

$99CA 

YES— Execute  stepper  commands 

9D592 

AO 

FF 

LDY 

#$FF 

Clear  'Formatting  in  process' 

9D5B 

84 

51 

STY 

$51 

flag 

9D5D 

C8 

I  NY 

Clear  'Buffer  data  in  GCR-Code' 

9D5E 

84 

50 

STY 

$50 

flag 

9D60 

4C 

B5 

99 

JMP 

$99B5 

Give  return  message 

[8D56/9AE0/9C29] 

write  X  times  256  bytes  $55  (%01010101)  to  diskette 


9D63 

AD 

OC 

1C 

LDA 

$1C0C 

Get  control  register 

9D66 

29 

IF 

AND 

#$1F 

and  set  head 

9D68 

09 

CO 

ORA 

#$C0 

circuitry  to 

9D6A 

8D 

OC 

1C 

STA 

$1C0C 

write  mode 

9D6D 

A9 

FF 

LDA 

#$FF 

Set  head  register 

9D6F 

8D 

03 

1C 

STA 

$1C03 

to  output 

9D72 

A9 

55 

LDA 

#$55 

Empty  byte  $55 

9D74 

AO 

00 

LDY 

#$00 

Initialize  counter 

9D763 

2C 

OF 

18 

BIT 

$180F 

Wait  for  'Byte  ready' 

9D79 

30 

FB 

BMI 

$9D76 

signal 

9D7B 

2C 

00 

1C 

BIT 

$1C00 

Initialize  input  for  'Byte  ready 

9D7E 

8D 

01 

1C 

STA 

$1C01 

Write  byte  to  diskette 

9D81 

88 

DEY 

Decrement  counter 

9D82 

DO 

F2 

BNE 

$9D76 

256  bytes  already  written 

9D84 

CA 

DEX 

Decrement  block  counter 

9D85 

DO 

EF 

BNE 

$9D76 

Write  another  256  bytes? 

9D87 

60 

RTS 

NO— Return  from  this  subroutine 

ROM -85 


Abacus  Software 


1571  Internals 


[thru  vector-  02A9  from  FE67/BF00] 

1541  interrupt  routine  for  bus-  and  disk  controller 


9D88 

48 

PHA 

R»+*a  l  n    flrnirmi  1  at"  nr 

X\C  UuXJl      QwV^  Will  UXClbVl 

9D89 

8A 

TXA 

I»C      W  V  V— ^  J_ 

9D8A 

48 

PHA 

Y~rpd  "i  efpr 

QnPR 

3UOD 

QP 

TYA 
J.  in 

l\"  V^U  V  \s  i. 

*3  O 

3UOU 

an 

nn 

4  o 

t  na 

OC  U     1.XOIM     LvL     XI 1  L>C?X.  JL  U£Jl>     LJ11  UU^jll 

Qnon 

yuyu 

z  y 

n  p 

awn 

AINU 

Scilol    inpill  /  ULIUpUU    X  try  X  a  a 

r  u 

9  £ 

*  Qnpa 

la    XX ay    act ; 

yjj  y  4 

9p 

at? 

Ax 

09 

*  RTT 
£S1  x 

eoo  af 

XCjO    X In muuc    x  lay    is t=  L. 

yuy  / 

9  T 

z  x 

DMT 

P  yjjrSA 

1  KT1     TDO    v*^Mit"  n  r\d    cwi"t~r*VioH  *in9 
1J  f  1     XiS\i    XUUL-XJlc     aWlLUJlcU    Xil  - 

on  Q  Q 

an 

AU 

OF 

1  p 

t  na 

ti  pop 

VP1  Q— ^  ui"i  +•  r*ri    o  1  ppf  rnni  r*Q 
X  DO     OWll  ui  L  clc^LlUillLiO 

yij  y<« 

og 

o  o 

AOS 

Ui\n 

f  yZU 

on 
ou 

1  P 
IB 

o  1A 

9  x  our 

\  £.   inn  & ; 

9DA1 

A9 

DE 

LDA 

Tiifn  interruot  vector 

9DA3 

8D 

A9 

02 

STA 

$02A9 

in  S02A9/S02AA 

A9 

9D 

LDA 

it  Son 

t" o  routine 

Qna  p 

an 

a  a 

AA 

09 

O  -L  r\ 

$  99DE 

Qnjvn 

AQ 

4  o 

*i  U 

LDA 

Timer*  1    (hloh— bvte^ 

yuAU 

on 

u  / 

1  P 

x^* 

qta 

o  XA 

^1  poi 

8D 

05 

1C 

STA 

$1C05 

(2  mHzl 

9DB3 

A9 

00 

LDA 

Set  flag  for 

9DB5 

85 

62 

STA 

$62 

stepper  pha.se 

onnl 

4p 

pa 

Qn 

.TMP 

1^71    -inh   1  no*o 

yjjort 

an 

nn 

1  P 
XO 

t  na 

LtUt\ 

son 

S>  X  O  ULJ 

Tper    i  nt- *^r" runt*    Fl  acr 

3UDU 

9Q 

09 

awn 

#S09 

anri  i  sol  ate  CA1  incut 

rn 
r  u 

RFC} 

^Qnp4 

Run  into  ATN' 

onpi 

90 

JO 

po 

DO 

$E853 

YP.S— Fl  aas  *  int rruot  frm  serial  bus 

an 

on 

LDA 

$1C0D 

Get  interrupt  f lag  register  and 

oa 

a 

AOL) 

a 

A 

taef   Flarr  frtr"  Timer  1 
lcol    x  x  ay    x  wx    x  jliiiv?  x  x 

BPL 

$9DCD 

T i mer  run'' 

Qnpa 

90 

RO 

F9 

JSR 

$F2B0 

YES— Go  to  1541  controller  routine 

9DCD^ 

BA 

TSX 

Get  stack  pointer  and 

9DCE 

BD 

04 

01 

LDA 

$0104  X 

get  status  from  stack 

9  Q 

1  0 

X  V 

AND 

tviw 

Check  flag  for  jump  through  'BRK1 

yuuo 

r  U 

u  o 

*  Qnnp 

Tntorrurit    r  r»   V*»*»         1  1  *aH    hv    1  BRK  1 

IJILCX I  lipt     L.  U    X/tS    V-« a X XCU        J         ±J£\l\  . 

9DD5 

20 

B0 

F2 

JSR 

$F2B0 

YES— execute  1541controler  routine 

9DD81 

68 

PLA 

Re-set  Y-register  for 

9DD9 

A8 

TAY 

output  value 

9DDA 

68 

PLA 

Re-set  X-register  for 

9DDB 

AA 

TAX 

output  value 

9DDC 

68 

PLA 

Get  accumulator  again 

9DDD 

40 

RTI 

Return  to  break  status 
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[Over  vector  02A9  from  FE67/BF03] 

1541  interrupt  routine  for  bus-  and  disk  controller 


9DDE 

48 

PHA 

OClvc     CI  ^_>V_»  UHl  UiuUUi 

9DDF 

8A 

TXA 

Ret a  i n 

9DE0 

48 

PHA 

9DE1 

98 

TYA 

Pot a  i  n 

9DE2 

48 

PHA 

Y— recrister 

9DE3 

AD 

0D 

40 

LDA 

$400D 

Get  f laa  for  interruot  throuoh 

9DE6 

29 

08 

AND 

#$08 

serial  i/o  retii  stPTs 

9DE8 

FO 

08 

BEQ 

$9DF2 

Is  flacr  sef 

9DEA1 

A5 

37 

LDA 

$37 

Gst  fou  s  s t  at  u  s  byt  e  and 

9DEC 

09 

40 

ORA 

#$40 

set    !1571  bus  mode 1 

9DEE 

85 

37 

STA 

$37 

flag 

9DF0 

DO 

22 

BNE 

$9E14 

lIiiitio  to  4 

9DF2^ 

AD 

0D 

1  8 

J.  o 

T.r)A 

SI  son 

leal    UlLcL  I  upL    J-J-Ciyo  dliu 

9DF5 

29 

02 

AND 

#$02 

9DF7 

FO 

07 

BEQ 

S9E00 

y  7U  vv 

T<s  ATN  found' 

9DF9 

2C 

01 

18 

BIT 

$1801 

YES— Set   flao  back 

9DFC 

A9 

01 

LDA 

#$01 

Sot-    >  ATN  en fmi nt  ptpH  1 

9DFE 

85 

7r 

J.  .Lay 

QPOnl 

3EiUU 

RA 

J.  OA 

9E01 

BD 

04 

01 

LDA 

SOI  04  X 

9E04 

29 

10 

AND 

#$10 

Test    1 Jumo  to  BRK1  flaa 

9E06 

FO 

03 

BEQ 

$9E0B 

Will  a    'BRK'    interruot  be  called' 

9E08 

20 

BA 

92 

JSR 

$92BA 

YES— Execute  1571  ioblooD 

gEOB^ 

AD 

0D 

1C 

LDA 

$1C0D 

9E0E 

OA 

ASL 

t  a  cr*    T  i  mar    1     f  1  an 

LcoU     -L  XII LCI.      X     X  Xcly 

9E0F 

io 

03 

BPL 

$9E14 

Timer  running? 

9E11 

20 

BA 

92 

JSR 

$92BA 

YES-Execute  1571  jobloop 

9E14^ 

68 

PLA 

Rp— set  Y-re(jister  for 

AO 

Inl 

uutpuL  value 

9E16 

68 

PLA 

Re-set  Y-register  for 

9E17 

AA 

TAX 

output  value 

9E18 

68 

PLA 

Get  accumulator  again 

9E19 

40 

RTI 

Return  to  break  status 

9E1A 

FF 

unused 

9F0C 

.  FF 
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Tables  for  converting  5  GCR-bytes  into  4  binary  bytes 
($FF  means  that  this  GCR  value  is  non-existent) 


[9632/9650/993B/9F0F:9683, 96F1, 9947/9F1D: 96A0, 994E/9F2A: 96C4, 995A] 
Table  for  GCR  values  2,  4,  5  and  7 


9F0D 

OC 

04 

05 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

9F1D 

OD 

0E 

80 

FF 

00 

00 

10 

40 

FF 

20 

CO 

60 

40 

AO 

50 

EO 

9F2D 

FF 

FF 

FF 

02 

20 

08 

30 

FF 

FF 

00 

FO 

FF 

60 

01 

70 

FF 

9F3D 

FF 

FF 

90 

03 

AO 

OC 

BO 

FF 

FF 

04 

DO 

FF 

EO 

05 

80 

FF 

9F4D 

90 

FF 

08 

OC 

FF 

OF 

09 

OD 

80 

02 

FF 

FF 

FF 

03 

FF 

FF 

9F5D 

00 

FF 

FF 

OF 

FF 

OF 

FF 

FF 

10 

06 

FF 

FF 

FF 

07 

00 

20 

9F6D 

AO 

FF 

FF 

06 

FF 

09 

FF 

FF 

CO 

OA 

FF 

FF 

FF 

OB 

FF 

FF 

9F7D 

40 

FF 

FF 

07 

FF 

OD 

FF 

FF 

50 

OE 

FF 

FF 

FF 

FF 

10 

30 

9F8D 

BO 

FF 

00 

04 

02 

06 

OA 

OE 

80 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

9F9D 

20 

FF 

08 

09 

80 

10 

CO 

50 

30 

30 

FO 

70 

90 

BO 

DO 

FF 

9FAD 

FF 

FF 

00 

OA 

FF 

FF 

FF 

FF 

FO 

[864F/866B/8697/A424/A439/A450/D651/D6D9] 
Call  job  loop  and  execute  job 
9FB6     00  BRK 
9FB7     EA  NOP 
9FB8     B5  00  LDA  $00, X 

9FBA     30  FC  BMI  $9FB8 

9FBC     60  RTS 


Call  job  loop 
Match  jump  address 
Get  job  register 
Is  job  executing? 
YES— Return  from  this  subroutine 


Table  for  GCR  values  2,  4,  5  and  7  (2nd  part) 
9FBD  60  FF  01  OB  FF  FF  FF  FF  70  FF  FF  FF  FF  FF  CO  FO 
9FCD  DO  FF  01  05  03  07  OB  FF  90  FF  FF  FF  FF  FF  FF  FF 
9FDD  AO  FF  OC  OD  FF  FF  FF  FF  BO  FF  FF  FF  FF  FF  40  60 
9FED  EO  FF  04  OE  FF  FF  FF  FF  DO  FF  FF  FF  FF  FF  FF  FF 
9FFD  EO  FF  05  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF  50  70 


[9619/9644/9936]     Table  for  GCR  value  1 


AOOD 

OC 

04 

05 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

AO  ID 

OD 

OE 

80 

FF 

00 

00 

10 

40 

FF 

20 

CO 

60 

40 

AO 

50 

EO 

A02D 

FF 

FF 

FF 

02 

20 

08 

30 

30 

30 

00 

FO 

FF 

60 

01 

70 

FF 

A03D 

FF 

FF 

90 

03 

AO 

OC 

BO 

FF 

FF 

04 

DO 

FF 

EO 

05 

80 

FF 

A04D 

90 

FF 

08 

OC 

FF 

OF 

09 

OD 

80 

80 

80 

80 

80 

80 

80 

80 

A05D 

00 

00 

00 

00 

00 

00 

00 

00 

10 

10 

10 

10 

10 

10 

10 

10 

A06D 

AO 

FF 

FF 

06 

FF 

09 

FF 

FF 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

A07D 

40 

40 

40 

40 

40 

40 

40 

40 

50 

50 

50 

50 

50 

50 

50 

50 

A08D 

BO 

FF 

00 

04 

02 

06 

OA 

OE 

80 

80 

80 

80 

80 

80 

80 

80 

A09D 

20 

20 

20 

20 

20 

20 

20 

20 

30 

30 

30 

30 

30 

30 

30 

30 

AOAD 

FF 

FF 

00 

OA 

OA 

OA 

OA 

OA 

FO 

FO 

FO 

FO 

FO 

FO 

FO 

FO 

AOBD 

60 

60 

60 

60 

60 

60 

60 

60 

70 

70 

70 

70 

70 

70 

70 

70 

AOCD 

DO 

FF 

01 

05 

03 

07 

OB 

FF 

90 

90 

90 

90 

90 

90 

90 

90 
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AODD 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

BO 

BO 

BO 

■q  a 
BU 

OA 

BU 

D  A 

BU 

DA 

O  A 

BU 

AOED 

EO 

FF 

04 

OE 

FF 

FF 

FF 

FF 

DO 

DO 

DO 

nA 
UU 

!JU 

r\A 

n  A 
UU 

HA 
UU 

AOFD 

EO 

EO 

EO 

EO 

EO 

EO 

EO 

EO 

05 

05 

05 

A  t: 
UO 

AC 

UD 

A  R 
UO 

^  A 
DU 

1  A 
/  U 

[966A/96DA/9942] 

Table  for  GCR- 

■value 

J 

at  on 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

TP  TP 

if  £ 

TPtP 

TPTP 
£  £ 

£  £ 

£  £ 

A11D 

FF 

FF 

80 

80 

00 

00 

10 

10 

FF 

FF 

CO 

r*A 
UU 

a  a 

A  A 

OU 

C\  A 
OU 

r  r 

FF 
r  r 

FF 

FF 
r  r 

20 

20 

30 

30 

FF 

FF 

FO 

TP  A 

r  u 

CA 

OU 

7  A 
/  U 

1  U 

at 

FF 

FF 

90 

90 

AO 

AO 

BO 

BO 

FF 

FF 

DO 

nA 
uu 

it  a 

EjU 

1?  A 

r  £ 

£  £ 

A14D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

ITT? 
£  £ 

TP  TP 

£  £ 

£  £ 

PIT 
£  £ 

A1DU 

FF 

FF 

on 
o  u 

on 
oU 

T  n 

J.  u 

T  ft 

FF 

r  r 

FF 

/"•A 

A  A 

A  A 

c;  a 
OU 

c;  A 
OU 

A16D 

FF 

FF 

FF 

FF 

20 

20 

30 

30 

FF 

FF 

FO 

£  U 

c  a 
ou 

DU 

1  A 

/  u 

1  A 
/  U 

A17D 

FF 

FF 

90 

90 

AO 

AO 

BO 

BO 

FF 

FF 

DO 

r\  A 
UU 

PA 
LU 

1?  A 

£  £ 

IP  TP 
£  £ 

A18D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

en* 
r  r 

TpTTI 

r  r 

T7TP 
£  £ 

TIT 
£  £ 

TP  IP 
£  £ 

A19D 

FF 

FF 

80 

80 

00 

00 

10 

10 

FF 

FF 

CO 

cu 

A  A 

q  U 

/I  A 

H  U 

C  A 

OU 

c:  a 
0  U 

A1AD 

FF 

FF 

FF 

FF 

20 

20 

30 

30 

FF 

FF 

FO 

FO 

60 

60 

70 

70 

A1BD 

FF 

FF 

90 

90 

AO 

AO 

BO 

BO 

FF 

FF 

DO 

DO 

EO 

EO 

FF 

FF 

A1CD 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

A1DD 

FF 

FF 

80 

80 

00 

00 

10 

10 

FF 

FF 

CO 

CO 

40 

40 

50 

50 

A1ED 

FF 

FF 

FF 

FF 

20 

20 

30 

30 

FF 

FF 

FO 

FO 

60 

60 

70 

70 

A1FD 

FF 

FF 

90 

90 

AO 

AO 

BO 

BO 

FF 

FF 

DO 

DO 

EO 

EO 

FF 

FF 

[96A8/9953]     Table  for  GCR  value  6 


A20D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

A21D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

A22D 

FF 

FF 

FF 

FF 

08 

08 

08 

08 

00 

00 

00 

00 

01 

01 

01 

01 

A23D 

FF 

FF 

FF 

FF 

OC 

OC 

OC 

OC 

04 

04 

04 

04 

05 

05 

05 

05 

A24D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

02 

02 

02 

02 

03 

03 

03 

03 

A25D 

FF 

FF 

FF 

FF 

OF 

OF 

OF 

OF 

06 

06 

06 

06 

07 

07 

07 

07 

A26D 

FF 

FF 

FF 

FF 

09 

09 

09 

09 

OA 

OA 

OA 

OA 

OB 

OB 

OB 

OB 

A27D 

FF 

FF 

FF 

FF 

OD 

OD 

OD 

OD 

OE 

OE 

OE 

OE 

FF 

FF 

FF 

FF 

A28D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

A29D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

A2AD 

FF 

FF 

FF 

FF 

08 

08 

08 

08 

00 

00 

00 

00 

01 

01 

01 

01 

A2BD 

FF 

FF 

FF 

FF 

OC 

OC 

OC 

OC 

04 

04 

04 

04 

05 

05 

05 

05 

A2CD 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

02 

02 

02 

02 

03 

03 

03 

03 

A2DD 

FF 

FF 

FF 

FF 

OF 

OF 

OF 

OF 

06 

06 

06 

06 

07 

07 

07 

07 

A2ED 

FF 

FF 

FF 

FF 

09 

09 

09 

09 

OA 

OA 

OA 

OA 

OB 

OB 

OB 

OB 

A2FD 

FF 

FF 

FF 

FF 

OD 

OD 

OD 

OD 

OE 

OE 

OE 

OE 

FF 

FF 

FF 

FF 

[96CC/995F]     Table  for 

GCR  value  8 

A30D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 

A31D 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

A32D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 

A33D 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

A34D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 
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A35D 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

A36D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 

A37D 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

A38D 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 

A39D 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

A3  AD 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 

A3BD 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

A3CD 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 

A3DD 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

A3ED 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

08 

00 

01 

FF 

OC 

04 

05 

A3FD 

FF 

FF 

02 

03 

FF 

OF 

06 

07 

FF 

09 

OA 

OB 

FF 

OD 

OE 

FF 

[A783/A989] 

Format  diskette  in  Commodore  1571  format 


A40D 

A9 

47 

LDA 

#$47 

Number  of  greatest 

A40F 

8D 

AC 

02 

STA 

$02AC 

track  to  be  formatted 

A412 

A9 

03 

LDA 

#$03 

Number  of  current  buffer 

A414 

20 

D3 

D6 

JSR 

$D6D3 

Track/sector  to  job  loop 

A417 

A2 

03 

LDX 

#$03 

Go  to  buffer  3 

A419 

A9 

00 

LDA 

#$00 

Set  diskette  side  flag  to 

A41B 

8D 

B2 

01 

STA 

$01B2 

side  1 

A41E 

A9 

FO 

LDA 

#$F0 

Save  ' Format ' 

A420 

85 

3B 

STA 

$3B 

jobcode 

A422 

95 

00 

STA 

$00, X 

Send  to  job  loop 

A424 

20 

B6 

9F 

JSR 

$9FB6 

Execute  job  (Format) 

A427 

C9 

02 

CMP 

#$02 

Test  for  'Ok'  message 

A42  9 

BO 

45 

BCS 

$A470 

Jobe  run  error-free? 

A42B 

AO 

03 

LDY 

#$03 

Number  of  read  attempts  (4) 

A42D1 

A9 

01 

LDA 

#$01 

YES— Send  track  number  (1) 

A42F 

85 

OC 

STA 

$0C 

to  job  loop 

A431 

A9 

00 

LDA 

#$00 

Set  sector  number  (0)  for 

A433 

85 

OD 

STA 

$0D 

job  loop 

A435 

A9 

80 

LDA 

#$80 

Jobcode  for  'Read  sector' 

A437 

95 

00 

STA 

$00, X 

to  job  loop 

A439 

20 

B6 

9F 

JSR 

$9FB6 

Test-read  sector  1,0 

A43C 

C9 

02 

CMP 

#$02 

Check  for  'OK'  message 

A43E 

90 

05 

BCC 

$A445 

Job  run  without  problems? 

A440 

88 

DEY 

Next  read  attempt 

A441 

10 

EA 

BPL 

$A42D 

Have  4  attempts  been  made? 

A443 

BO 

2B 

BCS 

$A470 

YES-Jump  to  $A470 

A4451 

A9 

01 

LDA 

#$01 

Set  diskette  side  flag 

A447 

8D 

B2 

01 

STA 

$01B2 

to  side  2 

A4  4A 

A9 

FO 

LDA 

#$F0 

Set  ' Format ' 

A44C 

85 

3B 

STA 

$3B 

jobcode 

A44E 

95 

00 

STA 

$00, X 

Give  to  job  loop 

A450 

20 

B6 

9F 

JSR 

$9FB6 

Execute  job 
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A453 

C9 

02 

CMP 

#$02 

Compare  with  'Ok'  message 

A455 

BO 

19 

BCS 

$A470 

Job  run  error— free? 

A457 

AO 

03 

LDY 

A     ft  1 

#503 

ic,S — bet  numJjer  ox  read  attempts 

A4591 

A9 

24 

LDA 

#$24 

Track  number  (36) 

A45B 

85 

OC 

STA 

$0C 

to  job  loop 

A45D 

A9 

00 

LDA 

#$00 

Sector  number  (0) 

A45F 

85 

OD 

STA 

$0D 

to  job  loop 

A4  61 

A9 

80 

LDA 

#$80 

Set  jobcode  for  "Read 

A463 

95 

00 

STA 

$00, X 

sector ' 

A465 

20 

B6 

9F 

JSR 

$9FB6 

test-read  sector  36,0 

A4  68 

C9 

02 

CMP 

#$02 

Check  for  'OK' 

A4  6A 

BO 

01 

BCS 

$A46D 

Is  there  an  error? 

A4  6C 

60 

RTS 

NO— Return  from  this  subroutine 

A46D1 

88 

DEY 

Next  try 

A46E 

10 

E9 

BPL 

$A459 

Three  attempts  been  made? 

A4703 

A2 

00 

LDX 

#$00 

YES — Set  flag  value j1 Error  noted 

A472 

2C 

98 

02 

BIT 

$0298 

in  error  status  flag; 

A475 

8E 

98 

02 

STX 

$0298 

set  new  value 

A478 

10 

01 

BPL 

$A47B 

Should  error  be  acknowledged? 

A47A 

60 

RTS 

NO— Return  from  this  subroutine 

A47B1 

4C 

OA 

E6 

JMP 

$E60A 

Output  error  message 

[8294/82A1/885E/BF39] 
45-cycle  delay 

A47E    8A  TXA  Recover  X-register 

A47F    A2  05  LDX  #$05  Set  delay  value 

A481     DO  03  BNE  $A486  Jump  to  $A486 


[ 8181/8187 /8298/82A8/8F0A/8F51/903A/9056/A78E/BF33] 
80-cycle  delay 

A4  83     8A  TXA  Recover  X-register 

A484    A2  0D  LDX  #$0D  Set  delay  value 

A4861  CA  DEX  Decrement  counter 

A487     DO  FD  BNE  $A486  End  of  delay? 

A489    AA  TAX  YES-Re-establish  X-register 

A48A    60  RTS  Return  from  this  subroutine 


[A4C2/A508/A51E/A54F/A5A7/A678/A962] 
Recover  BAM  buffer  pointer 


A48B 

A5 

6D 

LDA 

$6D 

Get  low-byte  and 

A48D 

8D 

AD 

02 

STA 

$02AD 

temporarily  store 

A4  90 

A5 

6E 

LDA 

$6E 

Get  high-byte  holen  and 

A4  92 

8D 

AE 

02 

STA 

$02AE 

temporarily  store 

A495 

60 

RTS 

Return  from  this  subroutine 
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[A4D1/A51B/A531/A58A/A5C2/A6C7/A6E2/A97B] 
Re-establish  BAM  buffer  pointer 


A4  96 
A4  99 
A4  9B 
A4  9E 
A4A0 


AD  AD 
85  6D 
AD  AE 
85  6E 
60 


02 


02 


LDA  $02AD 
STA  $6D 
LDA  $02AE 
STA  $6E 
RTS 


Get  lo-byte  from  temp,  storage  & 
re-set 

Get  hi-byte  from  temp,  storage  & 
re-set 

Return  from  this  subroutine 


[A851/A887/A8BC/A8F5/A918/A931 ] 


Set  pointer  to 
A4A1     A6  7F 
A4A3     BD  FF  00 
A4A6    F0  05 
A4A8     A9  74 
A4AA    20  48  E6 
A4AD1  20  19  Fl 
A4B0     20  DF  F0 
A4B3    AD  F9  02 
A4B6    F0  07 
A4B8     09  80 
A4BA     8D  F9  02 
A4BD     DO  03 
A4BF1  20  8D  A5 


A4C2-1 

A4C5 

A4C8 

A4CA 

A4CB 

A4CD 

A4CE 

A4D0 

A4D1 

A4D4 

A4D5 


20  8B  A4 
20  34  A5 
A5  80 
38 

E9  24 
A8 

Bl  6D 
48 

20  96  A4 

68 

60 


BAM-pattern  of 
LDX  $7F 
LDA  $00FF,X 
BEQ  $A4AD 
LDA  #$74 
JSR  $E648 
JSR  $F119 
JSR  $F0DF 
LDA  $02F9 
BEQ  $A4BF 
ORA  #$80 
STA  $02F9 
BNE  $A4C2 
JSR  $A58D 
JSR  $A48B 
JSR  $A534 
LDA  $80 
SEC 

SBC  #$24 
TAY 

LDA  ($6D),Y 
PHA 

JSR  $A4  96 
PLA 
RTS 


sector  (for  side  2) 

Number  of  current  drive  (0) 
Get  drive  status 
Is  drive  ready? 
NO-Give 

'74  drive  not  ready'  error  messge 

Determine  channel  number  of  BAM 

Read  BAM  from  diskette 

Test  'legal/illegal  BAM'  flag 

Is  BAM  on  disk  legal? 

YES-Set  'Write  BAM' 

flag 

Jump  to  $A4C2 

Write  BAM  to  diskette 

Recover  BAM  buffer  pointer 

Set  new  buffer  pointer 

Get  number  of  current  track 

and  compute  track 

from  side  1, 

then  get  correct  #  of  free  blocks 
in  track  from  buffer 
Save  value 

Re-establish  old  buffer  pointer 
Repeat  number  of  blocks 
Return  from  this  subroutine 


A4D6    FF  ...  unused 
A4E6     . . .  FF  ROM  area 
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[A854/A88A/A8CF] 


Get  BAM  bit 

of  a 

sector  (for  side 

2) 

A4E7 

A5 

80 

LDA  $80 

Number  of  desired  track 

A4E9 

38 

SEC 

Compute  physical  track 

A4EA 

E9 

24 

SBC  #$24 

number  and 

A4EC 

A8 

TAY 

save  it 

A4ED 

A5 

81 

LDA  $81 

Get  #  of  desired  sector  &  divide 

A4EF 

4A 

LSR  A 

by  8  (8  bits  per  byte) 

A4F0 

4A 

LSR  A 

and  choose  corresponding  byte  of 

A4F1 

4A 

LSR  A 

three  BAM- bytes 

A4F2 

18 

CLC 

to  position  in  BAM-pattern 

A4F3 

79 

DB 

A5 

ADC  $A5DB,Y 

Add  track  position  and  save 

A4F6 

A8 

TAY 

as  pointer  to  BAM-pattern 

A4F7 

A5 

81 

LDA  $81 

Get  number  of  desired  sector  and 

A4F9 

29 

07 

AND  #$07 

state  position  of  BAM-bits  in 

A4FB 

AA 

TAX 

byte-pattern 

A4FC 

B9 

01 

LDA  $0146, Y 

Get  byte-pattern  from  BAM-buffer 

A4FF 

3D 

E9 

EF 

AND  ?EFt9,X 

ana  isolate  seutoi  l>xl 

A502 

08 

PHP 

Save  value 

A503 

B9 

46 

01 

LDA  $0146, Y 

Get  entire  byte-pattern  again  and 

A506 

28 

PLP 

get  previous  value  from  it 

A507 

60 

RTS 

Return  from  this  subroutine 

[A862] 

Increment  number 

of  blocks  to  a  track  in  BAM 

A508 

20 

8B 

A4 

JSR  $A48B 

Recover  current  BAM-pointer 

A50B 

20 

34 

A5 

JSR  $A534 

Set  pointer  to  BAM-pattern 

A50E 

A5 

80 

LDA  $80 

Get  number  of  desired  track  and 

A510 

38 

SEC 

calculate  physical  track 

A511 

E9 

24 

SBC  #$24 

number  (side-1  value)  and 

A513 

A8 

TAY 

save  it; 

A514 

18 

CLC 

then 

A515 

Bl 

6D 

LDA  ($6D),Y 

et  byte  for  number  of  blocks  per 

A517 

69 

01 

ADC  #$01 

track  and  increment 

A519 

91 

6D 

STA  ($6D),Y 

by  one 

A51B 

4C 

96 

A4 

JMP  $A496 

Repeat  current  BAM-pointer 

[A898] 

Decrement  number  of  free  blocks 


A51E 

20 

8B 

A4 

JSR 

$A48B 

A521 

20 

34 

A5 

JSR 

$A534 

A52  4 

A5 

80 

LDA 

$80 

A526 

38 

SEC 

A527 

E9 

24 

SBC 

#$24 

A529 

A8 

TAY 

A52A 

38 

SEC 

to  a  track  in  BAM 

Recover  current  BAM-pointer 
BAMpointer  to  track's  Bytepattern 
Get  number  of  track  desired  and 
compute  physical  track  number 
(Side-1  value)  and 
save  it 

Decrement  number  of 
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A52B  Bl  6D  LDA  ($6D),Y  free  track  blocks 

A52D  E9  01  SBC  #$01  in  appropriate  BAM 

A52F  91  6D  STA  ($6D),Y  byte 

A531  4C  96  A4  JMP  $A4  96  Re-set  old  BAM-pointer 


[A4C5/A50B/A521/A552/A965] 

Set  buffer  pointer  for  2nd  buffer 


A534 

A2 

0D 

LDX 

#$0D 

A536 

B5 

A7 

LDA 

$A7,X 

A538 

29 

OF 

AND 

#$0F 

A53A 

AA 

TAX 

A53B 

BD 

EO  FE 

LDA 

$FEE0,X 

A53E 

85 

6E 

STA 

$6E 

A540 

A9 

DD 

LDA 

#$DD 

A542 

85 

6D 

STA 

$6D 

A544 

60 

RTS 

from  internal  channel  6 

Channel  number  for  2nd  buffer  (6) 

Get  and  save  pre-arranged 

buffer 

number 

Get  hi-byte  of  buffer  address  and 
take  up  in  buffer  pointer 
Set  low-byte  for 
BAM-pointer 

Return  from  this  subroutine 


[A8BF/A94E] 

Verify  number  of  blocks  free  (side  2  BAM) 


A545 

A5 

6F 

LDA 

$6F 

Recover  temporary 

A547 

48 

PHA 

storage 

A54  8 

A5 

80 

LDA 

$80 

Get  current  track  number  (side  2) 

A54A 

38 

SEC 

and  calculate 

A54B 

E9 

24 

SBC 

#$24 

physical  number 

A54D 

A8 

TAY 

Save 

A54E 

48 

PHA 

track  number 

A54F 

20 

8B 

A4 

JSR 

$A48B 

Recover  current  BAM-pointer 

A552 

20 

34 

A5 

JSR 

$A534 

Set  pointer  to  BAM-pattern 

A555 

Bl 

6D 

LDA 

($6D),Y 

Get  /  save  given  number  of 

A557 

48 

PHA 

blocks  free 

A558 

A9 

00 

LDA 

#$00 

Clear  temporary  storage  area  for 

A55A 

85 

6F 

STA 

$6F 

number  of  blocks  free 

A55C 

A9 

01 

LDA 

#$01 

Set  pointer  to  buffer  for 

A55E 

85 

6E 

STA 

$6E 

back-side 

A560 

B9 

DB 

A5 

LDA 

$A5DB,Y 

Get  pos.  of  BAM-pattern  in  buffer 

A563 

18 

CLC 

and  calculate  in  buffer  area 

A564 

69 

46 

ADC 

#$46 

$0146-$01BB 

A566 

85 

6D 

STA 

$6D 

Set  BAM-pointer 

A568 

AO 

02 

LDY 

#$02 

Number  of  BAM-pattern-bytes  -1 

A56A1 

A2 

07 

LDX 

#$07 

Number  of  bits  per  byte  -1 

A56C1 

Bl 

6D 

LDA 

<$6D) ,Y 

Get  bit-pattern  of  sectorlayout 

A56E 

3D 

E9 

EF 

AND 

$EFE9,X 

and  isolate  one  bit  of  sector 

A571 

F0 

02 

BEQ 

$A575 

Is  sector  free? 

A573 

E6 

6F 

INC 

$6F 

YES— Increment  #  of  blocks  free 

A5751 

CA 

DEX 

Test  next  bit 

A576 

10 

F4 

BPL 

$A56C 

Entire  byte  viewed? 
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A578 

88 

Dfcil 

Tnrlnde  next  BAM-bvte  of  track 

A57  9 

10 

EF 

BPL 

I?Ao  oA 

all  hloflcs  of  track  checked? 

A57B 

68 

PLA 

YES— Get  #  of  BAM  blocks  given  and 

A57C 

C5 

6F 

CMP 

9  or 

r-^mnaro    w*i  i~  H    n  pw  number 

A57E 

F0 

05 

rj  T7i 

e  A  C  QC 

9nOoO 

Block  layout  correct? 

A580 

A9 

71 

LDA 

#571 

vif>    Q  -]  en  1  a\/ 
IN  v>    U  Ibpi  ay 

A582 

20 

45  E6 

JSR 

$E645 

■71  Dir  Error'  message 

A5851 

68 

PLA 

Repeat  number  track 

A586 

A8 

TAY 

being  worked  on 

A587 

68 

PLA 

Re-establish 

A588 

85 

6F 

STA 

$6F 

temporary  storage 

A58A 

4C 

96  A4 

JMP 

$A496 

Re-establish  BAM-pointer 

[A4BF/EF37/F001/F09C] 
Write  1571/1541  BAM  to  diskette 


A58D 

AD 

OF 

18 

LDA 

9  lour 

Pot-   fnntrnl    recrister  and 

A590 

29 

20 

AND 

rraf-    nnorat*  1  no   mode    f  laCT 

A592 

DO 

03 

BNE 

T  <s  dr  i  ve  in  1541  mode? 

A5941 

4C 

8A 

D5 

JMP 

$D58A 

vrQ-Urlt e  buffer  to  disk  (1541) 

A5971 

AD 

AC 

02 

LDA 

$02AC 

r*^-i-  Vi  n  rrVioct-  1-  rar-lc  #  from  diskette 

IjCL     ilXylltSoL*      Ul  a^J\      TT             will     v*4.iinv  w  >—  ->— 

A59A 

C9 

25 

CMP 

#525 

aiiu  tyUiii^ai  c   w j.  l»h  — ' 

A5  9C 

90 

F6 

BCC 

9Aoy^ 

r\4  eVotria  two- sided? 

A5  9E 

A6 

F9 

LUX 

YES— Get  number  of  current  buffer 

A5A0 

BD 

5B 

\jZ 

T 

nes-t-cirTrn  np  and  recover 

A5A3 

48 

nil  1\ 

-a Y>r^T*  or>T  "I  at  P  "inbcode 

A5A4 

20 

8A 

D5 

JSR 

wrifa  eort rtr  to  diskette 

A5A7 

20 

8B 

A4 

JSR 

$A48B 

Recover  current  BAM-pointer 

A5AA 

20 

3A 

EF 

JSR 

$EF3A 

Read  BAM  into  buffer 

A5AD 

20 

08 

F0 

JSR 

$F008 

Clear  buffer  for  BAM 

A5B0 

A5 

F9 

LDA 

$F9 

Get  number  of  current  buffer  and 

A5B2 

OA 

ASL 

A 

double  it  (pointers  use 

A5B3 

AA 

TAX 

2-byte  table) 

A5B4 

A9 

35 

LDA 

#$35 

Give  track  18,  side  2 (track  53) 

A5B6 

95 

06 

STA 

$06, X 

to  job  loop 

A5B8 

AO 

68 

LDY 

#$68 

Buffer  pointer  to  end  of  1571  BAM 

A5BA1 

B9 

46 

01 

LDA 

$0146, Y 

Get  byte  from  BAM-buffer  &  write 

A5BD 

91 

6D 

STA 

<$6D),Y 

in  current  data  buffer 

A5BF 

88 

DEY 

Turn  pointer  to  next  byte 

A5C0 

10 

F8 

BPL 

$A5BA 

Entire  buffer  copied? 

A5C2 

20 

96 

A4 

JSR 

$A4  96 

YES— re-establish  BAM-pointer 

A5C5 

20 

8A 

D5 

JSR 

$D58A 

Write  sector  to  diskette 

A5C8 

A5 

F9 

LDA 

$F9 

Get  number  of  current  buffer  and 

A5CA 

OA 

ASL 

A 

double  it  (2-byte  values  for 

A5CB 

AA 

TAX 

pointer  table) 

A5CC 

AD 

85 

FE 

LDA 

$FE85 

Give  #  of  directory  track (side  1) 

A5CF 

95 

06 

STA 

$06, X 

to  job  loop 
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A5D1 

20 

86 

D5 

JSR 

$D586 

Read  sector  from  diskette 

A5D4 

68 

PLA 

ReDeat  iobrfirif* 

— x ^—          U  w         I  wVV^u^LC 

A5D5 

A6 

F9 

LDX 

$F9 

Number  of  current  buffer 

A5D7 

9D 

5B 

02 

STA 

$025B,X 

Write  jobcode  again  in  table 

A5DA 

60 

RTS 

Return  from  this  subroutine 

used  in 

:  A4F3/A560] 

Position 

of 

BAM 

-pattern  of 

track 

in  BAM-buffer 

A5DB 

00 

03 

06 

09  0C 

OF  12 

15  18 

IB  IE  21  24  27  2A  2D 

A5EB 

30 

33 

36 

39  3C 

3F  42 

45  48 

4B  4E  51  54  57  5A  5D 

A5FB 

60 

63 

66 

[E7A3] 

Routine  for 

S -command 

A5FE 

AD 

OF 

18 

LDA 

$180F 

Get  control  register  and 

A601 

29 

20 

AND 

#$20 

test  operating  mode 

A603 

F0 

OF 

$A614 

Is  drive  in  1571  mode? 

A605 

AO 

00 

LDY 

#$00 

YES— [Error  —  see  7.1.5] 

A607 

A2 

00 

LDX 

#$00 

[unnecessary  initialization] 

A609 

A9 

01 

LDA 

#$01 

Turn  pointer  to  beginning  of 

A60B 

8D 

7A 

02 

STA 

$027A 

input  buffer 

A60E 

20 

12 

C3 

JSR 

$C312 

Get  drive  number 

A611 

4C 

A8 

E7 

JMP 

$E7A8 

Return  to  1541  S-routine 

A6141 

A9 

8D 

LDA 

#$8D 

Look  for  endsignal (Shift <Return>) 

A616 

20 

68 

C2 

JSR 

$C268 

in  command  string 

A619 

4C 

A8 

E7 

JMP 

$E7A8 

Return  to  1541  S-routine 

[EBFC] 

Execute  command 

from 

computer 

A61C 

20 

46 

CI 

JSR 

$C146 

Execute  command  string 

A61F 

20 

B2 

81 

JSR 

$81B2 

Switch  1571  bus  to  input 

A622 

A5 

37 

LDA 

$37 

Get  bus  status  byte  and  clear 

A624 

29 

7F 

AND 

#$7F 

■1571  mode' 

A62  6 

85 

37 

STA 

$37 

flag 

A628 

4C 

FF 

EB 

JMP 

$EBFF 

Return  to  waitloop 

[F997] 

Initialize 

motor  out '  counter 

A62B 

A9 

FF 

LDA 

#$FF 

Set  counter  for  the  motor 

A62D 

85 

48 

STA 

$48 

runtime 

A62F 

A9 

06 

LDA 

#$06 

Number  of  stepper  routine  calls 

A631 

85 

35 

STA 

$35 

yet  to  be  done 

A633 

60 

RTS 

Return  from  this  subroutine 
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[F9AB] 


Motor 

on 

,lT9  4  4- 

until  turn 

numbers 

A634 

DO 

07 

BNE 

$A63D 

Has  'Write  Protect'  been  changed? 

A636 

AD 

AB 

LDA 

$02AB 

Get  high-speed  phase  counter 

A639 

DO 

10 

BNE 

$A64B 

Is  motor  on  turn  number? 

A63B 

FO 

1A 

BEQ 

$A657 

YF^ — .TiimD  to  $A657 

A63D1 

A9 

FF 

LDA 

#$FF 

Set  runtime 

A63F 

8D 

AB 

02 

STA 

$02AB 

counter 

A642 

20 

64 

on 

JSR 

$8764 

Motor  on 

A645 

Ay 

U 1 

LDA 

#$01 

Set  'Diskette  initializing' 

A647 

85 

1C 

STA 

$1C 

flag 

A64  9 

uu 

BNE 

$A657 

Jump  to  $A657 

A64B1 

CE 

AB 

02 

DEC 

$02AB 

Decrement  number  of  Wait-IRQs 

A64E 

DO 

07 

BNE 

$A657 

Is  motor  on  turn  number? 

A650 

A5 

20 

LDA 

$20 

YES-Get  drive  status 

A652 

DO 

03 

BNE 

$A657 

Motor  been  on? 

A654 

20 

70 

87 

JSR 

$8770 

NO-Motor  on 

A6574 

4C 

Bl 

F9 

JMP 

$F9B1 

Return  to  head  control  routine 

[FF15] 

Initialize  I/O  registers 


A65A 

A9 

02 

LDA 

#$02 

Set  Data  output 

A65C 

8D 

00 

18 

STA 

$1800 

to  high 

A65F 

A9 

20 

LDA 

#$20 

Switch  to  157 lmode, turn  bus:inpu 

A661 

8D 

01 

18 

STA 

$1801 

and  head  to  side  1 

A664 

4C 

18 

FF 

JMP 

$FF18 

Return  to  Reset  routine 

[D05D/F107] 

Read 

1571/1541 

BAM  from  diskette 

A667 

AD 

OF 

18 

LDA 

$180F 

Get  control  register  and  test 

A66A 

29 

20 

AND 

#$20 

operating  mode 

A66C 

DO 

03 

BNE 

$A671 

Is  drive  in  1541  mode? 

A66E1 

4C 

86 

D5 

JMP 

$D586 

YES— Read  sector 

A6711 

AD 

AC 

02 

LDA 

$02AC 

Get  highest  track  number  and 

A674 

C9 

25 

CMP 

#$25 

compare  with  35 

A676 

90 

F6 

BCC 

$A66E 

2  sides  used? 

A678 

20 

8B 

A4 

JSR 

$A48B 

YES— recover  current  BAM-pointer 

A67B 

A9 

00 

LDA 

#$00 

Turn  BAM-pointer  to 

A67D 

85 

6D 

STA 

$6D 

start-of-buf fer 

A67F 

A6 

F9 

LDX 

$F9 

Get  buffer  number  and 

A681 

BD 

E0 

FE 

LDA 

$FEE0,X 

get  hi-byte  of  buffer  address; 

A684 

85 

6E 

STA 

$6E 

set  in  buffer  pointer 

A686 

A9 

FF 

LDA 

#$FF 

Set  'Error  from  job  execution 

A688 

8D 

98 

02 

STA 

$0298 

not  noticed' 
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A68B 

A5 

F9 

LDA 

$F9 

repeat,  our rer  nunuoer 

A68D 

OA 

ASL 

A 

and    doublp     "11"      ffAhlo    nccac  0 

A68E 

AA 

TAX 

^Ul  CLlLlt^  ucjL  o  / 

A68F 

A9 

35 

LDA 

#$35 

*oj.ve  LidcK  10,  siae  <z   (air,  track) 

A691 

95 

OG 

STA 

$06, X 

A693 

20 

86 

D5 

JSR 

$D586 

Acau  scv'UUL 

A696 

C9 

02 

CMP 

#$02 

leuurn  message  or  error 

A698 

6A 

ROR 

A 

Save  rp^ult'    S  n  K-tt-   n  n-avi-/sv\ 
a v j. ca ui i  ±.n  u x. l.   /  t-L-srrorj 

A699 

29 

80 

AND 

#$80 

and  isolate*  hit- 

A69B 

49 

80 

EOR 

#$80 

c  c^»^- *=  uxc  j.ux  Lesing  in 

A69D 

8D 

AF 

01 

STA 

$01AF 

and    SaVG    it  (0=   prrnr  ■FrmnHl 

A6A0 

10 

OA 

BPL 

$A6AC 

Is  there  an  &rrrfrr> 

A6A2 

AO 

68 

LDY 

#$68 

NO— Pointer  to  end  of  1S71— ram 

A6A41 

Bl 

6D 

LDA 

($6D) , Y 

Read  bvte   from  data   bn f fr   jc  wr- -i  +■  *a 
*xv*t*v-'     J  v» w  -L 4. ^iti       1. a  jjuiix   gt  write 

A6A6 

99 

46 

01 

STA 

$0146, Y 

byte  in  1571  BAM-bu  f  f er 

A6A9 

88 

DEY 

turn  pointer  to  next  byte 

A6AA 

10 

F8 

BPL 

$A6A4 

All  bvtes  transfprrpH'' 

A6AC1 

A9 

FF 

LDA 

#$FF 

Set    1  Error   bv    iob   AX<ar*ii1-  i  r»n  nnt 

A6AE 

8D 

98 

02 

STA 

$0298 

notcied 1  f lag 

A6B1 

A5 

F9 

LDA 

$F9 

vac  u    n  uiHWi.     u  JL    UUII  eJlt    udL  a    OU  1161 

A6B3 

OA 

ASL 

A 

and  double  it    (noi  ntpr«!  in 

A6B4 

AA 

TAX 

2-bvte— value  table) 

A6B5 

AD 

85 

FE 

LDA 

$FE85 

Get  #  of  directorv  t  rarV    M  ft  ^  anH 

A6B8 

95 

06 

STA 

$06, X 

set  as  track  number  nf  inh 

A6BA 

20 

86 

D5 

JSR 

$D586 

Read  sector 

A6BD 

C9 

02 

CMP 

#$02 

Comoare  return  me <;  <5acrtQ  w /    1  ok  ■ 

A6BF 

90 

10 

BCC 

$A6D1 

Was  job  run  error—free? 

A6C1 

AA 

TAX 

YES— Save  return  me s sage  ( 0/1 ) 

A6C2 

A9 

24 

LDA 

#$24 

Set  track  35  as  largest  track 

A6C4 

8D 

AC 

02 

STA 

$02AC 

(i.e.,  only  one  side  used) 

A6C7 

20 

96 

A4 

JSR 

$A496 

Re-establish  current  RAM-oni nt^r 

A6CA 

8A 

TXA 

Repeat  return  message 

A6CB 

20 

OA 

E6 

JSR 

$E60A 

Output  error  message 

A6CE 

4C 

44 

D6 

JMP 

$D644 

Job  error  handling 

A6D11 

AO 

03 

LDY 

#$03 

Set  buffer  pointer, get  identifier 

A6D3 

Bl 

6D 

LDA 

($6D) , Y 

for  1571  diskette  ($80) 

A6D5 

2D 

AF 

01 

AND 

$01AF 

Check  identfier  w/preceding  error 

A6D8 

30 

03 

BMI 

$A6DD 

Previous  read  &  identifier  OK? 

A6DA 

A9 

24 

LDA 

#$24 

NO— Use  track  numbering  f/one  side 

A6DC 

2C 

.byt 

e  $2C 

Jump  to  next  2  bytes (bit  command) 

A6DD1 

A9 

47 

LDA 

#$47 

Set  track  number  for  2  diskette 

A6DF 

8D 

AC 

02 

STA 

$02AC 

sides 

A6E2 

4C 

96 

A4 

JMP 

$A4  96 

Re-establish  BAM-buf ferpointer 

ROM -98 


Abacus  Software 


1571  Internals 


Initialize  1571 

diskette 

A6E5 

20  8C  D5 

JSR  5DD8L 

A6E8 

48 

PHA 

A6E9 

r*Q  no 

CMP   ¥  9  U  ^ 

A6EB 

un    /i  Q 
rJU  h  y 

BCS 

A6ED 

nij  ur 

1  ft 
xo 

LDA  P 1 o  Ur 

Aor  u 

o q  on 

a  vrn  &  ft  o  n 
AND  ff><iU 

A  cpo 
Abr  z 

9  A  '  -J  » 

Abr  4 

A  Ct     ^  O 

A9   4  f 

t  ni   Jt  ft  ^  T 
LDA   ifP4  / 

A6F6 

on  Ar* 
oD  At 

\)£. 

CTA  ftnOfif"* 

A6F9 

Ay  r  r 

LDA   ff  91!  T 

Abr  B 

orv    Q  o 

no 

emji  ftnoQO 
STA  §U^yo 

A6FE 

AC      1  C 

AO   1  b 

t  r\R     ft  1  C 
LDA    s>  I  D 

A700 

48 

PHA 

A701 

A5  17 

LDA  91  ' 

A703 

48 

PHA 

A704 

A5  F9 

LDA  5F9 

A706 

OA 

ASL  A 

A707 

AA 

TAX 

A708 

iv  n    o  c 
A9  JO 

T  r\A     U-  C  O  K 

LDA  #§3o 

A70A 

95  06 

STA  5  0  b , X 

A70C 

a  q  tan 

t  tn a    #  i  tan 
LDA  xt*t!U 

A70E 

on  or* 

DO 

JSR  WDoL 

A711 

no 

Cy 

CMP  I?U<! 

A  O  1  Q 

A  /  1-i 

bo 

PLA 

A714 

A  O 

Ao 

TAY 

A715 

DO 

PLA 

a  o  *i  c 
A  /  lb 

A  A 

AA 

TAX 

A71  / 

BO  OB 

BCS  5A/24 

A719 

E4  16 

CPX  51b 

A71B 

DO  07 

BNE  $A724 

A71D 

C4  17 

CPY   $1  / 

A71F 

DO  03 

T3ATC       ft  A  T  O  VI 

BNE  9A/^4 

A721 

A9  47 

T  T"\  A      41-  ft  T 

LDA  ifpfJ  / 

A723 

2C 

1_.  -J_  _  ft 

.oyte  ?<ic 

A7243  A9  24 

t  r\  a    ii  ft  o  ^ 
LDA  #9^4 

A726 

8D  AC 

no 

STA  5 02 AC 

A729 

84  17 

ST I  51  / 

A72B 

86  16 

STX  $16 

A72D 

A5  F9 

LDA  $F9 

A72F 

OA 

ASL  A 

A730 

AA 

TAX 

A731 

AD  85 

FE 

LDA  $FE85 

A734^ 

95  06 

STA  $06, X 

A7365 

68 

PLA 

A737 

60 

RTS 

Give  and  run  jobcode 

Save  return  message 

Check  against  'OK' 

Job  run  error-free? 

YES— Get  control  register  and 

determine  operating  mode 

Is  drive  in  1571  mode? 

YES-Set  max.  track  number  +1  (71) 

Set  'Error  from  job  execution 
not  noticed'  flag 
Recover  1st  ID  character  of 
sector  header 

Recover  2nd  ID  character  of 

the  last  sector  header 

Get  #  of  current  data  buffer  and 

double  it  (table  uses 

2-byte-values) 

Track  18, side  2 (backside  direct.) 
to  job  loop 

Jobcode  for  'Look  for  sector' 

to  job  loop;  execute 

Compare  return  message  with  'OK' 

Repeat  last  character  of 

last-read  ID 

Repeat  1st  character  of 

last-read  ID 

Did  job  run  error-free? 

YES-Compare  last  ID  with  new  ID 

Identical? 

YES-Compare  w/  last  ID  char,  also 
Identical? 

YES-#  of  tracks+1  for  2  sides (71) 
Jump  to  next  2  bytes  (bit  command) 
Set  #  of  tracks  +1  for  1  side (35) 
as  max.  number  of  tracks 
Re-set  first-read 
ID 

Get  #  of  current  data  buffer 
&  double  it  (pointers  are 
2-byte-values) 

Get  #  of  directory  track  (18) 
Set  as  track  number  of  job 
Value  for  'Ok'  return  message 
Return  from  this  subroutine 


ROM -99 


Abacus  Software 


1571  Internals 


[F005] 

Clear  1571  BAM-buffer 


A738 

20 

3A 

EF 

JSR  $EF3A 

Set  buffer  pointer 

A73B 

AD 

OF 

18 

LDA  $180F 

Get  control  r^eH  Ql-i»r 

A73E 

29 

20 

AND  #$20 

and  test  operating  mode 

A740 

F0 

OA 

BEQ  $A74C 

Is  drive  in  1571  mode? 

A742 

A9 

00 

LDA  #$00 

A744 

AO 

68 

LDY  #$68 

Set  hll  f  fpr  r>r>  i  nt-  <=»  r 

A7461 

99 

46 

01 

STA  $0146, Y 

Clear  bvte  in  BAM-hnffoi- 

A74  9 

88 

DEY 

Set  buffer  cointer  to  next-  hv-t-p 

A74A 

10 

FA 

BPL  $A746 

Entire  buffer  cleared? 

A74C1 

4C 

08 

FO 

JMP  $F008 

YES— Set  pointer  for  1541  BAM 

[F24B] 

Compute  absolute  track  number 

A74F 

48 

PHA 

Save  track  number 

A750 

AD 

OF 

18 

LDA  $180F 

Get  control  register 

A753 

29 

20 

AND  #$20 

and  test  ooeratincr  mnHp 

A755 

FO 

08 

BEQ  $A75F 

Is  drive  in  1571  mode? 

A757 

68 

PLA 

YES-Get  track  #  again  and  compare 

A758 

C9 

24 

CMP  #$24 

with  max.  number  +1  (for  side  1) 

A75A 

90 

04 

BCC  $A760 

Is  track  on  q^H^  9*? 

A75C 

E9 

23 

SBC  #$23 

YES — Commit"      f  rflrV   nnmher   rm    ci  Hoi 

A75E 

24 

68 

.byte  $24 

JumD   to   next   fovt^  fhlf-rnfflmanHl 

A75F1 

68 

PLA 

Re— adjust  stack 

A7601 

AE 

D6 

FE 

LDX  $FED6 

Get  number  of  track  zones 

A763 

60 

RTS 

Return  from  this  subroutine 

[EE56] 

Create 

new  BAM 

(1571/1541) 

A764 

20 

05 

FO 

JSR  $F005 

Clear  BAM-buffer 

A7  67 

AD 

OF 

18 

LDA  $180F 

Get  control  register 

A7  6A 

29 

20 

AND  #$20 

and  test  operaing  mode 

A76C 

DO 

03 

BNE  $A771 

Is  drive  in  1571  mode? 

A76E 

A9 

24 

LDA  #$24 

YES— max.  track  number  +1  (36) 

A770 

2C 

•byte  $2C 

Jump  to  next  2  bytes (bit  command) 

A7711 

A9 

47 

LDA  #$47 

Determine  max.  tracks  for  2  sides 

A773 

8D 

AC 

02 

STA  $02 AC 

(71) 

A776 

4C 

43 

EE 

JMP  $EE43 

Produce  new  BAM 
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[FF42] 

Format  Commodore  diskette 

A779    AD  OF  18  LDA  $180F  Get  control  register 

A77C    29  20  AND  #$20  and  test  operating  mode 

A77E    DO  03  BNE  $A783  Is  drive  in  1541  mode? 

A780     4C  C6  C8  JMP  $C8C6  YES-Format  1541  diskette 

A7831  4C  0D  A4  JMP  $A40D  Format  1571  diskette 


[EBE4] 

Initialize  CIA  6526  by  reset 


A786 

AD 

01 

18 

LDA 

$1801 

A789 

29 

DF 

AND 

#$DF 

A78B 

8D 

01 

18 

STA 

$1801 

A78E 

20 

83 

A4 

JSR 

$A483 

A791 

A9 

7F 

LDA 

#$7F 

A7  93 

8D 

0D 

40 

STA 

$400D 

A796 

A9 

08 

LDA 

#$08 

A7  98 

8D 

0E 

40 

STA 

$400E 

A7  9B 

8D 

OF 

40 

STA 

$400F 

A79E 

A9 

00 

LDA 

#$00 

A7A0 

8D 

05 

40 

STA 

$4005 

A7A3 

A9 

06 

LDA 

#$06 

A7A5 

8D 

04 

40 

STA 

$4004 

A7A8 

A9 

01 

LDA 

#$01 

A7AA 

8D 

0E 

40 

STA 

$400E 

A7AD 

20 

B2 

81 

JSR 

$81B2 

A7B0 

4C 

59 

EA 

JMP 

$EA59 

Get  control  register 
and  switch  to  1541 
mode 

approx.  80-cycle  delay 
Re-set  interrupt 
register 

Set  Timer  A  for  'one  shot' 
(just  one  run) 

Set  Timer  B  for  the  same  mode 

Clear  Timer  A 

high-byte 

Set  Timer  A  low-byte  for  6 

cycles 

Start 

Timer  A 

set  1571  bus  for  input 
test  for  ATN  command  mode 


[924B/EA68/EC04] 
Take  ATN-command 
A7B3     AD  OF  18 
29  20 
F0  03 
4C  CE 


A7B6 
A7B8 
A7BA 
A7BD1 


80 


4C  5B  E8 


from  bus 

LDA  $180F  Get  control  register 

AND  #$20  and  test  operating  mode 

BEQ  $A7BD  Is  drive  in  1571  mode? 

JMP  $80CE  YES— Get  ATN-command  from  1571  bus 

JMP  $E85B  Get  ATN-command  from  1541  bus 


[EB22] 

Patch  for  Reset-routine 
A7C0     78  SEI 
A7C1     A2  45  LDX  #$45 

A7C3     9A  TXS 
A7C4     4C  25  EB      JMP  $EB25 


Disable  bus/controller  interrupt 
Initialize  stack  pointer  to 
range  $100-$145 
Return  to  Reset  routine 
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[ED8F/EE56] 


Create  new 

1571/1541 

BAM 

A7C7 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A7CA 

29 

20 

AND 

#$20 

and  test  operating  mode 

A7CC 

DO 

09 

BNE 

$A7D7 

Is  drive  in  1541  mode? 

A7CE1 

AO 

03 

LDY 

#$03 

Buffer  pointr  to  disktype  IDfier 

A7D0 

A9 

00 

LDA 

#$00 

Write  1541  diskette  identifier 

A7D2 

91 

6D 

STA 

($6D),Y 

in  BAM 

A7D4 

4C 

B7 

EE 

JMP 

$EEB7 

Produce  1541  BAM 

A7D71 

AD 

AC 

02 

LDA 

$02  AC 

Get  largest  track  number  and 

A7DA 

C9 

25 

CMP 

#$25 

compare  with  37 

A7DC 

90 

FO 

BCC 

$A7CE 

Is  side  2  used? 

A7DE 

AO 

01 

LDY 

#$01 

YES— Determine  first  track  number 

A7E0 

A2 

00 

LDX 

#$00 

Set  first  sector 

A7E21 

CO 

12 

CPY 

#$12 

Compare  with  directory  track  # 

A7E4 

FO 

34 

BEQ 

$A81A 

Directory  track  already  reached? 

A7E6 

8A 

TXA 

NO— Save  current  sector 

A7E7 

48 

PHA 

number 

A7E8 

A9 

00 

LDA 

#$00 

Clear 

A7EA 

85 

6F 

STA 

$6F 

math  register  for 

A7EC 

85 

70 

STA 

$70 

bit-pattern  of 

A7EE 

85 

71 

STA 

$71 

available  sectors 

A7F0 

B9 

2B 

94 

LDA 

$942B,Y 

Determine  and  save  #  of  sectors 

A7F3 

AA 

TAX 

in  track 

A7F41 

38 

SEC 

Shift  'Sector  free' 

A7F5 

26 

6F 

ROL 

$6F 

flag  value  in  math 

A7F7 

26 

70 

ROL 

$70 

register  for 

A7F9 

26 

71 

ROL 

$71 

bit-patterns 

A7FB 

CA 

DEX 

Go  to  next  sector 

A7FC 

DO 

F6 

BNE 

$A7F4 

All  sectors  laid  out? 

A7FE 

68 

PLA 

Re-set  first  sector  number  and 

A7FF 

AA 

TAX 

re-set  buffer  pointer 

A800 

A5 

6F 

LDA 

$6F 

Get  1st  byte  from  bit-pattern  and 

A802 

9D 

46 

01 

STA 

$0146, X 

write  in  BAM-buffer 

A805 

A5 

70 

LDA 

$70 

Get  2nd  byte  of  bit-pattern  and 

A807 

9D 

47 

01 

STA 

$0147, X 

write  in  BAM-buffer 

A80A 

A5 

71 

LDA 

$71 

Get  third  byte  of  bit -pattern  and 

A80C 

9D 

48 

01 

STA 

$0148, X 

write  in  BAM-buffer 

A80F 

E8 

INX 

Jump  3  bytes  of  bit-pattern 

A810 

E8 

INX 

with  buffer 

A811 

E8 

INX 

pointer 

A812 

EO 

33 

CPX 

#$33 

Test  for  directory  track  position 

A814 

DO 

04 

BNE 

$A81A 

Track  18  already  reached? 

A816 

E8 

INX 

Jump  BAM-entry 

A817 

E8 

INX 

from  track  18 

A818 

E8 

INX 

with  buffer  pointer 
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A819 

C8 

INY 

<;<a-r-  r»n-l  nt^pr  fnr  rnrrent  track  to 

A81A^ 

C8 

INI 

A81B 

CO 

24 

CPY 

#524 

Pnmnaro   wit*h    pnH    of    first  sidG 

A81D 

90 

C3 

BCC 

A81F 

20 

B7 

EE 

JSR 

5EEB  / 

XTA  1  C^l     RAM  HQ^H 

NU — XOfi-L    DAM  UScU 

A822 

AO 

03 

LDY 

f  $>U  J 

Tniti  ai 1 7p  buffer  oointer 

A824 

A9 

80 

LtVPi 

Write  1571  diskette  identifier 

A826 

91 

6D 

STA 

/  6  cr\\  v 
(§DL))  ,  I 

XII    U1I  CL.  LUI  jr     o  c:  ^  t~  w  J- 

A828 

AO 

FF 

LDY 

Qoi-  'huff^y  oointer 

OCL    *J  LI  X,  J.  CI  £/VJLllin>^JU 

A82A 

A2 

22 

LUX 

if  9" 

#  nf  t racks   (w/o  directory  track) 

A82C^- 

BD 

2C 

94 

LDA 

eoAOf  v 

w-Ht-e  #  of  free  blocks  on  track 

A82F 

yi 

din 

/ ^  6n\  Y 

\            ,  I 

in  BAM-buffer 

A831 

88 

Set  buffer  pointer  to  next  byte 

A832 

CA 

DEX 

Pointer  to  next  track  entry 

A833 

10 

F7 

BPL 

$A82C 

All  tracks  entered? 

A835 

AO 

EE 

LDY 

#$EE 

YES-Turn  pointr  to  track  18,side2 

A837 

A9 

00 

LDA 

#$00 

Clear  #  of  free  blocks  on  track 

A839 

91 

6D 

STA 

($6D) ,Y 

(for  directory  track) 

A83B 

4C 

75 

DO 

JMP 

$D075 

Compute  free  blocks  on  diskette 

[EF5F] 

Free  up  sector  in  BAM 


A83E 

AD 

OF 

18 

LDA 

$180F 

YES— Get  control  register 

A841 

29 

20 

AND 

#$20 

and  test  operating  mode 

A843 

DO 

06 

BNE 

$A84B 

Is  Floppy  in  1541  mode? 

A8451 

20 

CF 

EF 

JSR 

$EFCF 

YES-Set  pointr  to  bit  of  a  sector 

A848 

4C 

62 

EF 

JMP 

$EF62 

Free  up  sector 

A84B1 

A5 

80 

LDA 

$80 

Get  current  track  number  and 

A84D 

C9 

24 

CMP 

#$24 

compare  with  max.  value  of  a  side 

A84F 

90 

F4 

BCC 

$A845 

Is  track  number  less? 

A851 

20 

Al 

A4 

JSR 

$A4A1 

NO- Pointer  to  BAM-bit  of  sector 

A854 

20 

E7 

A4 

JSR 

$A4E7 

Get  BAM-bit  of  sector 

A857 

DO 

19 

BNE 

$A872 

Is  sector  free? 

A859 

ID 

E9 

EF 

ORA 

$EFE9,X 

YES-Set  BAM-bit 

A85C 

99 

46 

01 

STA 

$0146, Y 

and  write  in  buffer 

A85F 

20 

88 

EF 

JSR 

$EF88 

Set  'illegal  BAM'  flag 

A862 

20 

08 

A5 

JSR 

$A508 

Increment  number  of  blocks  free 

A865 

A5 

80 

LDA 

$80 

Test  current  track  number  against 

A867 

C9 

35 

CMP 

#$35 

track  18,  side  2  (Directory) 

A869 

F0 

08 

BEQ 

$A873 

Identical? 

A86B 

A5 

7F 

LDA 

$7F 

NO-Get  current  drive  number 

A86D 

OA 

ASL 

A 

and  double  it 

A86E 

AA 

TAX 

(table  uses  2-byte  values) 

A86F 

4C 

7F 

EF 

JMP 

$EF7F 

Increment  #  of  blks  free  on  disk 

A8721 

38 

SEC 

'Sector  already  freed  up 'error fig 

A8731 

60 

RTS 

Return  from  this  subroutine 
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[EF93] 

Set  sector  in  BAM 


A874 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A877 

29 

20 

AND 

#$20 

and  test  operating  mode 

A879 

DO 

06 

BNE 

$A881 

Is  drive  in  1541  mode? 

A87B1 

20 

CF 

EF 

JSR 

$EFCF 

Set  pointer  to  BAM-bit  of  sector 

A87E 

4C 

96 

EF 

JMP 

$EF96 

Free  up  sector  in  BAM 

A8811 

A5 

80 

LDA 

$80 

Get  #  of  desired  track  &  test 

A883 

C9 

24 

CMP 

#$24 

with  max.  value  +1  for  1st  side 

A885 

90 

F4 

BCC 

$A87B 

Is  track  on  side  2? 

A887 

20 

Al 

A4 

JSR 

$A4A1 

YES— Set  BAMpointer  to  track  entry 

A88A 

20 

E7 

A4 

JSR 

$A4E7 

Get  BAM-bit  of  sector 

A88D 

F0 

19 

BEQ 

$A8A8 

Is  sector  freed  up? 

A88F 

5D 

E9 

EF 

EOR 

$EFE9,X 

YES— Lay  out  sector  (Bit  =  0)  and 

A892 

99 

46 

01 

STA 

$0146, Y 

store  BAM  pattern  again 

A895 

20 

88 

EF 

JSR 

$EF88 

Set  'Illegal  BAM'  flag 

A898 

20 

IE 

A5 

JSR 

$A51E 

Get  #  of  blocks  free  on  track 

A89B 

A5 

80 

LDA 

$80 

Get  #  of  chosen  track  and  test 

A89D 

C9 

35 

CMP 

#$35 

against  track  18,  side  2 

A89F 

F0 

07 

BEQ 

$A8A8 

Identical? 

A8A1 

A5 

7F 

LDA 

$7F 

NO-Get  current  drive  number 

A8A3 

OA 

ASL 

A 

and  double  it 

A8A4 

AA 

TAX 

(block  table  needs  2  bytes) 

A8A5 

4C 

B2 

EF 

JMP 

$EFB2 

Decrement  number  of  blocks  free 

A8A82 

60 

RTS 

Return  from  this  subroutine 

[FIFA] 

Look  for 

next 

free  sector  on 

track 

A8A9 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A8AC 

29 

20 

AND 

#$20 

and  test  operating  mode 

A8AE 

DO 

06 

BNE 

$A8B6 

Is  drive  in  1541  mode? 

A8B01 

20 

11 

FO 

JSR 

$F011 

YES-Set  BAM-po inter 

A8B3 

4C 

FD 

Fl 

JMP 

$F1FD 

Look  for  next  free  sector 

A8B61 

A5 

80 

LDA 

$80 

Check  #  of  current  track  with 

A8B8 

C9 

24 

CMP 

#$24 

max.  track  +1  of  1st  side 

A8BA 

90 

F4 

BCC 

$A8B0 

Is  track  on  side  2? 

A8BC 

20 

Al 

A4 

JSR 

$A4A1 

Set  pointer  for  BAMentry  to  track 

A8BF 

20 

45 

A5 

JSR 

$A545 

Check  #  of  blocks  free  on  track 

A8C2 

B9 

2C 

94 

LDA 

$942C, Y 

Get  #  of  sectors  per  track  and 

A8C5 

8D 

4E 

02 

STA 

$024E 

save  it 

A8C81 

A5 

81 

LDA 

$81 

Compare  number  of  current  sector 

A8CA 

CD 

4E 

02 

CMP 

$024E 

with  max.  sector  number 

A8CD 

BO 

09 

BCS 

$A8D8 

Is  sector  #  in  allowable  range? 
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A8CF 

20 

E7 

A4 

JSR 

$A4E7 

YES— Get  BAM-bit  of  sector 

A8D2 

DO 

06 

BNE 

$A8DA 

Is  sector  free? 

AoUQ 

E6 

81 

± 

vox 

NO — fin  to  npxt  sector 

A8D6 

DO 

F0 

vAoOO 

A8D8^ 

A9 

00 

t  nn 
LiDrt 

ri  an   f  r>r    'No   fre*e*  sector1 

ABOA^ 

60 

RTS 

»-x-t- 1 1  y-  ri     f              +"  1*1  ^  G     Gil  hTOllt"  1  fl  f-» 
ACUUl  Jl     -L  L  VJIII     LUla  9UULUUL1IIC 

[FLZD. 

Look 

ror 

next 

Eree  sector 

A8DB 

AT"\ 

AD 

1*4  TP 

Ur 

18 

LDA 

£  1  O  ATP 

vlour 

uei  control  x eyia lci 

A8DE 

£.  U 

awn 
AND 

f  ?iU 

anH   Hoi* <a 7-m i  np    nDPTflt  incr  mode 

A8E0 

U  O 

DM1? 

e  A  OTPQ 

Ts  disk  in  1541  mode? 

A  OTP  1  1 

AO 

£TP 
or 

J-tUrt 

v  or 

vpc — Rprnv^r  number  of  free  blocks 

A  OTP  A 

d P. 
flo 

PHA 
Jt  Ilrt 

tier  track 

AOTPC 

AOHiO 

JU 

pi 
r  x 

,TMP 

$F130 

Look  for  next  free  sector 

aotpqI 

A  K 

AO 

oU 

T.nA 

$80 

Test  current  track  number  against 

AQTPA 

Adda 

C9 

24 

PMP 

#S?4 

Tr  V  ^  ^ 

max.  track  +1  of  side  1 

A  OTPf 

90 

F4 

T <s  r rack  on  side  2 ? 

7t  OTP  TP 

C9 

35 

Yfc_tpSt  for  track  18.   side  2 

Aoipn 
ftor  u 

F0 

0E 

$A900 

Identical? 

A5 

6F 

t  na 

v  or 

A  OEM 

Aor  4 

48 

PHA 
flirt 

tciu^ayc    ui cq 

A  OTP  C 

Aor  o 

20 

Al 

TCD 

e  a  ^  ai 
•?A*i  Al 

A  OTP  O 

Aor  o 

A8 

Irti 

Cairo    nnrnrior    0"F    f  rao    V>  1  oflf  ? 

A8F9 

68 

PLA 

Re-establish 

A8FA 

85 

6F 

STA 

$6F 

zeropage  area 

A8FC 

98 

TYA 

Get  #  of  blocks  free  on  track 

A8FD 

4C 

38 

Fl 

JMP 

$F138 

Get  free  sector 

A9001 

A9 

00 

LDA 

#$00 

Set  #  of  free  blocks  on  track 

A902 

4C 

38 

Fl 

JMP 

$F138 

Look  for  next  free  sector 

[F1C4] 

Set  BAM  pointer 

to  bit  on  a  sector 

A905 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A908 

29 

20 

AND 

#$20 

and  determine  operating  mode 

A90A 

DO 

06 

BNE 

$A912 

Is  disk  in  1541  mode? 

A90C1 

20 

11 

F0 

JSR 

$F011 

YES-Set  BAM-pointer  and 

A90F 

4C 

C7 

Fl 

JMP 

$F1C7 

get  optimal  free  sector 

A9121 

A5 

80 

LDA 

$80 

Test  current  track  number  against 

A914 

C9 

24 

CMP 

#$24 

max.  track  +1  of  side  1 

A916 

90 

F4 

BCC 

$A90C 

Is  track  on  side  2? 

A918 

20 

Al 

A4 

JSR 

$A4A1 

Set  BAM-pointer 

A91B 

4C 

C9 

Fl 

JMP 

$F1C9 

Get  optimal  free  sector 
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[F1D1] 

Look  for  free  sector 


A91E 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A921 

29 

20 

AND 

#$20 

and  determine  operating  mode 

A923 

DO 

06 

BNE 

$A92B 

Is  disk  in  1541  mode? 

A925^ 

5(1 

X  X 

r  u 

.TCP 

s>r  U1J. 

YES— Set  BAM-pointer 

A928 

4C 

E2 

Fl 

JMP 

$F1E2 

Look  for  free  sector 

A92B1 

A5 

80 

LDA 

$80 

Test  current  track  number  against 

A92D 

C9 

24 

CMP 

#$24 

max.  track  +1  of  side  1 

A92F 

90 

F4 

BCC 

$A925 

Is  track  on  side  2? 

A931 

20 

Al 

A4 

JSR 

$A4A1 

Set  pointer  to  BAM-bit 

A934 

4C 

E4 

Fl 

JMP 

$F1E4 

Look  for  free  sector 

[EF28] 

Test  number 

of 

free  blocks  in 

BAM 

A937 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A93A 

29 

20 

AND 

#$20 

and  determine  operating  mode 

A93C 

DO 

03 

BNE 

$A941 

Is  disk  in  1541  mode? 

A93E2 

4C 

20 

F2 

JMP 

$F220 

YES— Test  block  assignment 

A9411 

AD 

AC 

LDA 

$02AC 

Get  number  of  largest  track; 

A944 

C9 

25 

CMP 

#$25 

compare  with  37 

A94  6 

90 

F6 

BCC 

$A93E 

Only  one  diskette  used? 

A948 

A5 

80 

LDA 

$80 

NO— Get  current  track  #  and 

A94A 

C9 

24 

CMP 

#$24 

compare  with  36 

A94C 

90 

F0 

BCC 

$A93E 

Is  track  on  side  2? 

A94E 

4C 

45 

A5 

JMP 

$A545 

YES— Confirm  block  assignment 

[D097] 

Compute  number 

of  free  blocks 

on  diskette 

A951 

9D 

FA 

02 

STA 

$02FA,X 

Store  low-byte  of  free  blocks 

A954 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A957 

29 

20 

AND 

#$20 

and  determine  operating  mode 

A959 

F0 

23 

BEQ 

$A97E 

Is  disk  in  1571  mode? 

A95B 

AD 

AC 

02 

LDA 

$02AC 

YES— Determine  maximum  track  # 

A95E 

C9 

25 

CMP 

#$25 

&  compare  w/  maximum  track+2  (37) 

A960 

90 

1C 

BCC 

$A97E 

Is  track  on  side  2? 

A962 

20 

8B 

A4 

JSR 

$A48B 

Recover  current  BAM-pointer 

A965 

20 

34 

A5 

JSR 

$A534 

Set  BAM-pointer  to  track  entry 

A968 

AO 

22 

LDY 

#$22 

Number  of  tracks  on  a  side  -1 

A96A 

AD 

FA 

02 

LDA 

$02FA 

Get  low-byte  of  free  block  and 

A96D1 

18 

CLC 

include  byte  of  free  blocks  on 

A96E 

71 

6D 

ADC 

<$6D),Y 

track 

A970 

8D 

FA 

02 

STA 

$02FA 

Save  next  block  amount 

A973 

90 

03 

BCC 

$A978 

Is  a  transfer  pending? 
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A975    EE  FC  02  INC  $02FC  YES-Set  hi-byte  of  'Blocks  free' 

A9781  88  DEY  Go  to  next  track 

A979    10  F2  BPL  $A96D  All  tracks  considered? 

A97B    4C  96  A4  JMP  $A496  YES— Set  BAM-pointer  to  old  value 

A97E2  60  RTS  Return  from  this  subroutine 


[DCD6] 

Patch  for  number  of  free  blocks; 


A97F 

95 

B5 

STA 

$B5,X 

A981 

95 

BB 

STA 

$BB,X 

A983 

A9 

00 

LDA 

#$00 

A985 

9D 

44  02 

STA 

$0244, X 

A988 

60 

RTS 

Clear  pointer 
Clear  #  of  reserved  blocks  /  file 
(low-  and  high-byte) 
Clear  number  of  data  bytes  yet  to 
be  transferred 
Return  from  this  subroutine 


[84E4] 

Format  diskette  im  1571  format 

A989     20  0D  A4  JSR  $A40D 

A98C    AO  00  LDY  #$00 

A98E     8C  98  02  STY  $0298 

A991     60  RTS 


Format  diskette 
'Error  noted' 
flag 

Return  from  this  subroutine 


A992  FF  . . . 
A99C     . . .  FF 


unused 
ROM  area 


[C1B3]     Patch  for  1541  routine  (Error  remedied  by  FF,X) 
A99D    A9  00            LDA  #$00  Set  drive  status  for 

A99F     9D  FF  00      STA  $00FF,X  'Drive  ready' 

A9A2     4C  B7  CI      JMP  $C1B7  Return  to  1541  routine 


[C661]     Patch  for  1541  routine  (Error  remedied  by  FF,X) 

A9A5     98                 TYA  Get  return  message 

A9A6     9D  FF  00      STA  $00FF,X  and  transfer  into  drive  status 

A9A9     4C  64  C6      JMP  $C664  Return  to  1541  routine  ' 


[EA6B] 
Work  with 


A9AC 
A9AF 
A9B1 
A9B3 
A9B61 


serial   bus  after 
AD  OF  18       LDA  $180F 


29  20 
F0  03 
4C  5A  81 
4C  D7  E8 


AND  #$20 
BEQ  $A9B6 
JMP  $815A 
JMP  $E8D7 


ATN-command 

Get  control  register 
test  for  operating  mode 
Is  disk  in  1571  mode? 
YES-Wait  on  1571  bus 
Process  1541  bus 
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[E60A] 

Display  error  message  and  prepare  text  version  of  message 


A9B9 

48 

PHA 

Recover  error  number 

A9BA 

86 

F9 

STX 

$F9 

Save  buffer  number 

A9BC 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A9BF 

29 

20 

AND 

#$20 

and  test  for  operating  mode 

A9C1 

FO 

OF 

BEQ 

$A9D2 

Is  disk  in  1571  mode? 

A9C3 

24 

37 

BIT 

$37 

YES-Chk  bus  statusbyte  f/1571mode 

A9C5 

10 

0B 

BPL 

$A9D2 

Flag  set? 

A9C7 

A5 

37 

LDA 

ihjo — uxear  xo/i  mocte 

A9C9 

29 

7F 

AND 

#$7F 

flag  in  bus  status 

A9CB 

85 

37 

STA 

$37 

byte 

A9CD 

68 

PLA 

Repeat  error  number  and 

A9CE 

AA 

TAX 

prepare  for  output 

A9CF 

4C 

99 

91 

JMP 

$9199 

Produce  #,  message  over  1571  bus 

A9D22 

4C 

0D 

E6 

JMP 

$E60D 

Prepare  text  of  message 

[C1CE] 

Produce  error  message  in  error 

buffer 

A9D5 

48 

PHA 

Recover  error  number 

A9D6 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

A9D9 

29 

20 

AND 

#$20 

and  test  for  operating  mode 

A9DB 

FO 

17 

BEQ 

$A9F4 

Is  disk  in  1571  mode? 

A9DD 

24 

37 

BIT 

$37 

YES— Test  bus  statsbyte  f/1571mode 

A9DF 

10 

13 

BPL 

$A9F4 

Flag  set? 

A9E1 

A5 

37 

LDA 

$37 

YES-Clear  1571  mode  flag 

A9E3 

29 

7F 

AND 

#$7F 

in  bus  status 

A9E5 

85 

37 

STA 

$37 

byte 

A9E7 

78 

SEI 

Disable  bus/controller  interrupt 

A9E8 

A2 

02 

LDX 

#$02 

Cnnf)       1  V  1   lfi      Vnt"      TP  I'M  1  1-1  f"4  1       QVVl^V  Jt 

ociiu     r  lie  iNUL.   r  uujiu     eiror  if 

A9EA 

20 

28 

92 

JSR 

$9228 

over  1571  bus 

A9ED 

A9 

00 

LDA 

#$00 

Set  secondary  address 

A9EF 

85 

83 

STA 

$83 

for  Load 

A9F1 

20 

CO 

DA 

JSR 

$DAC0 

Close  file 

A9F42 

68 

PLA 

Repeat  error  number 

A9F5 

4C 

45 

E6 

JMP 

$E645 

Produce  error  message 

[F263]  Patch 

for  1541  routine 

(new:  Clear  status) 

A9F8 

A9 

00 

LDA 

#$00 

Clear  status  for  drive 

A9FA 

85 

20 

STA 

$20 

0 

A9FC 

AD 

OC 

1C 

LDA 

$1C0C 

Get  peripheral  control  register 

A9FF 

4C 

66 

F2 

JMP 

$F266 

Return  to  1541  routine 
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[C2BA/C2C2] 

Observe  new  UserO  command 

AA02 

AD 

00  02 

LDA 

$0200 

Get  1st  char  from  command  string 

AA05 

C9 

55 

CMP 

#$55 

&  compare  with  'U'    (User  command) 

AA07 

DO 

07 

BNE 

$AA10 

Identical? 

AA09 

AD 

01  02 

LDA 

$0201 

YES— Get  2nd  char  frm  cmd  string 

AAOC 

C9 

30 

CMP 

#$30 

and  compare  with  1 0 ' 

AAOE 

FO 

04 

BEQ 

$AA14 

Is  command  'U0'? 

AA101 

B9 

00  02 

LDA 

$0200, Y 

NO-Get  char  from  command  string 

AA13 

2C 

.byte  $2C 

Jump  next  2  bytes   (bit  command) 

AA141 

A9 

00 

LDA 

#$00 

Give  back  empty  params  by  User  0 

AA16 

60 

RTS 

Return  from  this  subroutine 

[C66B] 

Patch  : 

Cor  1541  routine 

(Error  remedied  by  FF,X) 

AA17 

A6 

7F 

LDX 

$7F 

Current  drive  number 

AA19 

BD 

FF  00 

LDA 

$00FF,X 

Get  appropriate  drive  status 

AA1C 

60 

RTS 

Return  from  this  subroutine 

[D071] 

Patch 

for  1541  routine 

(Error  remedied  by  FF,X) 

AA1D 

95 

1C 

STA 

$1C,X 

Set  diskette  initialization  flag 

AA1F 

9D 

FF  00 

STA 

$00FF,X 

Set  drive  status 

AA22 

4C 

75  DO 

JMP 

$D075 

Return  to  1541  routine 

[F017]  Patch 

for  1541  routine 

(Error  remedied  by  FF,X) 

AA25 

A6 

7F 

LDX 

$7F 

Current  drive  number 

AA27 

BD 

FF  00 

LDA 

$00FF,X 

Get  appropriate  drive  status 

AA2A1 

4C 

IB  FO 

JMP 

$F01B 

Return  to  1541  routine 

[CB81] 

Execute  User-command 

(OA  to  UK) 

AA2D 

A5 

75 

LDA 

$75 

Get  low-byte  of  User-routine  and 

AA2F 

C9 

67 

CMP 

#$67 

test  with  IRQ 

AA31 

DO 

09 

BNE 

$AA3C 

Identical? 

AA33 

A5 

76 

LDA 

$76 

YES-Get  high-byte  and  compare 

AA35 

C9 

FE 

CMP 

#$FE 

with  IRQ  address 

AA37 

DO 

03 

BNE 

$AA3C 

Identical? 

AA39 

00 

BRK 

YES-Call  jobloop 

AA3A 

EA 

NOP 

Cancel  out  return  address 

AA3B 

60 

RTS 

Return  from  this  subroutine 

AA3C? 

6C 

75  00 

JMP 

($0075) 

Execute  User-command 

AA3F 

FF 

unused 

BEFF 

.  FF 

ROM  area 

ROM -109 


Abacus  Software 


1571  Internals 


[Table  not  used  by  DOS] 


Table 

of 

most  important  DOS 

routines 

BFOO 

4C 

88 

9D 

JMP 

$9D88 

1541  IRQ  routine 

BF03 

4C 

DE 

9D 

JMP 

$9DDE 

1571  IRQ  routine 

BF06 

4C 

BO 

F2 

JMP 

$F2B0 

1541  jobloop 

BF09 

4C 

BA 

92 

JMP 

$92BA 

1571  jobloop 

BFOC 

4C 

93 

F3 

JMP 

$F393 

Set  buffer  pointer  for  Jobloop 

BFOF 

4C 

Dl 

93 

JMP 

$93D1 

Set  buffer  pointer  for  Jobloop 

BF12 

4C 

69 

F9 

JMP 

$F969 

Conclude  Job;  Give  return  message 

BF15 

4C 

B5 

99 

JMP 

$99B5 

Conclude  Job;  Give  return  message 

BF18 

4C 

00 

FE 

JMP 

$FE00 

Switch  head  to  read  mode 

BF1B 

4C 

34 

F9 

JMP 

$F934 

Convert  block  header  to  GCRvalues 

BF1E 

4C 

56 

F5 

JMP 

$F556 

Wait  for  Sync-marking  (1541) 

BF21 

4C 

54 

97 

JMP 

$9754 

Wait  for  Sync-marking  (1571) 

BF24 

4C 

E0 

F8 

JMP 

$F8E0 

Convrt  statsbuff  from  GCR  to  bin. 

BF27 

4C 

65 

99 

JMP 

$9965 

Convrt  statsbuff  from  GCR  to  bin. 

BF2A 

4C 

E9 

F5 

JMP 

$F5E9 

Compute  sector  checksum 

BF2D 

4C 

E6 

F7 

JMP 

$F7E6 

Convert  5  GCRbytes  to  4  bin. bytes 

BF30 

4C 

D9 

98 

JMP 

$98D9 

Convert  5  GCRbytes  to  4  bin. bytes 

BF33 

4C 

83 

A4 

JMP 

$A483 

Wait  approx.  80  cycles 

BF3  6 

4C 

F3 

FE 

JMP 

$FEF3 

Delay  for  1541  serial  bus 

BF39 

4C 

7E 

A4 

JMP 

$A47E 

Wait  approx.  45  cycles 

BF3C 

4C 

05 

FO 

JMP 

$F005 

Clear  buffer  for  BAM 

BF3F 

4C 

Dl 

FO 

JMP 

$F0D1 

Get  track  number  for  BAM 

BF4  2 

4C 

46 

CI 

JMP 

$C146 

Execute  command  string 

BF45 

4C 

68 

C2 

JMP 

$C268 

Search  cmd  string  f/paramaters 

BF48 

4C 

B3 

C2 

JMP 

$C2B3 

Set  pnter  for  cmd  string  analyses 

BF4B 

4C 

DC 

C2 

JMP 

$C2DC 

Clear  all  file  pointers 

BF4E 

4C 

E6 

86 

JMP 

$86E6 

Execute  routine  w/#in  accumulator 

BF51 

4C 

64 

87 

JMP 

$8764 

Drive  motor  on 

BF54 

4C 

70 

87 

JMP 

$8770 

Drive  motor  off 

BF57 

4C 

8E 

80 

JMP 

$808E 

[Error  —  see  7.1.5] 

BF5A 

4C 

IE 

CF 

JMP 

$CF1E 

-    Look  for  and  set  buffer 

BF5D 

4C 

B4 

D7 

JMP 

$D7B4 

Execute  Open  command  from  bus 

BF60 

4C 

CO 

DA 

JMP 

$DAC0 

Close  channel  and  close  file 

BF63 

4C 

OA 

T-l  £ 

E6 

JMP 

$E60A 

Send  eror  message  from  job  loop 

BF66 

4C 

80 

90 

JMP 

$9080 

Read  file  (PRG/SEQ/OSR) 

BF69 

4C 

4E 

92 

JMP 

$924E 

Test  ROM  checksum 

BF6C 

4C 

59 

F2 

JMP 

$F259 

Initialize  1541  disk  controller 

BF6F 

4C 

9C 

F9 

JMP 

$F99C 

1541  job  loop  off 

BF72 

4C 

CA 

99 

JMP 

$99CA 

Stepper  control 

BF75 

4C 

95 

FE 

JMP 

$FE95 

[Error  —  see  7.1.5] 

BF78 

FF 

unused 

COFF 

.  FF 

ROM  area 
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[C38C/C439/C46A/C49A/CE0B/CFA2/D39E/D7E1]  cf.  877C/C118 
LED  on  current  drive  ON 


(Routine 

taken  from  old  double 

drives) 

C100 

78 

SEI 

Disable  bus/controller  interrupt 

C101 

A9 

F7 

LDA 

#$F7 

Place  mask  for  LED-bit  (Bit3) 

C103 

2D 

00 

1C 

AND 

$1C00 

so  that  LED-bit  will  be  cleared 

C106 

48 

PHA 

Save  mask 

C107 

A5 

7F 

LDA 

$7F 

Drive  number  (always  0) 

C109 

FO 

05 

BEQ 

$C110 

Otherwise,   jump  to  $C110 

DO 

PLA 

Unused  if  system  has  only  one 

C10C 

09 

00 

ORA 

#$00 

drive 

C10E 

DO 

03 

BNE 

$C113 

If  drive  1  exists,   jump  to  $C113 

C1101 

68 

PLA 

Repeat  mask 

cm 

09 

08 

ORA 

#$08 

LED-bit  set  (Bit3=l) 

C1131 

8D 

00 

1C 

STA 

$1C00 

LED  on 

C116 

58 

CLI 

Enable  bus/controller  interrupt 

C117 

60 

RTS 

Return  from  this  subroutine 

[Routine 

not  used  in 

DOS]  cf. 

877C/C100 

LED  on  1571 

dive 

ON 

C118 

78 

SEI 

Disable  bus/controller  interrupt 

C119 

A9 

08 

LDA 

#$08 

LED-Bit   (Bit3)   set  (Bit3=l) 

CUB 

0D 

00 

1C 

ORA 

$1C00 

Take  up  other  bits  of  register 

CUE 

8D 

00 

1C 

STA 

$1C00 

LED  on 

C121 

58 

CLI 

Enable  bus/controller  interrupt 

C122 

60 

RTS 

Return  from  this  subroutine 

[C1AA/D425/E6BC] 
Clear  error  flag 


C123 

A9 

00 

LDA 

#$00 

Clear  the  error  flag 

C125 

8D 

6C 

02 

STA 

$02  6C 

Clear  error  number 

C128 

8D 

6D 

02 

STA 

$02  6D 

Clear  LED-Blinker  flag 

C12B 

60 

RTS 

Return  from  this  subroutine 

[E650] 

LED  blinker 

on 

due  to  error 

C12C 

78 

SEI 

Disable  bus/controller  interrupt 

C12D 

8A 

TXA 

Recover 

C12E 

48 

PHA 

X-register 

C12F 

A9 

50 

LDA 

#$50 

Set  LED  blink  counter 

C131 

8D 

6C 

02 

STA 

$026C 

to  80 

C134 

A2 

00 

LDX 

#$00 

Go  to  drive  0 

C136 

BD 

CA 

FE 

LDA 

$FECA, X 

Save  LED-mask  for  chosen 

C139 

8D 

6D 

02 

STA 

$026D 

drive 

C13C 

0D 

00 

1C 

ORA 

$1C00 

Drive  LED 

C13F 

8D 

00 

1C 

STA 

$1C00 

on 
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CI  4  2  68  PLA  Reset 

CI 4 3  AA  TAX  X-register 

C144  58  CLI  Enable  bus/controller  interrupt 

C145  60  RTS  Return  from  this  subroutine 


[A61C/BF42] 

Execute  command  string  from  computer 


C146 

A9 

00 

LDA 

#$00 

Set  'Write  BAM  to  diskette" 

C148 

8D 

F9 

02 

STA 

$02F9 

flag 

C14B 

AD 

8E 

02 

LDA 

$028E 

Take  on  last-used  drive  as 

C14E 

85 

7F 

STA 

$7F 

current  dive 

C150 

20 

BC 

E6 

JSR 

$E6BC 

Produce  'OK'  message 

C153 

A5 

84 

LDA 

$84 

Get  last  IEC  secondary  address 

C155 

10 

09 

BPL 

$C160 

Was  it  a  Close  command? 

C157 

29 

OF 

AND 

#$0F 

Get  number  of  chosen  channel  and 

C159 

C9 

OF 

CMP 

#$0F 

test  for  command  channel 

C15B 

F0 

03 

BEQ 

$C160 

Is  command  channel  being  used? 

C15D 

4C 

B4 

D7 

JMP 

$D7B4 

NO— 

C1602 

20 

B3 

C2 

JSR 

$C2B3 

Set  params  to  command  processing 

C163 

Bl 

A3 

LDA 

($A3) ,Y 

Get/save  1st  char  from 

CI  65 

8D 

75 

02 

STA 

$0275 

input  buffer 

C168 

A2 

0B 

LDX 

#$0B 

Number  of  disk  commands 

C16A1 

BD 

89 

FE 

LDA 

$FE89,X 

Get  char  from  1541command  table  & 

C16D 

CD 

75 

02 

CMP 

$0275 

compare  with  command  characters 

C170 

F0 

08 

BEQ 

$C17A 

Is  that  the  desired  command? 

C172 

CA 

DEX 

NO-Go  to  next  command  character 

C173 

10 

F5 

BPL 

$C16A 

Compared  with  all  commands? 

C175 

A9 

31 

LDA 

#$31 

YES-Display 

C177 

4C 

C8 

CI 

JMP 

$C1C8 

'31  Syntax  Error'  message 

C17A1 

8E 

2A 

02 

STX 

$022A 

Save  command  number 

C17D 

E0 

09 

CPX 

#$09 

Compare  with  number  for  'Rename' 

C17F 

90 

03 

BCC 

$C184 

Is  command  'R',   'S'  or  'N'  ? 

C181 

20 

EE 

CI 

JSR 

$C1EE 

YES-Check  syntax 

C1841 

AE 

2A 

02 

LDX 

$022A 

Get  back  command  number 

C187 

BD 

95 

FE 

LDA 

$FE95,X 

Get  lo-byte  of  command  of  table  & 

C18A 

85 

6F 

STA 

$6F 

set  in  pointer 

C18C 

BD 

Al 

FE 

LDA 

$FEA1,X 

Transfer  hi-byte  of  start  address 

C18F 

85 

70 

STA 

$70 

C191 

6C 

6F 

00 

JMP 

($006F) 

Execute  command 
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[9196/C99E/C9A4/CAC9/CB6F/CC18/CCFB/CD16/CD5C/CD70/CD94/CDA0/CDB7/CDCF] 

[D00B/D7F0/D99D/DAE6/DAFC/E272/EDB0/EEB4] 

End  of  computer  command;  produce  an  error  message 


C194 

A9  00 

LDA 

#$00 

Clear  Write  BAM  to  diskette' 

C196 

8D  F9 

02 

STA 

$02F9 

flag 

[DA06] 

End 

of 

command;but  don" 

t  write  BAM  tct  rH  QV#»i--t*e 

C199 

AD  6C 

02 

LDA 

$02  6C 

Get  error  flag 

C19C 

DO  2A 

BNE 

$C1C8 

C19E 

AO  00 

LDY 

#$00 

NO-Prepare  OK-message 

C1A0 

98 

TYA 

Clear  error  number 

[C87A] 

end 

of 

command;  ignore 

error 

C1A1 

84  80 

STY 

$80 

Set  track  and 

C1A3 

84  81 

STY 

$81 

sector  to  zero 

C1A5 

84  A3 

STY 

$A3 

Set  back  input  buffer  pointer 

C1A7 

20  C7 

E6 

JSR 

$E6C7 

Produce  'OK' -message 

C1AA 

20  23 

CI 

JSR 

$C123 

Clear  error  flags 

[DAE9/DAFF] 

End  of  command;  no  return  message  prepared 

C1AD 

A5  7F 

LDA 

$7F 

Save  current  drive  (usually  0) 

C1AF 

8D  8E 

02 

STA 

$028E 

as  last  drive  number 

C1B2 

AA 

TAX 

for  current  drive 

C1B3 

4C  9D 

A9 

JMP 

$A99D 

Clear  'Drive  active'  flag 

C1B6 

EA 

NOP 

[through  modification  of  1541ROM] 

C1B7 

20  BD 

CI 

JSR 

$C1BD 

Clear  input  buffer  ($0200-$0228) 

C1BA 

4C  DA 

D4 

JMP 

$D4DA 

Close  internal  read/write  chanels 

[C1B7/E648] 

Clear 

input 

buffer  for  command 

from  computer 

C1BD 

AO  28 

LDY 

#$28 

Overwrite  41  character  positions 

C1BF 

A9  00 

LDA 

#$00 

with  zero 

C1C11 

99  00 

02 

STA 

$0200, Y 

(range  $0200-$0228) 

C1C4 

88 

DEY 

Next  character 

C1C5 

10  FA 

BPL 

$C1C1 

All  characters  cleared  yet? 

C1C7 

60 

RTS 

YES— Return  from  this  subroutine 
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[850E/85AC/9023/91C7/C177/C19C/C1F5/C265/C2D9/C41D/C8C3/C925/C984/CAE3] 
[CAF1/CB4D/CBA2/CC28/CC2D/CD33/CDE2/CF78/CFFA/D214/D38E/D839/D8ED/D8F2] 
[D947/D959/D967/D9C0/E0D3/E16B/E216/E225/E299/E365/E44B/E7C2/EE16/F0EF] 
[F15C] 

Display  error  message  and  necessary  number  in  accumulator 

C1C8    AO  00  LDY  #$00  Clear  pointer 

C1CA    84  80  STY  $80  Clear  track  number  and 

C1CC    84  81  STY  $81  sector  number 

C1CE    4C  D5  A9      JMP  $A9D5  Put  message  in  buffer 


[D005/D7FF/ED84] 

Look  for  ' : '  and  drive  number  in  command  string 
(Y-Register  must  point  to  current  position  in  buffer) 


C1D1 

A2 

00 

LDX 

#$00 

Clear  pointer  to  drive*  position 

C1D3 

8E 

7A 

02 

STX 

$027A 

in  input  buffer 

C1D6 

A9 

3A 

LDA 

#$3A 

Look  for  a  colon  when  looking  for 

C1D8 

20 

68 

C2 

JSR 

$C268 

characters  in  input  buffer 

C1DB 

F0 

05 

BEQ 

$C1E2 

Has  colon  been  found? 

C1DD 

88 

DEY 

YES— Y-Register  shows  position+1 

C1DE 

88 

DEY 

of  character; 

C1DF 

8C 

7A 

02 

STY 

$027A 

Drive  #  position  (before  * : * ) 

C1E21 

4C 

68 

C3 

JMP 

$C368 

Set  drive  and  turn  LED  on 

[C1EE/C904/D82B/DA86] 

Look  for  colon  in  command  string 

C1E5     AO  00  LDY  #$00 

C1E7     A2  00  LDX  #$00 

C1E9     A9  3A  LDA  #$3A 

C1EB     4C  68  C2       JMP  $C268 


Starting  position  of  search 
Number  of  filenames  found 
Colon  declared  as  sought  char 
Search  through  input  buffer 


[C181] 

Test  command  with  two  filenames 


C1EE 

20 

E5 

CI 

JSR 

$C1E5 

C1F1 

DO 

05 

BNE 

$C1F8 

C1F31 

A9 

34 

LDA 

#$34 

C1F5 

4C 

C8 

CI 

JMP 

$C1C8 

C1F82 

88 

DEY 

C1F9 

88 

DEY 

C1FA 

8C 

7A 

02 

STY 

$027A 

C1FD 

8A 

TXA 

C1FE 

DO 

F3 

BNE 

$C1F3 

C2001 

A9 

3D 

LDA 

#$3D 

C202 

20 

68 

C2 

JSR 

$C268 

C205 

8A 

TXA 

C206 

F0 

02 

BEQ 

$C20A 

C208 

A9 

40 

LDA 

#$40 

for  syntax 

Look  for  colon  in  input  buffer 
Has  colon  been  found? 
NO-Display 

•34  Syntax  Error'  error 

Y-Register  points  to  position  +1 

Set  pointer  before  ' : ' 

Save  position  of  drive  number 

Number  of  filenames  already  found 

Have  several  names  been  found? 

NO— '='  -  character 

Look  at  line  after  '=' 

Number  of  filenames  found  so  far 

Has  only  one  file  been  found? 

NO— Bit  6  as  flag  for  more  files 
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C20A^ 

09 

21 

ORA 

#$21 

Bit  0  &  5  for' 1st  filename  found' 

C20C 

8D 

8B 

02 

STA 

$028B 

Save  bitflags 

C20F 

E8 

INX 

Point  to  end  of  1st  filename 

op 

1 1 

02 

STX 

$0277 

Number  of  files  found  by  1st 

C213 

8E 

78 

02 

STX 

$0278 

file  description 

AD 

8A 

02 

LDA 

$028A 

Wildcard  flag  ('*') 

C219 

F0 

OD 

BEQ 

$C228 

Wildcard  onhand  in  filename? 

C21B 

A9 

80 

LDA 

#$80 

YES-Set  flag  in  syntax  byte 

C21D 

0D 

8B 

02 

ORA 

$028B 

and 

C220 

8D 

8B 

02 

STA 

$028B 

save  flag  again 

C223 

A9 

00 

LDA 

#$00 

Clr  search  routine  wildcard  flag 

C225 

8D 

8A 

02 

STA 

$028A 

*~— 

C228^ 

98 

TYA 

Position  of  '=■  -  char  in  command 

C229 

F0 

29 

BEQ 

$C254 

End  of  command  line  found? 

C22B 

9D 

7A 

02 

STA 

$027A,X 

NO— Save  position  of  filename 

C22E 

AD 

77 

02 

LDA 

$0277 

The  #  of  files  for  1st  filenaming 

C231 

8D 

79 

02 

STA 

$0279 

set  as  number  for  second  naming 

C234 

A9 

8D 

LDA 

#$8D 

Look  for  command  string  endmarker 

C236 

20 

68 

C2 

JSR 

$C268 

and  continue  search  to  end 

C239 

E8 

INX 

Save  #  of  commas  found; from  that 

C23A 

8E 

78 

02 

STX 

$0278 

save  the  #  of  additionl  filenames 

C23D 

CA 

DEX 

Establish  original  value 

C23E 

AD 

8A 

02 

LDA 

$028A 

Wildcard  flag  ('*') 

C241 

F0 

02 

BEQ 

$C245 

Wildcard  onhand? 

C243 

A9 

08 

LDA 

#$08 

YES-Set  Bit  3  as  flag 

C245''- 

EC 

77 

02 

CPX 

$0277 

Compare  length  with  old  value 

C248 

F0 

02 

BEQ 

$C24C 

Any  more  filenames  found? 

C24A 

09 

04 

ORA 

#$04 

YES-Flag: filenames  aftr  ■='  char. 

C24C1 

09 

03 

ORA 

#$03 

Flag  for  '='  character  onhand 

C24E 

4D 

8B 

02 

EOR 

$02  8B 

Combine  previous  flags  &  save  as 

C251 

8D 

8B 

02 

STA 

$028B 

new  syntax  status 

C254^ 

AD 

8B 

02 

LDA 

$028B 

Syntax  flag  for  command 

C257 

AE 

2A 

02 

LDX 

$022A 

Compare  onhand  command  numbers 

C25A 

3D 

A5 

FE 

AND 

$FEA5,X 

with  allowable  syntax; 

C25D 

DO 

01 

BNE 

$C2  60 

all  legal? 

C25F 

60 

RTS 

YES— Return  from  this  subroutine 

C2601 

8D 

6C 

02 

STA 

$02  6C 

Save  type  of  incorrect  syntax 

C263 

A9 

30 

LDA 

#$30 

Display 

C265 

4C 

C8 

CI 

JMP 

$C1C8 

■30  Syntax  Error' 
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[C1D8/C1EB/C202/C236/CC21/CC75/D845] 
Search  input  line  for  character  from  accumulator 
(Y-Register  must  contain  current  position  in  input  buffer;) 
(X-Register  contains  number  of  parameters  found) 


C268 

8D 

75 

02 

STA 

$0275 

Chars  looked  for  by  system 

C26B2 

CC 

74 

02 

CPY 

$0274 

Test  length  of  command  string 

C2  6E 

BO 

2E 

BCS 

$C29E 

End  reached? 

C270 

Bl 

A3 

LDA 

($A3),Y 

NO-Get  char  from  input  buffer 

C272 

C8 

INY 

Set  pointer  to  next  character 

C273 

CD 

75 

02 

CMP 

$0275 

Characters  to  be  searched  for 

C276 

FO 

28 

BEQ 

$C2A0 

Identical  w/chars.  in  input  line? 

C278 

C9 

2A 

CMP 

#$2A 

NO-Compare  with  wildcard  ( ' * ' ) 

C27A 

FO 

04 

BEQ 

$C280 

Identical? 

C27C 

C9 

3F 

CMP 

#$3F 

NO-Compare  with  wildcard  ( ' ? ' ) 

C27E 

DO 

03 

BNE 

$C283 

Identical? 

C2801 

EE 

8A 

02 

INC 

$028A 

YES-Set  wildcard  flag 

C2831 

C9 

2C 

CMP 

#$2C 

Compare  current  char  with  ' ,  ' 

C285 

DO 

E4 

BNE 

$C26B 

Identical? 

C287 

98 

TYA 

YES— Save  comma  position+1  as 

C288 

9D 

7B 

02 

STA 

$027B,X 

start-  position  of  next  parameter 

C2  8B 

AD 

8A 

02 

LDA 

$028A 

Get  wildcard  flag  back 

C28E 

29 

7F 

AND 

#$7F 

Clear  wildcard  flag 

C290 

FO 

07 

BEQ 

$C2  99 

Find  a  joker? 

C2  92 

A9 

80 

LDA 

#$80 

YES-Set  bit  7  as  flag  and 

C294 

95 

E7 

STA 

$E7,X 

save  filename  as  name  with  joker 

C296 

8D 

8A 

02 

STA 

$028A 

Set  bit  7  of  wildcard  flag 

C2991 

E8 

INX 

Increment  #  of  parameters  found. 

C2  9A 

EO 

04 

CPX 

#$04 

separated  by  commas;  reached  a 

C29C 

90 

CD 

BCC 

$C2  6B 

maximum  of  five  open  files? 

C29E1 

AO 

00 

LDY 

#$00 

YES— Y-value=0  signalling  end 

C2A01 

AD 

74 

02 

LDA 

$0274 

Save  length  of  command  line  as 

C2A3 

9D 

7B 

02 

STA 

$027B,X 

start  position  of  last  parameter 

C2A6 

AD 

8A 

02 

LDA 

$028A 

Get  wildcard  fig  of  last  filename 

C2A9 

29 

7F 

AND 

#$7F 

Remove  bit  7 

C2AB 

FO 

04 

BEQ 

$C2B1 

Wildcard  in  parameter  onhand? 

C2AD 

A9 

80 

LDA 

#$80 

YES-Identify  in  file  table  as 

C2AF 

95 

E7 

STA 

$E7,X 

name  with  a  wildcard  attached 

2B11 

98 

TYA 

Position  in  input  line  (end=0) 

C2B2 

60 

RTS 

Return  from  this  subroutine 
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[BF48/C160/D7B9/E207/C2DC:BF4B,DA86] 

Set  all  flags  and  look  at  command  string  table 


C2B3 

A4 

A3 

LDY 

$A3 

Low-byte  of  input  buffer  pointer 

C2B5 

FO 

14 

BEQ 

$C2CB 

address  $A3/$A4  =$0200? 

C2B7 

88 

DEY 

NO-Adjust  buffer  pointer 

C2B8 

FO 

10 

BEQ 

$C2CA 

Is  $A3  =1? 

C2BA 

20 

02 

AA 

JSR 

$AA02 

NO— Test  for  User  command 

C2BD 

C9 

OD 

CMP 

#$0D 

Check  command  chars  for  <RETURN> 

C2BF 

FO 

OA 

BEQ 

$C2CB 

End-of-line  reached? 

C2C1 

88 

DEY 

NO— Set  pointer  to  character 

C2C2 

B9 

00 

02 

LDA 

$0200, Y 

Get  char  from  buffer;  compare 

C2C5 

C9 

OD 

CMP 

#$0D 

with  <RETURN>  (end-of-line) 

C2C7 

FO 

02 

BEQ 

$C2CB 

Identical? 

C2C9 

C8 

I  NY 

NO— Set  buffer  pointer  back  to 

C2CA1 

C8 

INY 

output  value 

C2CB3 

8C 

74 

02 

STY 

$0274 

Save  pointer  value  to  end  of  cmd 

C2CE 

CO 

2A 

CPY 

#$2A 

string;  max.  length  reached? 

C2D0 

AO 

FF 

LDY 

#$FF 

Value  of  'no  command'  command  # 

C2D2 

90 

08 

BCC 

$C2DC 

Cmd  string  less  than  buffer(42)? 

C2D4 

8C 

2A 

02 

STY 

$022A 

NO-Clear  command  number 

C2D7 

A9 

32 

LDA 

#$32 

Line  too  long? 

C2D9 

4C 

C8 

CI 

JMP 

$C1C8 

Display  '32  Syntax  Error'  message 

C2DC3 

AO 

00 

LDY 

#$00 

Clear  &  set  back  table,  pointers 

C2DE 

98 

TYA 

and  flags 

C2DF 

85 

A3 

STA 

$A3 

Input  buffer  pointer  at  $0200 

C2E1 

8D 

58 

02 

STA 

$0258 

Current  record  length 

C2E4 

8D 

4A 

02 

STA 

$024A 

Current  filetype 

C2E7 

8D 

96 

02 

STA 

$0296 

Filetype  from  command  string 

C2EA 

85 

D3 

STA 

$D3 

Pointer  to  first  filename 

C2EC 

8D 

79 

02 

STA 

$0279 

Filename  pointer 

C2EF 

8D 

77 

02 

STA 

$0277 

#of  files  for  lstfile  designation 

C2F2 

8D 

78 

02 

STA 

$0278 

#of  files  for  2ndfile  designation 

C2F5 

8D 

8A 

02 

STA 

$028A 

'Wildcard  found  in  filename'  flag 

C2F8 

8D 

6C 

02 

STA 

$02  6C 

■Syntax  Error'  flag 

C2FB 

A2 

05 

LDX 

#$05 

Clear  table  to  five  filenames 

C2FD1 

9D 

79 

02 

STA 

$0279, X 

End  position  of  filename  in  buffr 

C300 

95 

D7 

STA 

$D7,X 

Directory  sector  of  file 

C302 

95 

DC 

STA 

$DC,X 

Position/file  in  directory  sector 

C304 

95 

El 

STA 

$E1,X 

Drive  number  of  file 

C306 

95 

E6 

STA 

$E6,X 

Filetype  and  wildcard  flag 

C308 

9D 

7F 

02 

STA 

$027F,X 

Current  track  number  of  file 

C30B 

9D 

84 

02 

STA 

$0284, X 

Current  sector  number  of  file 

C30E 

CA 

DEX 

Table  for  next  filename 

C30F 

DO 

EC 

BNE 

$C2FD 

All  5  possible  filenames  ready? 

C311 

60 

RTS 

Return  from  this  subroutine 
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[90B8/A60E/D84C/EEOD/C320:C82  6,C90F,CA88,DA96] 
Get  drive  number  of  file  and  set  into  file  table 


C312 

AD 

78 

02 

LDA 

$0278 

Recover  number  of  files  for 

C315 

8D 

77 

02 

STA 

$0277 

file  specification 

C318 

A9 

01 

LDA 

#$01 

Set  number  to  be  given  for 

C31A 

8D 

78 

02 

STA 

$0278 

a  file 

C31D 

8D 

79 

02 

STA 

$0279 

indication 

C3204 

AC 

8E 

02 

LDY 

$028E 

Lzast  active  drive 

C323 

A2 

00 

LDX 

#$00 

Save  current  number 

C3255 

86 

D3 

STX 

$D3 

of  filename 

C327 

BD 

7A 

02 

LDA 

$027A,X 

Starting  pos.of  filename  in  buffr 

C32A 

20 

3C 

C3 

JSR 

$C33C 

Get  drive  number  from  buffer 

C32D 

A6 

D3 

LDX 

$D3 

Number  of  current  file  parameters 

C32F 

9D 

7A 

02 

STA 

$027A,X 

Save  position  in  command  string; 

C332 

98 

TYA 

Get  drive  position  from  that 

C333 

95 

E2 

STA 

$E2,X 

Set  drive  number  for  file 

C335 

E8 

INX 

Go  to  next  file 

C336 

EC 

78 

02 

CPX 

$0278 

Compare  with  #  of  files  to  be 

C339 

90 

EA 

BCC 

$C325 

worked  on;  all  of  them  ready? 

C33B 

60 

RTS 

YES— Return  from  this  subroutine 

[C32A] 

Get  drive  number 

from  command 

string 

C33C 

AA 

TAX 

Position  of  filename  in  buffer 

C33D 

AO 

00 

LDY 

#$00 

Number  of  standard  drive 

C33F 

A9 

3A 

LDA 

#$3A 

Colon  ' : ' 

C341 

DD 

01 

02 

CMP 

$0201, X 

Colon  behind  current  position? 

C344 

F0 

0C 

BEQ 

$C352 

YES-Then  syntax  correct/goto$C352 

C346 

DD 

00 

02 

CMP 

$0200, X 

Compare  with  current  position 

C349 

DO 

01 

BNE 

$C361 

Pointer  aiming  at  a  colon? 

C34B 

E8 

INX 

YES— No  drive  assignment 

C34C1 

98 

TYA 

Drive  number 

C34D2 

29 

01 

AND 

#$01 

(0  or  1  allowed  only); 

C34F1 

A8 

TAY 

save  drive  in  Y-register 

C350 

8A 

TXA 

Current  position  in  input  buffer 

C351 

60 

RTS 

Return  from  this  subroutine 

C3521 

BD 

00 

02 

LDA 

$0200, X 

Drive  number  from  command  string 

C355 

E8 

INX 

Set  input  buffer  pointer  behind 

C356 

E8 

INX 

drives  indicator  ( ' : ' ) 

C357 

C9 

30 

CMP 

#$30 

Drive  null? 

C359 

F0 

F2 

BEQ 

$C34D 

YES— Then  set  drive; 

C35B 

C9 

31 

CMP 

#$31 

Test  for  drive  1 

C35D 

F0 

EE 

BEQ 

$C34D 

Identical? 
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C35F     DO  EB  BNE  $C34C  NO-Jump  to  $C34C 

C3611  98  TYA  Standard  drive  number  (0) 

C362     09  80  ORA  #$80  Set  flag  for  improper 

C364     29  81  AND  #$81  drive  number  and  give  to 

C366     DO  E7  BNE  $C34F  subroutine 


[C1E2] 


Initialize  drive 

and 

switch  drive 

LED  on 

C368 

A9 

00 

LDA 

#$00 

Clear  command  syntax 

C36A 

8D 

8B 

02 

STA 

$028B 

flag 

C36D 

AC 

7A 

02 

LDY 

$027A 

Current  position  in  input  buffer 

C3701 

Bl 

A3 

LDA 

($A3) ,Y 

Get  character  from  command  string 

C372 

20 

BD 

C3 

JSR 

$C3BD 

Test  for  legal  drive  number 

C375 

10 

11 

BPL 

$C388 

Number  correct? 

C377 

C8 

INY 

NO— Pointer  to  next  character 

C378 

CC 

74 

02 

CPY 

$0274 

Length  of  command  string 

C37B 

B0 

06 

BCS 

$C383 

Reached  end? 

C37D 

AC 

74 

02 

LDY 

$0274 

NO— Length  of  command  string 

C380 

88 

DEY 

Set  pointer  to  last  character 

C381 

DO 

ED 

BNE 

$C370 

Is  only  1  command  char  onhand? 

C3831 

CE 

8B 

02 

DEC 

$028B 

YES-' not  found'  in  syntax  flag 

C386 

A9 

00 

LDA 

#$00 

Set  number  of  standard  drive 

C3881 

29 

01 

AND 

#$01 

as  current  drive  number 

C38A 

85 

7F 

STA 

$7F 

C38C 

4C 

00 

CI 

JMP 

$C100 

LED  on 

[C40E/C420/C427/C467/C4  97/C704/C70B] 
Switch  to  other  drive 

C38F    A5  7F  LDA  $7F  Current  drive  number 

C391     49  01  EOR  #$01  Turn  to  drive  bit  and  remove 

C393    29  01  AND  #$01  other  bits 

C395    85  7F  STA  $7F  Store  as  current  drive 

C397     60  RTS  Return  from  this  subroutine 


[C823/DA98] 

Set  and  determine  filetype 


C398 

AO 

00 

LDY 

#$00 

Choose  first  filename  for  table 

C39A 

AD 

77 

02 

LDA 

$0277 

Check  position  of  1st  filename 

C39D 

CD 

78 

02 

CMP 

$0278 

w/position  of  filetype  identifier 

C3A0 

F0 

16 

BEQ 

$C3B8 

Identical? 

C3A2 

CE 

78 

02 

DEC 

$0278 

NO— Then  set  pointer  to  filetype 

C3A5 

AC 

78 

02 

LDY 

$0278 

C3A8 

B9 

7A 

02 

LDA 

$027A, Y 

Take  pointer  to  end  of  filename 

C3AB 

A8 

TAY 

and  get  matching  characters 

C3AC 

Bl 

A3 

LDA 

<$A3),Y 

from  the  filename 

C3AE 

AO 

04 

LDY 

#$04 

Number  of  possible  filetypes 
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C3B01  D9  BB  FE 
C3B3     FO  03 
C3B5  88 
C3B6     DO  F8 


C3B82  98 


C3B9 
C3BC 


8D  96  02 
60 


CMP  $FEBB,Y  Characters  in  filetype  table 

BEQ  $C3B8  onhand? 

DEY  Turn  pointer  to  next  filetype 

BNE  $C3B0  Already  testd  with  all  filetypes? 

TYA  YES— Save  number  of 

STA  $0296  filetypes  (=0  when  none  exist) 

RTS  Return  from  this  subroutine 


[C372/DA68] 

Drive  number  tested  for  validity 


C3BD 

C3BF 

C3C1 

C3C3 

C3C5 

C3C72 

C3C9 


C9  30 
F0  06 
C9  31 
F0  02 
09  80 
29  81 
60 


CMP  #$30 
BEQ  $C3C7 
CMP  #$31 
BEQ  $C3C7 
ORA  #$80 
AND  #$81 
RTS 


Is  drive  number 

equal  to  drive  0? 

NO- Then  is  drive  number 

equal  to  drive  1? 

NO-Set  bit  7  as  error  flag  Sclear 

remaining  bits (from  ASCII  values) 

Return  from  this  subroutine 


[C44F/C829/D84F/DA9E] 
Initialize  drive  given  in 


C3CA 

A9 

00 

LDA 

#$00 

C3CC 

85 

6F 

STA 

$6F 

C3CE 

8D 

8D 

02 

STA 

$028D 

C3D1 

48 

PHA 

C3D2 

AE 

78 

02 

LDX 

$0278 

C3D52 

68 

PLA 

C3D6 

05 

6F 

ORA 

$6F 

C3D8 

48 

PHA 

C3D9 

A9 

01 

LDA 

#$01 

C3DB 

85 

6F 

STA 

$6F 

C3DD 

CA 

DEX 

C3DE 

30 

OF 

BMI 

$C3EF 

C3E0 

B5 

E2 

LDA 

$E2,X 

C3E2 

10 

04 

BPL 

$C3E8 

C3E4 

06 

6F 

ASL 

$6F 

C3E6 

06 

6F 

ASL 

$6F 

C3E81 

4A 

LSR 

A 

C3E9 

90 

EA 

BCC 

$C3D5 

C3EB 

06 

6F 

ASL 

$6F 

C3ED 

DO 

E6 

BNE 

$C3D5 

C3EF1 

68 

PLA 

C3F0 

AA 

TAX 

C3F1 

BD 

3F 

C4 

LDA 

$C43F,X 

C3F4 

48 

PHA 

C3F5 

29 

03 

AND 

#$03 

C3F7 

8D 

8C 

02 

STA 

$028C 

Clear  temp,  memory  for  creating 

index  of  control  bytes 

Clear  'number  of  drives'  flag 

Prepare  stack  for  following  prog. 

Number  of  names  going  with  files 

Pointer  to  control  byte 

Enter  and  save  last 

entry 

Set  flag  for  'Drive  indication 
is  onhand' 

Countr  for  filenames  tobe  checked 

Dirve  number  ready  for  all  files? 

Get  file  drive  number 

Drives  identifier  set? 

NO-Adjust 

bit  flags 

Test  drive  number 

Is  drive  1  chosen? 

YES— Pointer  to  bytes  for  drive  1 

Jump  to  $C3D5 

Set  control  byte  pointer 

for  drive  initialization 

Get  and  save  access 

control  byte 

Determine  #  of  allowable  drives; 
save  it 
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C3FA 

68 

PLA 

Repeat  control  byte 

C3FB 

OA 

ASL 

A 

Flag  for  'Only  one  drive' 

C3FC 

10 

3E 

BPL 

$C43C 

Is  only  one  indicator  allowed? 

C3FE 

A5 

E2 

LDA 

$E2 

YES— Take  drive  #  or  first  fxle 

C400 

29 

01 

AND 

#$01 

as  current 

C402 

85 

7F 

STA 

$7F 

drive 

C404 

AD 

8C 

02 

LDA 

$028C 

Get  number  of  allowable  drives 

C407 

FO 

2B 

BEQ 

$C434 

Is  it  an  allowable  drive? 

C409 

20 

3D 

C6 

JSR 

$C63D 

NO— Initialize  current  drive 

C40C 

FO 

12 

BEQ 

$C420 

Drive  ready? 

C40E 

20 

8F 

C3 

JSR 

$C38F 

NO— Switch  to  other  drive 

C411 

A9 

00 

LDA 

#$00 

Clear  number  of  allowable 

C413 

8D 

8C 

02 

STA 

$028C 

drives 

C416 

20 

3D 

C6 

JSR 

$C63D 

Initialize  other  drive 

C419 

FO 

IE 

BEQ 

$C439 

Drive  ready? 

C41B1 

A9 

74 

LDA 

#$74 

NO— Display 

C41D 

20 

C8 

CI 

JSR 

$C1C8 

'74  Drive  Not  Ready'  message 

C4201 

20 

8F 

C3 

JSR 

$C38F 

Change  to  other  drive 

C423 

20 

3D 

C6 

JSR 

$C63D 

Initialize  drive  and 

C426 

08 

PHP 

save  result 

C427 

20 

8F 

C3 

JSR 

$C38F 

Switch  to  other  drive  &  get 

C42A 

28 

PLP 

previous  result  again 

C42B 

FO 

OC 

BEQ 

$C439 

Is  previous  drive  ready? 

C42D 

A9 

00 

LDA 

#$00 

NO— CLear  legal  number  of 

C42F 

8D 

8C 

02 

STA 

$028C 

drives 

C432 

FO 

05 

BEQ 

$C439 

Jump  to  $C439 

C4341 

20 

3D 

C6 

JSR 

$C63D 

Initialize  drive 

C437 

DO 

E2 

BNE 

$C41B 

Is  drive  ready? 

C4393 

4C 

00 

CI 

JMP 

$C100 

YES— Switch  LED  of  drive  on 

C43C1 

2A 

ROL 

A 

Adjust  control  byte  and  get 

C43D 

4C 

00 

C4 

JMP 

$C400 

drive  number  from  control  byte 

[C3F1]     Control  bytes  for  type  of  drive  initialization 

Functions  of  individual  bits: 

Bit  0/1  :  Number  of  drives  utilized  (0/1/2) 

Bit  6      :  1=  Take  drive  number  from  control  byte 

Bit  7       :  0/1  drive  number  for  Bit6 


C440  00  80  41  01  01  01  01  81 
C448     81  81  81  42  42  42  42 
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[90C8/C952/CA99/E7B8] 

Look  for  file  entry  in  directory 


C4  4F 

20 

CA 

C3 

JSR 

$C3CA 

Set  disk  drive  for  file  to  search 

C4o*! 

A9 

00 

LDA 

#$00 

Indicator  on  1st  directory  entry 

C454 

8D 

92 

02 

STA 

$0292 

Erase 

C457 

20 

AC 

C5 

JSR 

$C5AC 

Set  indicator,  search  entry 

C45A 

DO 

19 

BNE 

$C475 

Valid  entry  found? 

C45C''- 

CE 

8C 

02 

DEC 

$028C 

NO— number  of  disk  drives 

C45F 

10 

01 

BPL 

$C4  62 

One  more  disk  drive? 

C4  61 

60 

RTS 

Back  to  calling  routine 

C4  62^ 

A9 

01 

LDA 

#$01 

Flag  for  both  disk  drives 

C4  64 

8D 

8D 

02 

STA 

$028D 

Search  set 

C4  67 

20 

8F 

C3 

JSR 

$C38F 

Change  to  other  disk  drive 

C4  6A 

20 

00 

CI 

JSR 

$C100 

Activate  LED  at  disk  drive 

C46D 

4C 

52 

C4 

JMP 

$C452 

Search  entry  on  other  disk  drive 

C4701 

20 

17 

C6 

JSR 

$C617 

Search  next  valid  file 

C473 

F0 

10 

BEQ 

$C485 

Found? 

C4752 

20 

D8 

C4 

JSR 

$C4D8 

YES— check  directory  entry 

C478 

AD 

8F 

02 

LDA 

$028F 

Indicator  for  file  entry  found 

C47B 

F0 

01 

BEQ 

$C47E 

Is  entry  corrrect? 

C47D 

60 

RTS 

YES— back  to  calling  routine 

C47E1 

AD 

53 

02 

LDA 

$0253 

Flag  for  entry  is  found 

C481 

30 

ED 

BMI 

$C470 

Is  rile  round? 

C483 

10 

FO 

BPL 

$C475 

YES—  jump  to  $C475 

C4851 

AD 

8F 

02 

LDA 

5028F 

Is  flag  for  file  found 

C488 

F0 

D2 

BEQ 

$C45C 

Last  entry? 

C48A 

60 

RTS 

NO— return  to  the  calling  routine 

[C86D] 

Search  file 

entry  in 

directory 

C48B 

20 

04 

C6 

JSR 

$C604 

Search  directory  for  file 

C4  8E 

F0 

1A 

BEQ 

$C4AA 

Is  entry  found? 

C490 

DO 

28 

BNE 

$C4BA 

YES— continue  at  $C4BA 

C4921 

A9 

01 

LDA 

il  &  f>  T 

#501 

Flag  for  access  on  both  drives 

C4  94 

8D 

8D 

02 

STA 

5028D 

Set 

C4  97 

20 

8F 

C3 

JSR 

$C38F 

Change  to  other  disk  drive 

C4  9A 

20 

00 

CI 

JSR 

$C100 

Switch  on  LED 

C49D3 

A9 

00 

LDA 

#$00 

Indicator  on  first  value 

C4  9F 

8D 

92 

02 

STA 

$0292 

Delete  entry 

C4A2 

20 

AC 

C5 

JSR 

$C5AC 

Initial  indicator;  search  entry 

C4A5 

DO 

13 

BNE 

$C4BA 

Is  file  found? 

C4A7 

8D 

8F 

02 

STA 

$028F 

Position 

C4AA2 

AD 

8F 

02 

LDA 

$028F 

Store 

C4AD 

DO 

28 

BNE 

$C4D7 

Last  entry 

C4AF 

CE 

8C 

02 

DEC 

$028C 

YES— number  of  allowed  drives 

C4B2 

10 

DE 

BPL 

$C4  92 

Switch  to  other  disk  drive? 
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C4B4 

60 

RTS 

NO— return  to  calling  routine 

C4B5J 

20 

17 

C6 

JSR 

$C617 

Get  next  entry 

C4B8 

F0 

F0 

BEQ 

$C4AA 

Entry  found? 

C4BA<! 

20 

D8 

C4 

JSR 

$C4D8 

YES— verify  entry  w/searched  flag 

C4BD 

AE 

53 

02 

LDX 

$0253 

Get  flag 

C4C0 

10 

07 

BPL 

$C4C9 

Is  entry  the  same? 

C4C2 

AD 

8F 

02 

LDA 

$028F 

NO-get  flag  found  for  file 

C4C5 

F0 

EE 

BEQ 

$C4B5 

Was  file  found? 

C4C7 

DO 

OE 

BNE 

$C4D7 

NO-jump  to  $C4D7 

C4C91 

AD 

96 

02 

LDA 

$0296 

Get  actual  file  type 

C4CC 

F0 

09 

BEQ 

$C4D7 

Is  entry  valid? 

C4CE 

B5 

E7 

LDA 

$E7,X 

YES-get  indicator : search  filetype 

C4D0 

29 

07 

AND 

#$07 

And  insulate  save  for  type 

C4D2 

CD 

96 

02 

CMP 

$0296 

Verify  with  search  file  type 

C4D5 

DO 

DE 

BNE 

$C4B5 

Identical? 

C4D73 

60 

RTS 

YES— return  to  calling  routine 

[C475/C4BA] 

Search  directory  entry 


C4D8 

A2 

FF 

LDX 

#$FF 

Flag  for  entry  found 

C4DA 

8E 

53 

02 

STX 

$0253 

Delete 

C4DD 

E8 

INX 

(0) 

C4DE 

8E 

8A 

02 

STX 

$028A 

Delete  flag  for  wildcard 

C4E1 

20 

89 

C5 

JSR 

$C589 

Set  file  flag 

C4E4 

F0 

06 

BEQ 

$C4EC 

Was  entry  found? 

C4E61 

60 

RTS 

YES— return  to  calling  routine 

[C4F5/C4FC/C513/C519/C533] 

Search  next 

entry 

C4E7 

20 

94 

C5 

JSR 

$C594 

Search  next  entry 

C4EA 

DO 

FA 

BNE 

$C4E6 

Found  ? 

C4EC1 

A5 

7F 

LDA 

$7F 

YES-get  current  disk  drive  and 

C4EE 

55 

E2 

EOR 

$E2,X 

Verify  with  disk  drive  number  of 

C4F0 

4A 

LSR 

A 

the  file  entry 

C4F1 

90 

0B 

BCC 

$C4FE 

Identical? 

C4F3 

29 

40 

AND 

#$40 

NO-get  flag  for  disk  drive  type 

C4F5 

F0 

F0 

BEQ 

$C4E7 

Drive  set  with  standard  value? 

C4F7 

A9 

02 

LDA 

#$02 

YES— value  f/access  to  both  drives 

C4F9 

CD 

8C 

02 

CMP 

$028C 

Verify  with  access  flag 

C4FC 

F0 

E9 

BEQ 

$C4E7 

Search  for  both  disk? 

C4FE1 

BD 

7A 

02 

LDA 

$027A,X 

NO-get  and  store  position  of  file 

C501 

AA 

TAX 

Name  in  command  string 

C502 

20 

A6 

C6 

JSR 

$C6A6 

Set  parameter  for  name  in  command 

C505 

AO 

03 

LDY 

#$03 

Set  buffer  indicator  on  Dir.  name 

C507 

4C 

ID 

C5 

JMP 

$C51D 

Verify  names  with  command  string 

C50A1 

BD 

00 

02 

LDA 

$0200, X 

Get  character  from  oommand  string 
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C50D 

Dl 

94 

CMP 

($94) ,Y 

Verify  name  with  directory  name 

C50F 

FO 

OA 

BEQ 

$C51B 

Identical? 

C511 

C9 

3F 

CMP 

#$3F 

NO— verify  wilcard  with  ' ? ' 

C513 

DO 

D2 

BNE 

$C4E7 

Identical? 

C515 

Bl 

94 

LDA 

($94) ,Y 

YES— get  char  from  directory  entry 

C517 

C9 

AO 

CMP 

#$A0 

Verify  w/value  for  shift  space 

C519 

FO 

CC 

BEQ 

$C4E7 

Entire    filename  already  read? 

C51B1 

E8 

INX 

NO— indicator  of  command  string 

C51C 

C8 

INY 

Point  idicator  in  directory  buff 

C51D1 

EC 

76 

02 

CPX 

$0276 

Indicator  to  end  of  name  in  comnd 

C520 

BO 

09 

BCS 

$C52B 

End  of  filename  reached? 

C522 

BD 

00 

02 

LDA 

$0200, X 

NO— get  character  from  filename 

C525 

C9 

2A 

CMP 

#$2A 

Verify  with  '*'char  for  wildcard 

C527 

FO 

OC 

BEQ 

$C535 

Identical? 

C529 

DO 

DF 

BNE 

$C50A 

NO-jump  to  $C50A 

C52B1 

CO 

13 

cpy 

#$13 

Verify  with  return 

C52D 

BO 

06 

BCS 

$C535 

Is    ASCII  value  smaller  ? 

C52F 

Bl 

94 

LDA 

($94) ,Y 

YES— get  char  from  directory  and 

C531 

C9 

AO 

CMP 

#$A0 

Verify  with  value  for  shift  space 

C533 

DO 

B2 

BNE 

$C4E7 

Complete  filename  already  read? 

C535^ 

AE 

79 

02 

LDX 

$0279 

YES—get  position  for  dir.  entry 

C538 

8E 

53 

02 

STX 

$0253 

and  set  indicator 

C53B 

B5 

E7 

LDA 

$E7,X 

Determine  entry  of  file 

C53D 

29 

80 

AND 

#$80 

Set  flag  for  joker 

C53F 

8D 

8A 

02 

STA 

$028A 

and  store 

C542 

AD 

94 

02 

LDA 

$0294 

Indicator  to  pos.  in  dir.  buffer 

C545 

95 

DD 

STA 

$DD,X 

Determine  filename  in  table 

C547 

A5 

81 

LDA 

$81 

Number  of  directory  sector 

C54  9 

95 

D8 

STA 

$D8,X 

Store 

C54B 

AO 

00 

LDY 

#$00 

Buffer  indicator  to  entry  start 

C54D 

Bl 

94 

LDA 

($94) ,Y 

Get  file  type  from  directory 

C54F 

C8 

INY 

Buffer  indicator  to  next  char 

C550 

48 

PHA 

Store  original  file  type 

C551 

29 

40 

AND 

#$40 

Insulate  flag  for  scratch-protect 

C553 

85 

6F 

STA 

$6F 

and  store 

C555 

68 

PLA 

Recall  file  type 

C556 

29 

DF 

AND 

#$DF 

Fade  out  scratch  file 

C558 

30 

02 

BMI 

$C55C 

Is  file  closed  properly? 

C55A 

09 

20 

ORA 

#$20 

NO-flag  for'*'  file 

C55C1 

29 

27 

AND 

#$27 

Take  over  flag  and  file  type 

C55E 

05 

6F 

ORA 

$6F 

and  fade  in  scratch  flag 

C560 

85 

6F 

STA 

$6F 

Store  both 

C562 

A9 

80 

LDA 

#$80 

Flag  for  'File  type  is  set' 

C564 

35 

E7 

AND 

$E7,X 

Take  over  from  table 

C566 

05 

6F 

ORA 

$6F 

S  fade  in  bits  from  new  filetypes 

C568 

95 

E7 

STA 

$E7,X 

Determine  type  in  table/ filename 
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C56A 

B5 

E2 

LDA 

$E2,X 

Get  number  of  entry's  disk  drive 

C56C 

29 

80 

AND 

#$80 

and  current  disk  drive  number 

C56E 

05 

7F 

ORA 

$7F 

Enter 

C570 

95 

E2 

STA 

$E2,X 

Write  value  in  disk  drive  table 

C572 

Bl 

94 

LDA 

($94) ,Y 

Get  track  number  of  1st  sector 

C574 

9D 

80 

02 

STA 

$0280, X 

and  enter  in  table 

C577 

C8 

INY 

Point  indicator  to  next  byte 

C578 

Bl 

94 

LDA 

($94) ,Y 

Get  sector  number  from  entry 

C57A 

9D 

85 

02 

STA 

$0285, X 

and  store 

C57D 

AD 

58 

02 

LDA 

$0258 

Get  current  record  length 

C580 

DO 

07 

BNE 

$C589 

Is  value  set? 

C582 

AO 

15 

LDY 

#$15 

NO-buffr  indicator  to  value/entry 

C584 

Bl 

94 

LDA 

($94), Y 

Get  record  length  of  dir.  entry 

C586 

8D 

58 

02 

STA 

$0258 

and  store  in  indicator 

[C4E1/C580] 
Re-initial  flags 


C589 

A9 

FF 

LDA 

#$FF 

Delete  indicator 

C58B 

8D 

8F 

02 

STA 

$028F 

Flag  for  last  entry 

C58E 

AD 

78 

02 

LDA 

$0278 

Indicator  to  position  of  filename 

C591 

8D 

79 

02 

STA 

$0279 

in  the  input  buffer 

[C4E7/C5A4] 

Quit  search 

for 

filename 

C594 

CE 

79 

02 

DEC 

$0279 

Number  of  filenames 

C597 

10 

01 

BPL 

$C59A 

Process  more  entries? 

C599 

60 

RTS 

NO-back  to  calling  routine 

C59A1 

AE 

79 

02 

LDX 

$0279 

Get  number  of  filename 

C59D 

B5 

E7 

LDA 

$E7,X 

and  determine  current  file  type 

C59F 

30 

05 

BMI 

$C5A6 

Is  value  set? 

C5A1 

BD 

80 

02 

LDA 

$0280, X 

NO-get  track  of  first  sector 

C5A4 

DO 

EE 

BNE 

$C594 

Is  value  determined? 

C5A61 

A9 

00 

LDA 

#$00 

NO-flag:last  dir  entry  reached 

C5A8 

8D 

8F 

02 

STA 

$028F 

Set 

C5AB 

60 

RTS 

Return  to  calling  routine 

[C457/C4A2/D70E/ED97] 

Set  indicator  to  search  in  directory 


C5AC 

AO 

00 

LDY 

#$00 

Indicator  to  current  dir.  sector 

C5AE 

8C 

91 

02 

STY 

$0291 

Delete 

C5B1 

88 

DEY 

Flag  for  'ENTRY  FOUND ' 

C5B2 

8C 

53 

02 

STY 

$0253 

Reset 

C5B5 

AD 

85 

FE 

LDA 

$FE85 

Number  of  directory  track (18) 

C5B8 

85 

80 

STA 

$80 

Get,  and  store  as  current  track 

C5BA 

A9 

01 

LDA 

#$01 

Indicator  to  sector  number 

C5BC 

85 

81 

STA 

$81 

Set 
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C5BE 

8D 

93 

02 

STA 

$0293 

C5C1 

20 

75 

D4 

JSR 

$D475 

C5C4  ^ 

AD 

93 

02 

LDA 

$0293 

LjL  / 

nn 
DO 

n  i 
01 

BNE 

$C5CA 

LDL  y 

cn 

RTS 

Ay 

U  / 

LDA 

#$07 

on 
oD 

yo 

02 

STA 

$0295 

Ay 

n  n 

ou 

LDA 

II  Ann 

#$00 

o  n 
20 

r  b 

r\A 
D4 

JSR 

$D4F6 

on 
oD 

yj 

no 

uz 

STA 

$0293 

COD  / 

o  n 
20 

E8 

D4 

JSR 

$D4E8 

C5DA 

CE 

95 

02 

DEC 

$0295 

C5DD 

AO 

00 

LDY 

#$00 

C5DF 

Bl 

94 

LDA 

($94) ,Y 

C5E1 

DO 

18 

BNE 

$C5FB 

/"■KIP  O 

AD 

n  i 
91 

02 

LDA 

$0291 

C5E6 

DO 

2F 

BNE 

$C617 

O  A 

20 

3B 

DE 

JSR 

$DE3B 

TV  c 

AO 

ol 

LDA 

$81 

C5ED 

oD 

91 

02 

STA 

$0291 

Ljr  u 

AO 

Q  A 

y  4 

LDA 

$94 

cor  «i 

A£j 

y2 

no 
U2 

LDX 

$02  92 

cor  o 

on 
oD 

y2 

no 
U2 

STA 

$0292 

Cor  o 

r  U 

ID 

BEQ 

$C617 

Cor  A 

bO 

RTS 

C5FB* 

A2 

01 

LDX 

#$01 

C5FD 

EC 

92 

02 

CPX 

$0292 

r\n 
DO 

2D 

BNE 

$C62F 

r  0 

1-5 

BEQ 

$C617 

fcna2 

COUfl 

AU 

o  c 

OO 

FE 

LDA 

$FE85 

CbO  / 

o  c 
00 

o  n 

STA 

$80 

AD 

nn 

yo 

no 
02 

LDA 

«*•  /\  ft  ft  ft 

$0290 

ObOC 

OO 

81 

STA 

$81 

C60E 

20 

75 

D4 

JSR 

$D475 

Col  J. 

AD 

n  a 

02 

LDA 

$0294 

PCI  >l 

O  pt 

20 

Co 

r\  A 
D4 

JSR 

$D4C8 

Col  / 

A9 

FF 

LDA 

#$FF 

Lbi  y 

on 
oD 

03 

02 

STA 

$0253 

CblC 

AD 

95 

02 

LDA 

$0295 

C61F 

30 

08 

BMI 

$C629 

C621 

A9 

20 

LDA 

#$20 

C623 

20 

C6 

Dl 

JSR 

$D1C6 

C626 

4C 

D7 

C5 

JMP 

$C5D7 

C6291 

20 

4D 

D4 

JSR 

$D44D 

C62C 

4C 

C4 

C5 

JMP 

$C5C4 

Delete  flag  for  'SECTOR  READ' 
Transfer  sector  in  buffer 
Indicator  to  next  dir.  sector 
Is  there  another  sector? 
NO-return  to  calling  routine 
Store  amount  of  file  entries  in 
a  directory  block  -  1 
Position  of  byte  to  read 
Get  byte  of  current  buffer 
and  store 

Set  indicator  for  current  buffer 
Counter  for  entries  in  dir. sector 
Set  indicator  to  start  of  entry 
and  get  file  type  identification 
Is  entry  deleted? 
YES-number  of  current  sector 
Is  value  set? 

NO-get  track  and  sector  number 

#  of  current  directory  sector 
Store 

Low-byte  of  indicator  to  entry 
Get  indicator  to  valid  entry 
Set  new  value 

Was  indicator  deleted  before? 

NO-return  to  calling  routine 

Number  of  first  entry 

Verify  with  last  value 

Was  first  entry  set? 

NO-jump  to  $0617 

Number  of  directory  track 

Get  and  store  as  current  track 

Number  of  directory  sector 

Store  as  current  sector 

Read  sector  from  disc  in  buffer 

Indictor  on  postion  of  entry 

Set  directory  indicator 

Flag  for  'file  entry  found* 

Delete 

#  of  directory  entries  per  sector 
Is  counter  set? 

YES— amount  of  bytes  of  an  entry 
Buff  indictor  to  next  file  entry 
Set  indicator 

Read  next  block  from  directory 
Set  indicator 
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C62F1  A5  94  LDA  $94  Low-byte  of  current  indictor 

C631     8D  94  02  STA  $0294  Store 

C634     20  3B  DE  JSR  $DE3B  Get  track  and  sector  of  last  job 

C637    A5  81  LDA  $81  Number  of  directory  sector 

C639     8D  90  02  STA  $0290  Store 

C63C     60  RTS  Back  to  calling  routine 


[83AO/840B/9088/C409/C416/C423/C434/CB8C] 
Initial  Diskette 


C63D 

A5 

68 

LDA 

ten 
900 

pi  arr  fr>r   H  n -t  t  "1  a  1  automatic1 

C63F 

DO 

28 

BNE 

5C669 

Tn      4  ai    narm1!  ft^H    nnl  v   bv  hand? 
Initial    JJc  1  nil  L.  Lt;v_i    uniy    **J  y     iianv*  ■ 

C641 

A6 

7F 

LDX 

6  T  TP 

$  IF 

yars  nnmHor   nf   current   disc  drive 

C643 

56 

1C 

LSR 

$1C,X 

r*^a+-  / /->Vi d/^v  f  1  arr  -f r\~r  "initial  1  z at ion 

C645 

90 

22 

BCC 

$C669 

oflaJ-X    Clj.SC   JO©  lllltiaiit.cu. 

C647 

A9 

FF 

LDA 

Ji  6TPTT 

Yo c  Lja-t- (""h   f  l  an  far    'error  t>v   iob 1 

C649 

8D 

98 

02 

STA 

502  98 

ueiete 

C64C 

20 

0E 

DO 

JSR 

5D00E 

C64F 

AO 

FF 

LDY 

#5FF 

c  i qu   Value   lux.      cii>ux  wv^vuicu 

C651 

C9 

02 

CMP 

#502 

<rav4  -F\/   vfloiil  t~   mi  th   rnHp   "for  svnc 

C653 

F0 

OA 

BEQ 

$C65F 

Was  sync  mark  found? 

C655 

C9 

03 

CMP 

#$03 

YES— check  for  blockheader  code 

C657 

F0 

06 

BEQ 

$C65F 

Was  blockheader  found? 

C659 

C9 

OF 

CMP 

#$0F 

YES-check  code  of  disk  drive 

C65B 

F0 

02 

BEQ 

$C65F 

Is  the  disk  drive  approachable? 

C65D 

AO 

00 

LDY 

#$00 

YES-flag  value  for  "no  error' 

C65F3 

A6 

7F 

LDX 

$7F 

Get  number  of  current  disk  drive 

C661 

98 

TYA 

And  the  error  flag 

C662 

95 

FF 

STA 

$FF,X 

In  respective  disk  drive  status 

C664 

DO 

03 

BNE 

$C669 

Is  disk  drive  ready? 

C666 

20 

42 

DO 

JSR 

$D042 

YES-read  BAM 

C6693 

A6 

7F 

LDX 

$7F 

Get  number  of  current  disc  drive 

C66B 

B5 

FF 

LDA 

$FF,X 

And  respective  disc  drive  status 

C66D 

60 

RTS 

Back  to  calling  routine 

[CAC0/D768/EE68] 

Copy  file  name  from  input  buffer  to  directory  buffer 
(The  Accumulator  has  to  contain  the  length  of  the  name  in  X,  the 


position 

in 

the 

string  in  Y 

and  the  number  of  the  directory  buffer) 

C66E 

48 

PHA 

Store  length  of  file  name 

C66F 

20 

A6 

C6 

JSR 

$C6A6 

Postition  of  name  in  inputstring 

C672 

20 

88 

C6 

JSR 

$C688 

Determine  and  copy  name  in  buffer 

C675 

68 

PLA 

Recall  length  of  file  name 

C676 

38 

SEC 

Length  of  copied  file  name 

C677 

ED 

4B 

02 

SBC 

$024B 

Verify  with  maximum  lengths 

C67A 

AA 

TAX 

of  file  entry  (16) 

C67B 

F0 

OA 

BEQ 

$C687 

Is  entry  fulfilled? 

C67D 

90 

08 

BCC 

$C687 

No-file  name  smaller  than  place? 
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C67F 

A9 

AO 

LDA 

#$A0 

Yes-fill  rest  of  the  characters 

C681-1- 

91 

94 

STA 

($94) , Y 

of  filename  with  'shift  space' 

C683 

C8 

I  NY 

Buffer    l  nHi  rafnr   f~  r\   r>  v+-    /^Kav   r\^\  r> 

C684 

CA 

DEX 

Amount   of  rhararf pr<!  rr>   f  ■(  1  1 

C685 

DO 

FA 

BNE 

$C681 

File  nampd  filleri? 

C6872 

60 

RTS 

YES — back   t"0   ral  1  i  nn   rnnf*  i  no 

[C672] 

Copy 

part 

of  the  input 

buffer   and  thp   cnrr-emr    Hal- a   Kuf far 

C688 

98 

TYA 

Double  the  number 

C689 

OA 

ASL 

A 

of  current  buf f er 

C68A 

A8 

TAY 

(Table  contains  2—  bvte>  i  nrflratnr 

C68B 

D3 

00 

LDA 

50099, Y 

Get  address  of  buffer  (Low-byte) 

C68E 

85 

94 

STA 

$94 

&  set  in  indicator  of  dir.  buffer 

C690 

B9 

9A 

00 

LDA 

$009A,Y 

Get  address  of  buffer  (High— byte) 

C693 

85 

95 

STA 

$95 

&    Set    in   indicator*    "in   Hit  buffer 

C695 

AO 

00 

LDY 

#$00 

Delete  indicatr  on  buf ferposition 

C6971 

BD 

00 

02 

LDA 

$0200, X 

Get  byte  from  input  buffer 

C69A 

91 

94 

STA 

($94), Y 

And  cot>v  in  current  buffer 

C69C 

C8 

INY 

Data  buffr  indicator  to  next  page 

FO 

06 

BEQ 

$C6A5 

Data  buffer  full? 

C69F 

E8 

INX 

NO—raise  indicator  input  buffer 

C6A0 

EC 

76 

02 

CPX 

$0276 

Verify  w/lengths  of  comnd  strings 

C6A3 

90 

F2 

BCC 

$C697 

Last  character  reached? 

C6A51 

60 

RTS 

YES— back  to  calling  routine 

[C502/C66F] 

Search  length  of  file  name  in  input  buffer  (Start  position  in  X) 


C6A6 

A9 

00 

LDA 

#$00 

Indicator  on  length  of  name 

C6A8 

8D 

4B 

02 

STA 

$024B 

Delete 

C6AB 

8A 

TXA 

Get  startposition  in  input  buffer 

C6AC 

48 

PHA 

And  store 

C6AD1 

BD 

00 

02 

LDA 

$0200, X 

Get  character  of  name 

C6B0 

C9 

2C 

CMP 

#$2C 

And  verify  with  ' , ' 

C6B2 

F0 

14 

BEQ 

$C6C8 

Indentical? 

C6B4 

C9 

3D 

CMP 

#$3D 

NO- verify  with  '=' 

C6B6 

FO 

10 

BEQ 

$C6C8 

Identical? 

C6B8 

EE 

4B 

02 

INC 

$024B 

NO-raise  length  of  file  name 

C6BB 

E8 

INX 

Set  buffer  indicator  to  next  char 

C6BC 

A9 

OF 

LDA 

#$0F 

Verify  lengths  of  current  name 

C6BE 

CD 

4B 

02 

CMP 

$024B 

with  maximum  lengths  of  file  name 

C6C1 

90 

05 

BCC 

$C6C8 

Current  file  name  to  big? 

C6C3 

EC 

74 

02 

CPX 

$0274 

NO— verify  position  w/endof  string 

C6C6 

90 

E5 

BCC 

$C6AD 

Is  end  of  input  string  reached? 

C6C83 

8E 

76 

02 

STX 

$0276 

YES— store  length  of  file  name 

C6CB 

68 

PLA 

S  recall  indicator  to  start  pos. 

C6CC 

AA 

TAX 

And  set 

C6CD 

60 

RTS 

Back  to  calling  routine 
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[ECF2] 


Read 

file 

entry 

from 

directory 

C6CE 

A5 

83 

LDA 

$83 

Current  active  secondary  address 

C6D0 

48 

PHA 

Save 

C6D1 

A5 

82 

LDA 

$82 

Number  of  current  active  channel 

C6D3 

48 

PHA 

Save 

C6D4 

20 

DE  C6 

JSR 

$C6DE 

Get  file  entry 

C6D7 

68 

PLA 

Number  of  channel 

C6D8 

85 

82 

STA 

$82 

Restore 

C6DA 

68 

PLA 

End  previous  secondary  address 

C6DB 

85 

83 

STA 

$83 

Set  again 

C6DD 

60 

RTS 

Back  to  calling  routine 

[C6D4] 

Establish  directory  for  output  to  buffer 


C6DE 

Ay 

1  T 
11 

T  HTA 

1 

ffi?±± 

^prfindarv  address  17 

C6E0 

85 

83 

STA 

p\  /-.4-  y^.  -y"  rn  "l  irt  j-n 

C6E2 

20 

EB 

DO 

JSR 

<?UU£>£) 

vpcil  v_.Ildilll<=-i- 

C6E5 

20 

£8 

TCD 

9Ufi  JIjO 

^<»t   i  nrfi  rator  to  current  buffer 

C6E8 

AD 

c  o 

OO 

JjLJA 

f^e*t  fl  act  for  file  entrv 

C6EB 

10 

OA 

■Qrj  T 

orli 

PC  or  / 

Wa c   ontru  found*' 

C6ED 

AD 

oD 

t  nn 

trto  on 
oU 

NO— flag  for  directory  disc  drives 

C6F0 

UA 

"OMIT 

Directory  of  both  disc  drives? 

Cor  ^ 

n  c 
U  o 

PR 
CO 

NO— get  'blocks  free1  and  write 

C6F5 

18 

CLC 

C6F6 

60 

RTS 

Ds/sif  -i-o  ral  1  i  no  routine 

/•»  CTP  ^  1 

Cor  / 

AD 

on 
OU 

t  na 

LiUtx 

Check  flag  for  directory  drives 

C6FA 

F0 

IF 

BEQ 

$C71B 

Directory  of  both  disc  drives 

C6FC1 

CE 

8D 

02 

DEC 

$028D 

YES-set  flag  to  'no' 

C6FF 

DO 

0D 

BNE 

$C70E 

Was  flag  not  set  right? 

C701 

CE 

8D 

02 

DEC 

$028D 

NO-correct  flag 

C704 

20 

8F 

C3 

JSR 

$C38F 

Change  to  other  disc  drive 

C707 

20 

06 

C8 

JSR 

$C806 

Get  'blocks  free'  write  in  buffer 

C70A 

38 

SEC 

And  switch  back  to 

C70B 

4C 

8F 

C3 

JMP 

$C38F 

Previous  disk  drive 

C70E1 

A9 

00 

LDA 

#$00 

Memory  for  block  number 

C710 

8D 

73 

02 

STA 

$0273 

Delete 

C713 

8D 

8D 

02 

STA 

$028D 

Delete  flag:   'both  disc  drives' 

C716 

20 

B7 

C7 

JSR 

$C7B7 

Develope  title  of  directory 

C719 

38 

SEC 

Flag  for  'more  entries* 

C71A 

60 

RTS 

Back  to  calling  routine 

C71B1 

A2 

18 

LDX 

#$18 

Length  of  directory  line  (24) 

C71D 

AO 

ID 

LDY 

#$1D 

Set  byte  indicator  for  filelength 

C71F 

Bl 

94 

LDA 

($94) ,Y 

Get  amount  of  blocks  (high-byte) 

C721 

8D 

73 

02 

STA 

$0273 

and  store 

C724 

F0 

02 

BEQ 

$C728 

Is  block  number  >256  &  3  digit? 

C726 

A2 

16 

LDX 

#$16 

YES-decrease  length  of  characters 
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C7281 

88 

DEY 

C729 

Bl 

94 

LDA 

($94) , Y 

C72B 

8D 

72 

02 

STA 

$0272 

C72E 

EO 

16 

CPX 

#$16 

C730 

FO 

OA 

BEQ 

$C73C 

C732 

C9 

OA 

CMP 

#$0A 

C734 

90 

06 

BCC 

$C73C 

C736 

CA 

DEX 

C737 

C9 

64 

CMP 

#$64 

C739 

90 

01 

BCC 

$C73C 

C73B 

CA 

DEX 

C73C3 

20 

AC 

C7 

JSR 

$C7AC 

C73F 

Bl 

94 

LDA 

($94) ,Y 

C741 

48 

PHA 

C742 

OA 

ASL 

A 

C743 

10 

05 

BPL 

$C74A 

C745 

A9 

3C 

LDA 

#$3C 

C747 

9D 

B2 

02 

STA 

$02B2,X 

C74A1 

68 

PLA 

C74B 

29 

OF 

AND 

#$0F 

C74D 

A8 

TAY 

C74E 

B9 

C5 

FE 

LDA 

$FEC5, Y 

C751 

9D 

Bl 

02 

STA 

$02B1,X 

C754 

CA 

DEX 

C755 

B9 

CO 

FE 

LDA 

$FEC0,Y 

C758 

9D 

Bl 

02 

STA 

$02B1,X 

C75B 

CA 

DEX 

C75C 

B9 

BB 

FE 

LDA 

$FEBB, Y 

C75F 

9D 

Bl 

02 

STA 

$02B1,X 

C762 

CA 

DEX 

C763 

CA 

DEX 

C764 

BO 

05 

BCS 

$C76B 

C766 

A9 

2A 

LDA 

#$2A 

C768 

9D 

B2 

02 

STA 

$02B2,X 

C76B1 

A9 

AO 

LDA 

#$A0 

C7  6D 

9D 

Bl 

02 

STA 

$02B1,X 

C770 

CA 

DEX 

C771 

AO 

12 

LDY 

#$12 

C7731 

Bl 

94 

LDA 

($94) ,Y 

C775 

9D 

Bl 

02 

STA 

$02B1,X 

C778 

CA 

DEX 

C779 

88 

DEY 

C77A 

CO 

03 

CPY 

#$03 

C77C 

BO 

F5 

BCS 

$C773 

C77E 

A9 

22 

LDA 

#$22 

C780 

9D 

Bl 

02 

STA 

$02B1,X 

C7831 

E8 

INX 

Buffer  indicator  for  block  # 
Get  lo-byte  for  block  number 
And  store 

Verify  w/value  for  short  length 

Is  3  digit  block  number  there? 

Verify  amount  of  blocks  with  ten 

Block  number  smaller  (one  digit)? 

NO— shorten  rest  line 

Verify  block  number  with  100 

Is  block  number  smaller (2  digit)? 

NO— shorten  rest  line 

Delete  buffer  for  directory 

Get  byte  for  file  type 

And  store 

Get  bit  6  as  flag  file  lock 

Is  file  locked? 

YES-char  for  file  locking  '<■ 

Write  behind  file  type 

Recall  file  type 

Insulate  file  type 

And  its  short  name  in  directory 

3rd  letter  of  file  short  name 

Get  and  write  in  buffer 

Shorten  length  of  directory  line 

2nd  letter  of  file  short  name 

Get  and  write  in  buffer 

Shorten  name  of  directory  line 

1st  letter  of  file  short  name 

Get  and  write  in  buffer 

Shorten  length  'of 

Directory 

Is  the  file  closed  properly? 
NO-'*'  as  notification 
Set  before  file  short  name 
One  empty  character 
Insert 

&  shorten  length  of  dir.  line 

Set  buffer  position  of  file  name 

Get  character  of  file  name 

And  write  in  directory  buffer 

Shorten  length  of  directory  line 

Lower  buffer  indicator 

Verify  with  end  value 

All  chars  of  name  taken  over? 

YES-set  "before  name" 

Set 

Raise  indicator  in  directory  line 


ROM- 130 


Abacus  Software 


1571  Internals 


C784 

EO 

20 

CPX 

#$20 

Check  to  maximum  value 

C786 

BO 

OB 

BCS 

$C793 

End  of  buffer  reached? 

C788 

BD 

Bl 

02 

LDA 

$02B1,X 

NO-get  character  from  file  name 

C78B 

C9 

22 

CMP 

#$22 

And  verify  with  " 

C78D 

FO 

04 

BEQ 

$C7  93 

Identical? 

C78F 

C9 

AO 

CMP 

#$A0 

NO-verify  with  'shift  space' 

C791 

DO 

FO 

BNE 

$C783 

Identical? 

C793^ 

A9 

22 

LDA 

#$22 

YES-then  replace  with  " 

C795 

9D 

Bl 

02 

STA 

$02B1,X 

(at  end  of  data  name) 

C798 

E8 

INX 

Set  filename  indicator  to  next 

-1 

C7991 

EO 

20 

CPX 

#$20 

byte  and  verify  with  end  value 

C79B 

BO 

OA 

BCS 

$C7A7 

End  of  file  name  reached? 

C79D 

A9 

7F 

LDA 

#$7F 

NO— value  f/bit  7 (reverse) deleted 

C79F 

3D 

Bl 

02 

AND 

$02B1,X 

Get  character  of  directory  line 

C7A2 

9D 

Bl 

02 

STA 

$02B1,X 

And  switch  reverse  off 

C7A5 

10 

Fl 

BPL 

$C798 

Always  jump  to  $C7  98 

C7A71 

20 

B5 

C4 

JSR 

$C4B5 

Get  next  entry 

C7AA 

38 

SEC 

Flag  for  'more  entries' 

C7AB 

60 

RTS 

Back  to  calling  routine 

[C73C/C7BD/C806] 

Delete  buffer  for  data  name  with  empty  character 


C7AC 

AO 

IB 

LDY 

#$1B 

Length  of  directory  line  (27) 

C7AE 

A9 

20 

LDA 

#$20 

Empty  character  as  delete  value 

C7B01 

99 

B0 

02 

STA 

$02B0,Y 

Delete  buffer  position 

C7B3 

88 

DEY 

Set  buffer  indicator  to  next  byte 

C7B4 

DO 

FA 

BNE 

$C7B0 

Buffer  deleted? 

C7B6 

60 

RTS 

YES— return  to  calling  routine 

C7B7 

20 

19 

Fl 

JSR 

$F119 

Set  pointer  to  BAM 

C7BA 

20 

DF 

F0 

JSR 

$F0DF 

Read  BAM  from  diskette 

C7BD 

20 

AC 

C7 

JSR 

$C7AC 

Clear  buffer  for  directory  line 

C7C0 

A9 

FF 

LDA 

#$FF 

Initialize 

C7C2 

85 

6F 

STA 

$6F 

temporary  storage 

C7C4 

A6 

7F 

LDX 

$7F 

Write  number  of  current  drive 

C7C6 

8E 

72 

02 

STX 

$0272 

as  two-byte  value  (as  in  block  #) 

C7C9 

A9 

00 

LDA 

#$00 

in  directory  buffer 

C7CB 

8D 

73 

02 

STA 

$0273 

Directory  buffer 

C7CE 

A6 

F9 

LDX 

$F9 

Get  current  buffer  number 

C7D0 

BD 

E0 

FE 

LDA 

$FEE0,X 

Get  buffer  address  (high-byte) 

C7D3 

85 

95 

STA 

$95 

and  save  it 

C7D5 

AD 

88 

FE 

LDA 

$FE88 

Take  pos.  of  diskname  as  lo-byte 

C7D8 

85 

94 

STA 

$94 

of  buffer  address 

C7DA 

AO 

16 

LDY 

#$16 

Length  of  diskette  name 

C7DC 

Bl 

94 

LDA 

($94) ,Y 

Get  character  of  name 

C7DE 

C9 

AO 

CMP 

#$A0 

Compare  with  ' Shift  Space ' 

C7E0 

DO 

0B 

BNE 

$C7ED 

Is  diskette  name  at  an  end? 
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C  /  iLZ 

Ay 

Jl 

LDA 

#$31 

YES-Dummy  for  test  after  ( • 1 ' ) 

.byte  $2C 

Jump  two  bytes 

pnp  C  1 
C  /  £jO 

Bl 

LDA 

($94) , Y 

Get  char  from  directory  entry 

r,,7,c,*7 

AU 

CMP 

#$A0 

Compare  with  'Shift  Space" 

no 

BNE 

$C7ED 

Is  entry  to  an  end? 

^  /  JLI3 

0  C\ 
<£  u 

LDA 

#$20 

YES— Transfer  blank  character  into 

P7t?n2 

/  ILL) 

DO 

STA 

$02B3, Y 

buffer  and  set  buffer  pointer 

L/rU 

o  o 
oo 

DEY 

to  next  byte 

C7F1 

10 

F2 

BPL 

$C7E5 

End  of  buffer  reached? 

w  /J?  o 

Ay 

12 

LDA 

#$12 

YES-Code  for  'Reverse  On'  on 

C7F5 

8D 

Bl 

02 

STA 

$02B1 

Set  line  beginning  in  buffer 

C7F8 

A9 

22 

LDA 

#$22 

Put  quotation  marks  before  and  x 

C7FA 

8D 

B2 

02 

STA 

$02B2 

after  the  diskette 

C7FD 

8D 

C3 

02 

STA 

$02C3 

name 

C800 

A9 

20 

LDA 

#$20 

Write  space  in 

C802 

8D 

C4 

02 

STA 

$02C4 

buffer 

C805 

60 

RTS 

return  from  this  subroutine 

[C6F2/C707] 

Set  up  closing  line  with  'Blocks  free.' 

C806    20  AC  C7  JSR  $C7AC  Clear  buffer  for  directory  line 

C809    AO  0B  LDY  #$0B  Set  linelength 

C80B1  B9  17  C8  LDA  $C817,Y  Get  char  from  'Blocks  Free'string 

C80E    99  Bl  02  STA  $02B1,Y  and  write  into  buffer 

C811     88  DEY  Set  buffer  pointer  to  next  byte 

C812     10  F7  BPL  $C80B  Line  ready? 

C814     4C  4D  EF  JMP  $EF4D  YES-Get  number  of  free  blocks 


C817  42  4C  4F  43  4B  53  20 
C81E     46  52  45  45  2E 


•  BLOCKS 
' FREE . ' 


[Origin  through  routine  C14  6] 

Routine 

for 

Scratch  command 

C823 

20 

98 

C3 

JSR 

$C398 

Chk  if  cmd  is  limited/ filetype 

C826 

20 

20 

C3 

JSR 

$C320 

Get  drive  #  from  command  string 

C829 

20 

CA 

C3 

JSR 

$C3CA 

Initialize  drive 

C82C 

A9 

00 

LDA 

#$00 

Set  back  counter  for  number  of 

C82E 

85 

86 

STA 

$86 

deleted  files 

C830 

20 

9D 

C4 

JSR 

$C49D 

Get  first  file  entry 

C833 

30 

3D 

BMI 

$C872 

Entry  found? 

C8351 

20 

B7 

DD 

JSR 

$DDB7 

YES-Test  file  for  validity 

C838 

90 

33 

BCC 

$C86D 

Has  file  been  closed  properly? 

C83A 

AO 

00 

LDY 

#$00 

YES-Pointer  to  filetype  position 

C83C 

Bl 

94 

LDA 

($94) ,Y 

Get  filetype  from  directory 

C83E 

29 

40 

AND 

#$40 

Test  bit6  as  flag  f /scratch  prot . 

C840 

DO 

2B 

BNE 

$C86D 

Is  the  file  ready  for  scratching? 
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C842 

20 

B6 

C8 

JSR 

$C8B6 

NC—Delete  entry 

C845 

AO 

13 

LDY 

#$13 

Set  pointer  to  side-sector  entry 

C847 

Bl 

94 

LDA 

($94) ,Y 

Get  track  #  of  first  side-sector 

C849 

FO 

OA 

BEQ 

$C855 

Side-sector  onhand? 

C84B 

85 

80 

STA 

$80 

YES— Save  track  number  and 

C84D 

C8 

INY 

get  corresponding 

C84E 

Bl 

94 

LDA 

($94) ,Y 

sector  number  as  entry 

C850 

85 

81 

STA 

$81 

and  Save  it 

C852 

20 

7D 

C8 

JSR 

$C87D 

Pursue  and  free  up  blocks 

C855 

AD 

78 

02 

LDA 

$0278 

Entry  number 

C858 

A9 

20 

LDA 

#$20 

Check  Flag  for  'File  not  closed" 

C85A 

35 

E7 

AND 

$E7,X 

in  filetype  identifier 

C85C 

DO 

OD 

BNE 

$C86B 

Is  entry  a  '*■  file? 

C85E 

BD 

80 

02 

LDA 

$0280, X 

NO— Set  track  of  first  sector 

C861 

85 

80 

STA 

$80 

as  current  track  number 

C863 

BD 

85 

02 

LDA 

$0285, X 

Take  up  sector  number  of 

C866 

85 

81 

STA 

$81 

file  data 

C868 

20 

7D 

C8 

JSR 

$C87D 

Follow  and  free  up  file  blocks 

C86B1 

E6 

86 

INC 

$86 

Increment  #  of  scatched  files 

C86D2 

20 

8B 

C4 

JSR 

$C48B 

Get  next  file  entry 

C870 

10 

C3 

BPL 

$C835 

Found  it? 

C8721 

A5 

86 

LDA 

$86 

NO-Give  #  of  deleted  files  to 

C874 

85 

80 

STA 

$80 

return  message 

C876 

A9 

01 

LDA 

#$01 

Number  of  return  message 

C878 

AO 

00 

LDY 

#$00 

Value  for  sector  number 

C87A 

4C 

A3 

CI 

JMP 

$C1A3 

Display  '01  Files  Scratched1 

[C852/C868/DC1B] 

Pursue  sectors  onhand  and  free  up  in  BAM 


C87D 

20 

5F 

EF 

JSR 

$EF5F 

Free  up  first  and  current  blocks 

C880 

20 

75 

D4 

JSR 

$D475 

Read  next  sector 

C883 

20 

19 

Fl 

JSR 

$F119 

Get  number  of  BAM  channel 

C886 

B5 

A7 

LDA 

$A7,X 

Get  number  of  2nd  buffer 

C888 

C9 

FF 

CMP 

#$FF 

Compare  with  'Buffer  free' 

C88A 

F0 

08 

BEQ 

$C894 

Is  buffer  allocated? 

C88C 

AD 

F9 

02 

LDA 

$02F9 

NO— Set  flag  in  pointer  for 

C88F 

09 

40 

ORA 

#$40 

■BAM  illegal  for  writing 

C891 

8D 

F9 

02 

STA 

$02F9 

to  diskette' 

C8942 

A9 

00 

LDA 

#$00 

Set  buffer  pointer 

C896 

20 

C8 

D4 

JSR 

$D4C8 

to  beginning  of  sector 

C899 

20 

56 

Dl 

JSR 

$D156 

Get  byte  from  sector  and  save 

C89C 

85 

80 

STA 

$80 

track  of  next  sector 

C89E 

20 

56 

Dl 

JSR 

$D156 

Get  byte  from  sector  and  set 

C8A1 

85 

81 

STA 

$81 

number  of  next  sector 

C8A3 

A5 

80 

LDA 

$80 

Get  track  number  of  next  sector 

C8A5 

DO 

06 

BNE 

$C8AD 

Is  the  current  sector  the  last? 
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C8A7     20  F4  EE  JSR  $EEF4  YES-Write  BAM  to  diskette  again 

C8AA    4C  27  D2  JMP  $D227  Re-close  channel  and  end 

C8AD1  20  5F  EF  JSR  $EF5F  Free  up  sector  in  BAM 

C8B0     20  4D  D4  JSR  $D44D  Read  next  sector  and 

C8B3     4C  94  C8  JMP  $C894  continue 


[C842/D8D3/EDDF] 

File  entry  in  filetype  of  directory  marked  as  scratched 

C8B6    AO  00  LDY  #$00  Set  buffer  pointer  to  filetype 

C8B8     98  TYA  Take  value  for  'DEL'  filetype 

C8B9     91  94  STA  ($94), Y  in  entry  and  adjust 

C8BB    20  5E  DE      JSR  $DE5E  directory 

C8BE     4C  99  D5      JMP  $D599  Wait  until  writing  is  done 

[C909/Origin  through  routine  C146] 

Backup  command  routine  (not  possible  with  single  drive) 
C8C1    A9  31  LDA  #$31  Display 

C8C3    4C  C8  CI      JMP  $C1C8  '31  Syntax  Error'  message  &  rturn 


[A780] 


Routine  for 

1541 

New 

command 

(format  diskette) 

C8C6 

A9 

4C 

LDA 

#$4C 

JMP-pointer  for  format  routine 

C8C8 

8D 

00 

06 

STA 

$0600 

in  buffer  address  $0600-$0602 

C8CB 

A9 

C7 

LDA 

#$C7 

set  for  disk  controller. 

C8CD 

8D 

01 

06 

STA 

$0601 

($FAC7),  re-calling  its  own  sub- 

C8D0 

A9 

FA 

LDA 

#$FA 

program  for  every 

C8D2 

8D 

02 

06 

STA 

$0602 

new  track 

C8D5 

A9 

03 

LDA 

#$03 

Number  of  buffer  used 

C8D7 

20 

D3 

D6 

JSR 

$D6D3 

Track  /  sector  number  to  jobloop 

C8DA 

A5 

7F 

LDA 

$7F 

Get  current  drive  number 

C8DC 

09 

E0 

ORA 

#$E0 

Tie  in  jobcode  for  buffer  program 

C8DE 

85 

03 

STA 

$03 

(jump  to  pointer) 

C8E01 

A5 

03 

LDA 

$03 

and  get  return  message 

C8E2 

30 

FC 

BMI 

$C8E0 

Wait  until  diskette  is  formatted 

C8E4 

C9 

02 

CMP 

#$02 

Compare  return  message  with  'OK' 

C8E6 

90 

07 

BCC 

$C8EF 

Format  ended  error-free? 

C8E8 

A9 

03 

LDA 

#$03 

NO-Error  number  for  'File' 

C8EA 

A2 

00 

LDX 

#$00 

Go  to  buffer  0  and 

C8EC 

4C 

OA 

E6 

JMP 

$E60A 

display  message 

C8EF1 

60 

RTS 

Return  from  this  subroutine 
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[Origin  through  C146] 

COPY  command  routine  (file  copier) 


C8F0 

A9 

EO 

LDA 

#$E0 

Set  up  all  buffers 

C8F2 

8D 

4F 

02 

STA 

$024F 

in  bit  library 

C8F5 

20 

Dl 

FO 

JSR 

$F0D1 

Set  track  /  sector  number  for  BAM 

C8F8 

20 

19 

Fl 

JSR 

$F119 

Determine  buffer  number  of  BAM 

C8FB 

A9 

FF 

LDA 

#$FF 

BAM  buffer  marked  with 

C8FD 

95 

A7 

STA 

$A7,X 

'free'  identifier 

C8FF 

A9 

OF 

LDA 

#$0F 

Free  up  all  channels  for  cor- 

C901 

8D 

56 

02 

STA 

$0256 

responding  bit  library 

C904 

20 

E5 

CI 

JSR 

$C1E5 

Look  for  ' : 1  in  command  string 

C907 

DO 

03 

BNE 

$C90C 

Found  it? 

C909 

4C 

CI 

C8 

JMP 

$C8C1 

NO-error  messge:'31  Syntax  Error' 

C90C1 

20 

F8 

CI 

JSR 

$C1F8 

Work  with  input  string 

C90F 

20 

20 

C3 

JSR 

$C320 

Get  /  set  drive  number 

C912 

AD 

8B 

02 

LDA 

$028B 

Get  command  syntax  flag  and  get 

C915 

29 

55 

AND 

#$55 

flags  for  filenames 

C917 

DO 

OF 

BNE 

$C928 

Are  several  filenames  onhand? 

C919 

AE 

7A 

02 

LDX 

$027A 

YES— Pos .  of  command  target  name 

C91C 

BD 

00 

02 

LDA 

$0200, X 

Get  character  from  filename 

C91F 

C9 

2A 

CMP 

#$2A 

Check  for  '*'  wildcard 

C921 

DO 

05 

BNE 

$C928 

Wildcard  onhand? 

C9231 

A9 

30 

LDA 

#$30 

YES-Display 

C925 

4C 

C8 

CI 

JMP 

$C1C8 

'30  Syntax  Error'  message 

C9282 

AD 

8B 

02 

LDA 

$028B 

Get  command  syntax  flag 

C92B 

29 

D9 

AND 

#$D9 

Test  flag  for  wildcard 

C92D 

DO 

F4 

BNE 

$C923 

Are  wildcards  onhand? 

C92F 

4C 

52 

C9 

JMP 

$C952 

NO-Copy  file 

[Routine  not  used  in  DOS] 

Initialize  Backup-  command  pointer  (Command  not  onhand) 


C932 

A9 

00 

LDA 

#$00 

Clear  pointer: 

C934 

8D 

58 

02 

STA 

$0258 

Length  of  a  record 

C937 

8D 

8C 

02 

STA 

$028C 

Number  of  disk  accesses 

C93A 

8D 

80 

02 

STA 

$0280 

Track  number  of  target  file 

C93D 

8D 

81 

02 

STA 

$0281 

Track  number  of  source  file 

C940 

A5 

E3 

LDA 

$E3 

Value  for  standard  drive 

C942 

29 

01 

AND 

#$01 

Limit  declaration  to  bit  0  and 

C944 

85 

7F 

STA 

$7F 

pointer  for  current  drive 

C946 

09 

01 

ORA 

#$01 

Set  back  number  of  current 

C948 

8D 

91 

02 

STA 

$0291 

directory  sector 

C94B 

AD 

7B 

02 

LDA 

$027B 

Copy  position  of  2nd  parameter  in 

C94E 

8D 

7A 

02 

STA 

$027A 

first  place 

C951 

60 

RTS 

Return  from  this  subroutine 
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[C92F]  Copy  file(s) 


C952 

20 

4F 

C4 

JSR 

$C44F 

jjuuk.  lor  iiic  entry  in  directory 

C955 

AD 

78 

02 

LDA 

$0278 

w uiilmcl   ui  ouui i lies  name  a. 

C958 

C9 

03 

CMP 

#$03 

x  jiux  v  xuual  LllcS 

C95A 

90 

45 

BCC 

3PQA1 

Less  cnan  o  rues  named : 

C95C 

A5 

E2 

LDA 

$E2 

iiLo  ^uinpaie  axxve  if  ot  Laryetiiie 

C95E 

C5 

E3 

CMP 

$E3 

wxen  souiccriis  arive 

C960 

DO 

3F 

BNE 

Spqai 

^*°Py  only  one  aiSKetce  £ 

C962 

A5 

DD 

enn 

iilo— compare  ff  or  target  files  in 

C964 

C5 

DE 

PMP 

directory  with  source  files 

DJNEj 

<?t-:7ft± 

identical? 

C968 

A5 

D8 

T.nA 

p  JJ  o 

ito-iest  if  or  appropriate  air 

C96A 

C5 

D9 

CMP 

$D9 

sectors  witn  tnose  on  source  rue 

C96C 

DO 

33 

OLNH 

^PQA1 

Should  entry  be  overwritten? 

C96E 

20 

pp 

PA 

too 
U  ol\ 

<p  APP 

ic.s>— look  ror  rile  entry  in  dir. 

C971 

A9 

01 

t.ha 

IT  vUl 

oet  pointer  to  rirst 

C973 

8D 

79 

02 

STA 

$0279 

L  X  J.t=IlCLlIie 

C976 

20 

FA 

C9 

U  OA 

<P  QTTA 

Open  file  for  reading  and 

C979 

20 

25 

Dl 

.7<?P 
u  On 

VU1£J 

get  file type 

C97C 

FO 

04 

BEQ 

$C982 

xs  xxie  entry  a  relative  rue : 

C97E 

C9 

02 

CMP 

wu tnecK  xor     rKb  laentirier 

C980 

DO 

05 

SPQR7 

luentiCai ; 

0982^ 

A9 

64 

LDA 

1r  •?  vi 

uispxay     bfi  rixe  lype  Mismatch 

C984 

20 

P1 

tpl  no 

message 

C9871 

A9 

12 

LDA 

#$12 

Set 

C989 

85 

83 

STA 

SRI 

internal  write  cnannei   \ lo ) 

C98B 

AD 

3C 

02 

LDA 

Transfer  #  of  allocated  internal 

C98E 

8D 

3D 

02 

STA 

$023D 

cnannei  in  reau  cnannei 

C991 

A9 

FF 

LDA 

#SPF 
ttyr  r 

oet    cnannei  rree  nag 

C993 

8D 

3C 

02 

STA 

$023C 

in  table 

C996 

20 

2A 

DA 

JSR 

$DA2A 

Copy  1st  sourcefile  to  targetfile 

C999 

A2 

02 

LDX 

#$02 

Pointer  of  second  filename  to 

C99B 

20 

B9 

C9 

JSR 

$C9B9 

n  0  vt~     f  n  1  a 
IIcaL  Lilc 

C99E 

4C 

94 

CI 

JMP 

$C194 

TI'nH       /-\  m  m  a  n  H  •     Hi  0  t^i  1  aw     1  at/  i 
HiJiu.  ovJiiuiicLiiUf  uibpiay 

C9A14 

20 

A7 

C9 

JSR 

$C9A7 

copy  rue 

C9A4 

4C 

94 

CI 

JMP 

$C194 

Eina  command,   display  ui\ 

[C9A1] 

Copy 

individual  files 

C9A7 

20 

E7 

CA 

JSR 

$CAE7 

Jce    xi    culi y    aiicauy   eXXSt S 

C9AA 

A5 

E2 

LDA 

$E2 

Get  drive  indicator  of  targetfile 

C9AC 

29 

01 

AND 

#$01 

and  take  on  as  number  of 

C9AE 

85 

7F 

STA 

$7F 

current  drive 

C9B0 

20 

86 

D4 

JSR 

$D486 

Open  internal  channel  for  writing 

C9B3 

20 

E4 

D6 

JSR 

$D6E4 

Enter  target  file  in  directory 

C9B6 

AE 

77 

02 

LDX 

$0277 

Take  number  of  target  names  as 
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[C99B/C9F1] 

Copy  multiple  files 


cyisy 

8E 

/  y 

AO 
\J£. 

olX 

/y 

number  of  source  names 

o  n 
z  <J 

r  A 

L.y 

yr  A 

Read,  directory 

Ay 

1 1 

t  rMi 

ff«?±  1 

1©   \if  or  internal  reau  caannei; 

oo 

OJ 

olA 

too 
>?oJ 

0  /"*\  +~          0         1  ^  v~     a     ^      0          /-\  m  /-J  a  v  1 7      a  /"I  ft  Y"  ^  0  O 

s€i  as  curient  scconoai y  auuicoo 

on 

JLo 

nn 

uu 

TOD 

upen  cnannei 

C9C6 

<£U 

ZD 

Ul 

JSR 

Cni  oc 
?Dlzo 

Get  file type  of  entry 

cycy 

DU 

n  *a 
Uo 

^eye-Hi 

To     -F  -l  1  ^     a     OFT  fUo? 

is  rue  a  KHiij  me; 

OJ 

f*A 

LfA 

VF  C  f~* r>,r>\r           ~\  a  f~  n  iro     f  i  1  a 

iC/O    ^opy    IClaLlVc  J.11%5 

papF  1 

Ay 

u  o 

t  na 

ttvUo 

Qof    f  1           f  ny    1  ae^  fharaot'&r 

ponn 

Q  C 

FQ 

r  o 

qta 

o  1A 

<FQ 

/ITOT^     a  r\  H    /*rtnf1  11H0 

nft 

0(\ 

£.  \J 

QD 

or 
r 

Mr  ■?  +"  0    V^\/1~  Ci     1  fi     +"  a  T*rr^1~         "i  1  ^ 
ni  XUC     -U _y  LC     i J 1     L.ul  y  C  L 

(-onp  1 

£.  U 

JJ 

PA 
^A 

riaf"    V>\/+" a    "FfrtTfi    con ttp    t^i  la 
ots u   uy  lc    J- 1.  uiii    ouui  \>c    1 11c 

AQ 

80 

LDA 

ft  vou 

fpef   FOT    / 1  ri  <st*  character) 

\J 

Afi 

nn 

U  Ol\ 

■^nn  ag 

flag 

Ffi 

F"^ 

$C9D5 

Te   "FT  acr  <5»t" 

PQF  5 

£.  U 

ni 

U  OlX 

YF6?— (^at*    f  i  1  f^t  vr^a 

r  \i 

-I-*A 

T  c    f  ^  1  0   onf  ru   a    re  1  a t*  H  vp    f  i  1  p"? 
A.  a    l  lie    tsil  L>  1.  y    cl    iciauivc  -i — lxc  • 

C9E7 

20 

9B 

CF 

JSR 

$CF9B 

NO-Write  byte  in  file 

C9EA1 

AE 

79 

02 

LDX 

$0279 

Compare  number  of  target  files 

C9ED 

E8 

I  NX 

witli  number  of 

C9EE 

EC 

78 

02 

CPX 

$0278 

0  f^iiiT"  r*a   "Pi  1 

O  \J  Ul  J.  Vrf  C      1  J — L  TI;  O 

C9F1 

90 

C6 

BCC 

$C9B9 

Any  mux. c  i ilea  yivcii . 

C9F3 

A9 

12 

LDA 

#$12 

C9F5 

85 

83 

STA 

$83 

old    UUI  XcllL    ac^fVUi  1  oll  y    auux.  c  a  0 

C9F7 

4C 

02 

DB 

JMP 

$DB02 

pi «ea    f ^ 1 p    anH  rhflnnpl 

[C976/C9BC] 

Open 

channel  for 

file  reading 

C9FA 

AE 

79 

02 

LDX 

$0279 

C9FD 

B5 

E2 

LDA 

$E2,X 

FQt"flbl  "i  Qh  rorresDondincf  drive  # 

C9FF 

29 

01 

AND 

#$01 

and  as 

CA01 

85 

7F 

STA 

$7F 

current  drive 

CA03 

AD 

85 

FE 

LDA 

$FE85 

Set  #  of  directory  track  (18) 

CA06 

85 

80 

STA 

$80 

a e.  ciiT"rent  track 

C95C 

A5 

E2 

LDA 

$E2 

YES— Compare  drive  #  of  target file 

C95E 

C5 

E3 

CMP 

$E3 

wii*h   Qniirrpf  i  le  drive 

C960 

DO 

3F 

BNE 

$C9A1 

Copy  only  one  diskette? 

C962 

A5 

DD 

LDA 

$DD 

YES-Compare  #  of  targetfiles  in 

C964 

C5 

DE 

CMP 

$DE 

directory  with  source  files 

C966 

DO 

39 

BNE 

$C9A1 

Identical? 

C968 

A5 

D8 

LDA 

$D8 

YES-Test  #  of  matching  directory 

C96A 

C5 

D9 

CMP 

$D9 

sector  against  sourcefile 

C96C 

DO 

33 

BNE 

$C9A1 

Should  entry  be  overwritten? 
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C96E 

20 

CC 

CA 

JSR 

$CACC 

C971 

A9 

01 

LDA 

#$01 

C973 

8D 

79 

02 

STA 

$0279 

C976 

20 

FA 

C9 

JSR 

$C9FA 

C979 

20 

25 

Dl 

JSR 

$D125 

C97C 

F0 

04 

BEQ 

$C982 

C97E 

C9 

02 

CMP 

#$02 

C980 

DO 

05 

BNE 

$C987 

C9821 

A9 

64 

LDA 

#$64 

C984 

20 

C8 

CI 

JSR 

$C1C8 

C9871 

A9 

12 

LDA 

#$12 

C989 

85 

83 

STA 

$83 

C98B 

AD 

3C 

02 

LDA 

$023C 

C98E 

8D 

3D 

02 

STA 

$023D 

C991 

A9 

FF 

LDA 

#$FF 

C993 

8D 

3C 

02 

STA 

$023C 

C996 

20 

2A 

DA 

JSR 

$DA2A 

C999 

A2 

02 

LDX 

#$02 

C99B 

20 

B9 

C9 

JSR 

$C9B9 

C99E 

4C 

94 

CI 

JMP 

$C194 

C9A14 

20 

A7 

C9 

JSR 

$C9A7 

C9A4 

4C 

94 

CI 

JMP 

$C194 

YES-Look  for  file  entry  in  dir. 

Set  pointer  to 

first  filename 

Open  file  for  reading 

and  get  filetype 

Is  file  entry  a  relative  file? 

NO-Test  for  'PRC  identifier 

Identical? 

YES-Display 

'64  File  Type  Mismatch'  message 
Set  internal  read  channel 
(18) 

Transfer  #  assigned  to  internal 
channel  in  read  channel 
Set  'Channel  free'  value 
in  table 

Copy  1st  sourcefile  to  targetfile 
Pointer  to  second  filename 
Attach  next  file 
End  command  and  display  'OK' 
Copy  file 

End  command  and  display  'OK' 


[C9A1] 
Copy  s 
C9A7 
C9AA 
C9AC 
C9AE 
C9B0 
C9B3 
C9B6 


ingle 
20  E7 
A5  E2 
29  01 
85  7F 
20  86 
20  E4 
AE  77 


files 
CA 


D4 
D6 
02 


JSR  $CAE7 
LDA  $E2 
AND  #$01 
STA  $7F 
JSR  $D486 
JSR  $D6E4 
LDX  $0277 


Test  whether  entry  already  exists 
Get  drive  indicator  of  targetfile 
and  take  on  as  number  of 
current  drive 

Open  internal  channel  for  writing 
Enter  target  file  in  directory 
Number  of  target  names  (1) 


[C99B/C9F1]  Copy  several  files 


C9B9 

8E 

79 

02 

STX 

$0279 

Number  of  sourcefiles 

C9BC 

20 

FA 

C9 

JSR 

$C9FA 

Read  directory 

C9BF 

A9 

11 

LDA 

#$11 

Set  16  (number  of  internal  read 

C9C1 

85 

83 

STA 

$83 

channels)  as  current  2ndary  addr 

C9C3 

20 

EB 

DO 

JSR 

$D0EB 

Open  channel 

C9C6 

20 

25 

Dl 

JSR 

$D125 

Get  filetype  from  entry 

C9C9 

DO 

03 

BNE 

$C9CE 

Is  it  a  relative  file? 

C9CB 

20 

53 

CA 

JSR 

$CA53 

YES-Copy  relative  file 

C9CE1 

A9 

08 

LDA 

#$08 

Set  'last  character'  (EOI) 

C9D0 

85 

F8 

STA 

$F8 

flag 

C9D2 

4C 

D8 

C9 

JMP 

$C9D8 

and  conclude  copy  process 

C9D51 

20 

9B 

CF 

JSR 

$CF9B 

Write  byte  in  target  file 
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C9D81 

20 

35 

CA 

JSR 

$CA35 

Get  byte  from  sourcefile 

C9DB 

A9 

80 

LDA 

#$80 

Test  EOI  (last  character) 

C9DD 

20 

A6 

DD 

JSR 

$DDA6 

flag 

C9E0 

FO 

F3 

BEQ 

$C9D5 

Is  flag  set? 

C9E2 

20 

25 

Dl 

JSR 

$D125 

YES— Get  filetype 

C9E5 

FO 

03 

BEQ 

$C9EA 

Is  file  entry  a  REL  file? 

C9E7 

20 

9B 

CF 

JSR 

$CF9B 

NO-write  byte  in  file 

C9EA1 

AE 

79 

02 

LDX 

$0279 

Compare  sourcefile  number 

C9ED 

E8 

INX 

with  number 

C9EE 

EC 

78 

02 

CPX 

$0278 

of  sourcefiles 

C9F1 

90 

C6 

BCC 

$C9B9 

Any  more  files  left? 

C9F3 

A9 

12 

LDA 

#$12 

Set  write  channel  number  (8) 

C9F5 

85 

83 

STA 

$83 

as  current  secondary  address 

C9F7 

4C 

02 

DB 

JMP 

$DB02 

Close  file  and  channel 

[C976/C9BC] 

Open  channel  to 

read 

file 

C9FA 

AE 

79 

02 

LDX 

$0279 

Get  filename  number 

C9FD 

B5 

E2 

LDA 

$E2,X 

Determine  corresponding 

C9FF 

29 

01 

AND 

#$01 

drive  number  and  save 

CA01 

85 

7F 

STA 

$7F 

as  current  drive  number 

CA03 

AD 

85 

FE 

LDA 

$FE85 

Set  up  #  of  directory  track  (18) 

CA06 

85 

80 

STA 

$80 

as  current  track 

CA08 

B5 

D8 

LDA 

$D8,X 

Determine  sector  of  entry;  set  as 

CAOA 

85 

81 

STA 

$81 

current  sector 

CAOC 

20 

75 

D4 

JSR 

$D475 

Read  sector  in  buffer 

CAOF 

AE 

79 

02 

LDX 

$0279 

#  of  file  identifier  in  command 

CA12 

B5 

DD 

LDA 

$DD,X 

Get  correct  pointer  frm  directory 

CA14 

20 

C8 

D4 

JSR 

$D4C8 

position  and  set  buffer  pointer 

CA17 

AE 

79 

02 

LDX 

$0279 

File  indication  number  of  command 

CA1A 

B5 

E7 

LDA 

$E7,X 

Get  corrspondng  filetype  identifr 

CA1C 

29 

07 

AND 

#$07 

and  get  filetype  from  that; 

CA1E 

8D 

4A 

02 

STA 

$024A 

save  it 

CA21 

A9 

00 

LDA 

#$00 

Clear  file  record  length 

CA23 

8D 

58 

02 

STA 

$0258 

pointer 

CA26 

20 

AO 

D9 

JSR 

$D9A0 

Open  file  for  reading 

CA2  9 

AO 

01 

LDY 

#$01 

Set  puffer  pointer 

CA2B 

20 

25 

Dl 

JSR 

$D125 

Get  filetype 

CA2E 

FO 

01 

BEQ 

$CA31 

Is  file  a  relative  file? 

CA30 

C8 

INY 

NO— Buffer  pointer  to  next  byte 

CA311 

98 

TYA 

(track  number) 

CA32 

4C 

C8 

D4 

JMP 

$D4C8 

Initialize  buffer  pointer 
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[C9D8/E81B/E839] 
Read  a  byte  from  file 


CA35 

A9 

11 

LDA 

#$11 

Set  internal  channel  number 

CA37 

85 

83 

STA 

$83 

for  reading 

CA39 

20 

9B 

D3 

JSR 

$D39B 

Read  a  byte 

CA3C 

85 

85 

STA 

$85 

and  save  it 

CA3E 

A6 

82 

LDX 

$82 

Get  channel  number  and  determine 

CA40 

B5 

F2 

LDA 

$F2,X 

channel  status 

CA42 

29 

08 

AND 

#$08 

Detrmin  bitflg  f/'last  byte' (EOI) 

CA4  4 

85 

F8 

STA 

$F8 

ciiiu  save 

CA4  6 

DO 

OA 

BNE 

$CA52 

End  of  file? 

CA4  8 

20 

25 

Dl 

JSR 

$D125 

NO-Get  filet ype 

CA4B 

F0 

05 

BEQ 

$CA52 

Is  it  a  relative  file? 

CA4D 

A9 

80 

LDA 

#$80 

NO— 

CA4F 

20 

97 

DD 

JSR 

$DD97 

Set  all  corresponding  flags 

CA522 

60 

RTS 

Return  from  this  subroutine 

[C9CB 

] 

Copy 

relative  : 

file 

CA53 

20 

D3 

Dl 

JSR 

$D1D3 

Set  current  drive  number 

CA5  6 

20 

CB 

El 

JSR 

$E1CB 

Get  position  of  last  record 

CA59 

A5 

D6 

LDA 

$D6 

Save  position  in 

CA5B 

48 

PHA 

side-sector; 

CA5C 

A5 

D5 

LDA 

$D5 

hold  number  of  corresponding 

CA5E 

48 

PHA 

side-sector 

CA5F 

A9 

12 

LDA 

#$12 

Set  internal  channel  for 

CA61 

85 

83 

STA 

$83 

writing 

CA63 

20 

07 

Dl 

JSR 

$D107 

Open  channel 

CA66 

20 

D3 

Dl 

JSR 

$D1D3 

Set  current  drive  number 

CA69 

20 

CB 

El 

JSR 

$E1CB 

Get  position  of  last  side-sector 

CA6C 

20 

9C 

E2 

JSR 

$E2  9C 

and  read  sector  in  buffer 

CA6F 

A5 

D6 

LDA 

$D6 

Save  current  pointer  at  position 

CA71 

85 

87 

STA 

$87 

in  side-sector 

CA73 

A5 

D5 

LDA 

$D5 

Save  number  of 

CA75 

85 

86 

STA 

$86 

side-sector 

CA77 

A9 

00 

LDA 

#$00 

Clear  pointer: 

CA7  9 

85 

88 

STA 

$88 

temporary  memory 

CA7B 

85 

D4 

STA 

$D4 

Pointer  to  beginning  of  record 

CA7D 

85 

D7 

STA 

$D7 

Pointer  to  position  in  record 

CA7F 

68 

PLA 

Get  number  of  last  side-sector 

CA80 

85 

D5 

STA 

$D5 

and  set  it 

CA82 

68 

PLA 

Get  #  of  last  record  entry  in 

CA83 

85 

D6 

STA 

$D6 

side-sector;  save  it 

CA85 

4C 

3B 

E3 

JMP 

$E33B 

Actualize  side-sectors 
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[Origin  at  routine  C146] 
Routine  for  Rename  command 


CA88 

20 

20 

C3 

JSR 

$C320 

Get  drive  number 

CA8B 

A5 

E3 

LDA 

$E3 

Establish  #  of  standard  drive 

CA8D 

29 

01 

AND 

#$01 

and 

CA8F 

85 

E3 

STA 

$E3 

reset 

CA91 

C5 

E2 

CMP 

$E2 

Compare  with  last  drive  number 

CA93 

F0 

02 

BEQ 

$CA97 

Must  drive  be  changed? 

CA95 

09 

80 

ORA 

#$80 

YES-Set  bitflag  for  search  of 

CA971 

85 

E2 

STA 

$E2 

both  drives 

CA99 

20 

4F 

C4 

JSR 

$C44F 

Search  for  new  name  in  directory 

CA9C 

20 

E7 

CA 

JSR 

$CAE7 

Name  already  there? 

CA9F 

A5 

E3 

LDA 

$E3 

Establish  #  of  standard  drive  and 

CAA1 

29 

01 

AND 

#$01 

take  on  as  number  of  current 

CAA3 

85 

7F 

STA 

$7F 

drive 

CAA5 

A5 

D9 

LDA 

$D9 

Set  number  of  directory 

CAA7 

85 

81 

STA 

$81 

sector 

CAA9 

20 

57 

DE 

JSR 

$DE57 

and  read  sector  into  buffer; 

CAAC 

20 

99 

D5 

JSR 

$D599 

Wait  until  command  is  executed 

CAAF 

A5 

DE 

LDA 

$DE 

Set  directory  entry  pointer  to 

CAB1 

18 

CLC 

starting  position 

CAB2 

69 

03 

ADC 

#$03 

of  filenames  in  directory 

CAB  4 

20 

C8 

D4 

JSR 

$D4C8 

Establish  buffer  pointer 

CAB7 

20 

93 

DF 

JSR 

$DF93 

Get  and  save  number  of 

LnDn 

aft 

inl 

CABB 

AE 

7A 

02 

LDX 

$027A 

Position  of  new  name  in  command 

CABE 

A9 

10 

LDA 

#$10 

Max.  length  of  filename 

CACO 

20 

6E 

C6 

JSR 

$C66E 

Names  in  buffer  frm  commnd  string 

CAC3 

20 

5E 

DE 

JSR 

$DE5E 

Rewrite  directory  sector 

CAC6 

20 

99 

D5 

JSR 

$D599 

and  wait  until  executed 

CAC9 

4C 

94 

CI 

JMP 

$C194 

Prepare  return  message  and  end 

[C96E/CAE7] 

See 

if  file  entry  is 

onhand 

CACC 

A5 

E8 

LDA 

$E8 

Get  filetype  of  2nd  name  & 

CACE 

29 

07 

AND 

#$07 

isolate  type  identifier 

CADO 

8D 

4A 

02 

STA 

$024A 

Save  as  current  filetype 

CAD  3 

AE 

78 

02 

LDX 

$0278 

Get  starting  position  of  filename 

CAD61 

CA 

DEX 

in  command  string 

CAD  7 

EC 

77 

02 

CPX 

$0277 

Compare  w/start  of  command  string 

CADA 

90 

OA 

BCC 

$CAE6 

More  characters  in  filenames? 

CADC 

BD 

80 

02 

LDA 

$0280, X 

YES— Get  sector  number  of  file 

CADF 

DO 

F5 

BNE 

$CAD6 

Was  that  the  last  sector? 

CAE1 

A9 

62 

LDA 

#$62 

YES— Display 

CAE  3 

4C 

C8 

CI 

JMP 

$C1C8 

'62  File  Not  Found' 

CAE61 

60 

RTS 

Return  from  this  subroutine 
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[C9A7/CA9C] 

Compare  with  two  filenames 


CAE  7 

20 

CC 

CA 

JSR 

$CACC 

File  in  directory  onhand? 

CAE  A1 

BD 

80 

02 

LDA 

$0280, X 

Get  number  of  first  file  sector 

CAED 

FO 

05 

BEQ 

$CAF4 

Is  sector  onhand? 

CAEF 

A9 

63 

LDA 

#$63 

YES-Display 

CAF1 

4C 

C8 

CI 

JMP 

$C1C8 

'63  File  exist' 

CAF41 

CA 

DEX 

Go  to  next  name 

CAF5 

10 

F3 

BPL 

$CAEA 

Was  that  the  last  filename? 

CAF7 

60 

RTS 

YES— Return  from  this  subroutine 

[Origin  at  routine  C146] 

Memory-command 

routine 

CAF8 

AD 

01 

02 

LDA 

$0201 

Get  second  character  of  command 

CAFB 

C9 

2D 

CMP 

#$2D 

Compare  with  '-' 

CAFD 

DO 

4C 

BNE 

$CB4B 

Identical? 

CAFF 

AD 

03 

02 

LDA 

$0203 

YES— Then  get  fourth  character  and 

CB02 

85 

6F 

STA 

$6F 

set  as  memory  address  (low-byte) 

CB04 

AD 

04 

02 

LDA 

$0204 

Get  fifth  character  and  save  as 

CB07 

85 

70 

STA 

$70 

memory  address  (high-byte) 

CB09 

AO 

00 

LDY 

#$00 

Clear  buffer  pointer 

CBOB 

AD 

02 

02 

LDA 

$0202 

Get  third  character  of  command 

CBOE 

C9 

52 

CMP 

#$52 

and  compare  with  'R' 

CB10 

FO 

OE 

BEQ 

$CB20 

Should  Read  command  be  performed? 

CB12 

20 

58 

F2 

JSR 

$F258 

NO-Call  has  no  function  (RTS) 

CB15 

C9 

57 

CMP 

#$57 

Compare  with  'W 

CB17 

FO 

37 

BEQ 

$CB50 

Should  Write  commnd  be  performed? 

CB19 

C9 

45 

CMP 

#$45 

NO-Compare  with  'E' 

CB1B 

DO 

2E 

BNE 

$CB4B 

Should  program  be  performed? 

CB1D 

6C 

6F 

00 

JMP 

($006F) 

YES— Start  program 

[CB10] 

Memory-Read 

command 

CM-R1)  ; 

Read  byte  from  memory 

CB20 

Bl 

6F 

LDA 

($6F)  ,Y 

Get  byte  from  given  address 

CB22 

85 

85 

STA 

$85 

and  save  it 

CB24 

AD 

74 

02 

LDA 

$0274 

Get  length  of  command  string  and 

CB27 

C9 

06 

CMP 

#$06 

compare  with  maximum  length 

CB29 

90 

1A 

BCC 

$CB45 

Is  the  string  smaller? 

CB2B 

AE 

05 

02 

LDX 

$0205 

NO-Get  #  of  bytes  to  be  read  and 

CB2E 

CA 

DEX 

adjust   (one  already  read) 

CB2F 

FO 

14 

BEQ 

$CB45 

Read  any  more  bytes  from  memory? 

CB31 

8A 

TXA 

YES-Balance  pointer 

CB32 

18 

CLC 

with  starting  address  and  then 

CB33 

65 

6F 

ADC 

$6F 

compute  end  address  of  this  range 

CB35 

E6 

6F 

INC 

$6F 

Increment  pointer  to  current  byte 

CB37 

8D 

49 

02 

STA 

$0249 

Save  ending  address  (low-byte) 
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CB3A 

A5 

6F 

LDA 

$6F 

Take  pointer  to  current  memory; 

CB3C 

85 

A5 

STA 

$A5 

use  as  pointer  to  error  message 

CB3E 

A5 

70 

LDA 

$70 

buffer  for  routine  that  is 

CB40 

85 

A6 

STA 

$A6 

to  follow  ($D43A) 

CB42 

4C 

43 

D4 

JMP 

$D443 

Set  first  byte  and  output  flag 

CB452 

20 

EB 

DO 

JSR 

$D0EB 

Seek  out  and  open  channel 

CB48 

4C 

3A 

D4 

JMP 

$D43A 

Output  more  bytes 

CB4B2 

A9 

31 

LDA 

#$31 

Display 

CB4D 

4C 

C8 

CI 

JMP 

$C1C8 

'31  Syntax  Error' 

[CB17/CB59] 

Memory-Write  command 

('M-W');  Write  in  memory 

CB50 

B9 

06 

02 

LDA 

$0206, Y 

Get  byte  val  from  command  string 

CB53 

91 

6F 

STA 

($6F) ,Y 

and  write  into  memory 

CB55 

C8 

I  NY 

Turn  buffer  pointer  to  next  byte 

CB56 

CC 

05 

02 

CPY 

$0205 

Compare  with  value  for  'End' 

CB59 

90 

F5 

BCC 

$CB50 

Take  any  more  bytes? 

CB5B 

60 

RTS 

NO-Return  from  this  subroutine 

[Origin  at  routine  C146] 

User-command  ('UX');  Start  program  in  DOS  buffer 


CB5C 

AC 

01 

02 

LDY 

$0201 

Get  second  char  of  command  and 

CB5F 

CO 

30 

CPY 

#$30 

compare  with  1 0 ■ 

CB61 

DO 

09 

BNE 

$CB6C 

Identical? 

[EBBC] 

Execute 

User-command 

CB63 

4C 

26 

80 

JMP 

$8030 

YES— Read  User-0  command 

CB66 

EA 

NOP 

Unused  space 

CB67 

EA 

NOP 

left  by  modifying 

CB68 

EA 

NOP 

ROM  User-routine 

CB69 

EA 

NOP 

in  1541  drive 

CB6A 

EA 

NOP 

to 

CB6B 

EA 

NOP 

1571  User-routine 

CB6C1 

20 

72 

CB 

JSR 

$CB72 

Set  address  and  execute  program 

CB6F 

4C 

94 

CI 

JMP 

$C194 

End  program  by  'RTS' 

CB721 

88 

DEY 

Convert  ASCII  number  of  command 

CB73 

98 

TYA 

into  binary 

CB74 

29 

OF 

AND 

#$0F 

number;  double  it 

CB76 

OA 

ASL 

A 

(address  is  2-byte  pointer) 

CB77 

A8 

TAY 

and  save  it 

CB78 

Bl 

6B 

LDA 

($6B) ,Y 

Get  address  belonging  to  command 

CB7A 

85 

75 

STA 

$75 

(low-byte)  and  save  it 

CB7C 

C8 

INY 

Pointer  to  next  byte  of  address 

CB7D 

Bl 

6B 

LDA 

($6B) ,Y 

Get  high-byte  of  starting  address 

CB7F 

85 

76 

STA 

$76 

and  save  it 

CB81 

4C 

2D 

AA 

JMP 

$AA2D 

Start  program 
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[D819] 

'#' -command;  Open  direct  access  channel 


CB84 

AD 

8E 

02 

LDA 

$028E 

Set  drive  number  of  last  job 

CB87 

85 

7F 

STA 

$7F 

as  current  drive 

CB89 

A5 

83 

LDA 

$83 

Get  channel  number  and 

CB8B 

48 

PHA 

save  it 

CB8C 

20 

3D 

C6 

JSR 

$C63D 

Initialize  drive 

CB8F 

68 

PLA 

Re-set  channel 

CB90 

85 

83 

STA 

$83 

number 

CB92 

AE 

74 

02 

LDX 

$0274 

Compare  length  of  command 

CB95 

CA 

DEX 

string  with  1 

CB96 

DO 

OD 

BNE 

$CBA5 

Is  a  desired  buffer  given? 

CB98 

A9 

01 

LDA 

#$01 

NO— Number  of  buffers  needed 

CB9A 

20 

E2 

Dl 

JSR 

$D1E2 

Set  up  buffer  and  channel 

CB9D 

4C 

Fl 

CB 

JMP 

$CBF1 

Pointer  and  table  initialization 

CBAO3 

A9 

70 

LDA 

#$70 

Display  error  message  — 

CBA2 

4C 

C8 

CI 

JMP 

$C1C8 

■70  No  Channel' 

CBA51 

AO 

01 

LDY 

#$01 

Pointer  to  position  in  buffer 

CBA7 

20 

7C 

CC 

JSR 

$CC7C 

Get  byte  from  command  string 

CBAA 

AE 

85 

02 

LDX 

$0285 

Get  buffer  number  and  compare 

CBAD 

EO 

05 

CPX 

#$05 

with  maximum  buffer 

CBAF 

BO 

EF 

BCS 

$CBA0 

Is  the  given  number  allowed  (<5) ? 

CBB1 

A9 

00 

LDA 

#$00 

YES— Clear  temporary 

CBB3 

85 

6F 

STA 

$6F 

storage  in 

CBB5 

85 

70 

STA 

$70 

zeropage 

CBB7 

38 

SEC 

Shift  'Buffer  occupied' 

CBB81 

26 

6F 

ROL 

$6F 

in  temporary 

CBBA 

26 

70 

ROL 

$70 

memory 

CBBC 

CA 

DEX 

Buffer  number 

CBBD 

10 

F9 

BPL 

$CBB8 

Is  flag  in  the  correct  position? 

CBBF 

A5 

6F 

LDA 

$6F 

Compare  computed  buffer  set-up 

CBC1 

2D 

4F 

02 

AND 

$024F 

with  bit  table 

CBC4 

DO 

DA 

BNE 

$CBA0 

Is  buffer  already  occupied? 

CBC6 

A5 

70 

LDA 

$70 

NO— Test  buffer  numbers  8-15 

CBC8 

2D 

50 

02 

AND 

$0250 

(only  on  CBM3030-CBM8250) 

CBCB 

DO 

D3 

BNE 

$CBA0 

Is  buffer  free? 

CBCD 

A5 

6F 

LDA 

$6F 

YES-Take  buffer  bit 

CBCF 

OD 

4F 

02 

ORA 

$024F 

in  bit  table  and 

CBD2 

8D 

4F 

02 

STA 

$024F 

set  up  buffer 

CBD5 

A5 

70 

LDA 

$70 

The  same  goes  for  buffers  8-15 

CBD7 

OD 

50 

02 

ORA 

$0250 

(there  can  only  be  5  buffers  at 

CBDA 

8D 

50 

02 

STA 

$0250 

a  time) 

CBDD 

A9 

00 

LDA 

#$00 

Set  number  of  buffers  to  1 

CBDF 

20 

E2 

Dl 

JSR 

$D1E2 

and  set  up  buffer  and  channel 

CBE2 

A6 

82 

LDX 

$82 

Current  channel  number 

CBE4 

AD 

85 

02 

LDA 

$0285 

Current  sector  number 
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CBE7 

95 

A7 

STA 

$A7,X 

Arrange  in  channel  sector  table 

CBE9 

AA 

TAX 

Adjust  pointer 

CBEA 

A5 

7F 

LDA 

$7F 

Give  current  drive  number 

CBEC 

95 

00 

STA 

$00, X 

as 

CBEE 

9D 

5B 

02 

STA 

$025B,X 

jobcode 

CBF11 

A6 

83 

LDX 

$83 

Determine  secondary  address  and 

CBF3 

BD 

2B 

02 

LDA 

$022B,X 

get  pre-arranged  internal  channel 

CBF6 

09 

4  0 

ORA 

#$40 

Identify  channel 

CBF8 

9D 

2B 

02 

STA 

$022B,X 

as  in  an  'active'  state 

CBFB 

A4 

82 

LDY 

$82 

Current  channel  number 

CBFD 

A9 

FF 

LDA 

#$FF 

Arrange  number  of  data  to  be  sent 

CBFF 

99 

44 

02 

STA 

$0244 , Y 

over  channel 

CC02 

A9 

89 

LDA 

#$89 

Free  up  channel  for 

CC04 

99 

F2 

00 

STA 

$00F2,Y 

reading/writing 

CC07 

B9 

A7 

00 

LDA 

$00A7,Y 

Get  buffer  number 

CCOA 

99 

3E 

02 

STA 

$023E,Y 

Set  as  characters  to  be  given 

CCOD 

OA 

ASL 

A 

Double  number 

CCOE 

AA 

TAX 

(table  has  2-byte  values) 

CCOF 

A9 

01 

LDA 

#$01 

Set  buffer  pointer  to  beginning 

ecu 

95 

99 

STA 

$99, X 

of  buffer 

CC13 

A9 

OE 

LDA 

#$0E 

note  directory  access  identifier 

CC15 

99 

EC 

00 

STA 

$00EC, Y 

in  filetype  table 

CC18 

4C 

94 

CI 

JMP 

$C194 

Send  acknowledgement  and  end  it 

[Origin  at  Routine  C146] 
Routine  for  Block  command 


CC1B 

AO 

00 

LDY 

#$00 

Set  start  position  in  input  buffr 

CC1D 

A2 

00 

LDX 

#$00 

Clear  pointer  to  #  of  parameters 

CC1F 

A9 

2D 

LDA 

#$2D 

Set  '-'  as  character  to  be  sought 

CC21 

20 

68 

C2 

JSR 

$C2  68 

Process  input  string 

CC24 

DO 

OA 

BNE 

$CC30 

Character  found? 

CC261 

A9 

31 

LDA 

#$31 

NO-Display 

CC28 

4C 

C8 

CI 

JMP 

$C1C8 

'31  Syntax  Error' 

CC2B2 

A9 

30 

LDA 

#$30 

Display 

CC2D 

4C 

C8 

CI 

JMP 

$C1C8 

'30  Syntax  Error' 

CC301 

8A 

TXA 

Number  of  parameters  found 

CC31 

DO 

F8 

BNE 

$CC2B 

Any  other  givens  found? 

CC33 

A2 

05 

LDX 

#$05 

YES— Set  pointer  in  input  buffer 

CC35 

B9 

00 

02 

LDA 

$0200, Y 

Get  third  character  from  buffer 

CC381 

DD 

5D 

CC 

CMP 

$CC5D,X 

and  compare  with  Block  command 

CC3B 

F0 

05 

BEQ 

$CC42 

Is  there  a  Block  command? 

CC3D 

CA 

DEX 

NO— Set  pointer  to  next  command 

CC3E 

10 

F8 

BPL 

$CC38 

Already  compared  w/other  cmds? 

CC40 

30 

E4 

BMI 

$CC26 

YES- Jump  to  $CC26 

CC421 

8A 

TXA 

Block  command  number 

ROM -145 


Abacus  Software 


1571  Internals 


CC43 

09 

80 

ORA 

#$80 

Save  ' 

Extended  command' 

CC45 

8D 

2A 

02 

STA 

$022A 

flag 

CC48 

20 

6F 

CC 

JSR 

$CC6F 

Get  command  parameters  &  test 

CC4B 

AD 

2A 

02 

LDA 

$022A 

Repeat 

command  number  and 

CC4E 

OA 

ASL 

A 

double 

it 

CC4F 

AA 

TAX 

(2-byte  pointers  in  addr.  table) 

DU 

LDA 

S(T64  X 

Get  / 

save  starting  address  of 

CC53 

85 

70 

STA 

$70 

command  (low-byte) 

CC55 

BD 

63 

CC 

LDA 

$CC63,X 

Get  high-byte  and  take 

CC58 

85 

6F 

STA 

$6F 

up  in  pointer 

CC5A 

6C 

6F 

00 

JMP 

($006F) 

Start 

Block  command 

[CC38]  Command 

code; 

3  of  Block 

command 

CC5D 

41 

46 

52 

57  45 

50 

■A'  , 

■F'   ,    'R'   ,    'W   ,    'E'   ,  'P' 

[CC50/CC55] 

Starting  addresse; 

s  of  Block 

;  command  routines 

CC63 

03 

CD 

$CD03 

B-A  command 

CC65 

F5 

CC 

$CCF5 

B-F  command 

CC67 

56 

CD 

$CD56 

B-R  command 

CC69 

73 

CD 

$CD73 

B-W  command 

CC6B 

A3 

CD 

$CDA3 

B-E  command 

CC6D 

BD 

CD 

$CDBD 

B-P  command 

[CC48/CD5F/CD97] 

Get/set  Block  command  parameters 


CC6F 

AO 

00 

LDY 

#$00 

CC71 

A2 

00 

LDX 

#$00 

CC73 

A9 

3A 

LDA 

#$3A 

CC75 

20 

68  C2 

JSR 

$C268 

CC78 

DO 

02 

BNE 

$CC7C 

CC7A 

AO 

03 

LDY 

#$03 

Start,  pos. :commandstring  search 
Clear  number  of  found  parameters 
Set  ' : '  as  character  for  search 
and  search  in  input  buffer 
Character  found? 
NO- Buffer  pointer  to  4th  char 


[CBA7/CC78/CC8F] 

Test  Block  command  parameters 


CC7C 

B9 

00 

02 

LDA 

$0200, Y 

CC7F 

C9 

20 

CMP 

#$20 

CC81 

F0 

08 

BEQ 

$CC8B 

CC83 

C9 

ID 

CMP 

#$1D 

CC85 

F0 

04 

BEQ 

$CC8B 

CC87 

C9 

2C 

CMP 

#$2C 

CC89 

DO 

07 

BNE 

$CC92 

CC8B3 

C8 

INY 

CC8C 

CC 

74 

02 

CPY 

$0274 

CC8F 

90 

EB 

BCC 

$CC7C 

CC91 

60 

RTS 

CC921 

20 

Al 

CC 

JSR 

$CCA1 

and  get  character 

Compare  w/blank  space  '   '  value 

Identical? 

NO— Test  w/value  for 'Cursor  right' 
Identical? 

NO-Compare  with  comma  value 
Identical? 

YES— Buffer  pointer  to  next  char 
Test  against  command  string  value 
Pointer  to  end  of  input  buffer? 
YES-Return  from  this  subroutine 
Get,  compute  and  set  parameters 
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CC95 

EE 

77 

02 

INC 

$0277 

Current  number  of  parameters 

CC98 

AC 

79 

02 

LDY 

$0279 

Total  number  of  parameters 

CC9B 

EO 

04 

CPX 

#$04 

Test  with  maximum  #  of  parameters 

CC9D 

90 

EC 

BCC 

$CC8B 

Too  many  parameters? 

CC9F 

BO 

8A 

BCS 

$CC2B 

YES-Jump  to  $CC2B 

[CC92] 

Convert  /  set  Block  command  parameters  from  ASCII  to  binary 

CCA1 

A9 

00 

LDA 

#$00 

Clear  range  used 

CCA3 

85 

6F 

STA 

$6F 

as  temporary  storage 

CCA5 

85 

70 

STA 

$70 

for  mathematical 

CCA  7 

85 

72 

STA 

$72 

operations 

CCA  9 

A2 

FF 

LDX 

#$FF 

Pointer  to  current  math  register 

CCAB1 

B9 

00 

02 

LDA 

$0200, Y 

Get  next  char  from  input  buffer 

CCAE 

C9 

40 

CMP 

#$40 

Compare  with  ASCII  value  for  '@' 

CCBO 

BO 

18 

BCS 

$CCCA 

Is  there  a  character? 

CCB2 

C9 

30 

CMP 

#$30 

NO-Test  value  for  '0' 

CCB4 

90 

14 

BCC 

$CCCA 

Is  there  a  number? 

CCB6 

29 

OF 

AND 

#$0F 

Compute  numeric  value  and 

CCB8 

48 

PHA 

save  it 

CCB9 

A5 

70 

LDA 

$70 

Shift  value  in  temp,  storage 

CCBB 

85 

71 

STA 

$71 

$6F-$71  range;  move 

CCBD 

A5 

6F 

LDA 

$6F 

one  place  to  $71  so 

CCBF 

85 

70 

STA 

$70 

that  $6F  will  be  free 

CCC1 

68 

PLA 

Repeat  binary  numbers  and  write 

CCC2 

85 

6F 

STA 

$6F 

in  temporary  memory 

CCC4 

C8 

INY 

Buffer  pointer  to  next  character 

CCC5 

CC 

74 

02 

CPY 

$0274 

Check  w/end  position  of  params 

CCC8 

90 

El 

BCC 

$CCAB 

Entire  decimal  number  read  in? 

CCCA2 

8C 

79 

02 

STY 

$0279 

YES— Save  current  buffer  pointer 

CCCD 

18 

CLC 

Initialize  add  routine 

CCCE 

A9 

00 

LDA 

#$00 

•Dummy  value'  for  first  run  of 

CCDO1 

E8 

I  NX 

routine 

CCD1 

EO 

03 

CPX 

#$03 

Test  against  max.  decimal  numbers 

CCD3 

BO 

OF 

BCS 

$CCE4 

Are  too  many  numbers  given? 

CCD5 

B4 

6F 

LDY 

$6F,X 

NC-Get  value  of  a  #  in  counter 

CCD72 

88 

DEY 

Decrement  number 

CCD  8 

30 

F6 

BMI 

$CCD0 

Is  decimal  number  zero? 

CCDA 

7D 

F2 

CC 

ADC 

$CCF2,X 

NO- Get  binary  of  number 

CCDD 

90 

F8 

BCC 

$CCD7 

Add  it;  is  binary  number  >  256  ? 

CCDF 

18 

CLC 

YES-Turn  high-byte  and 

CCEO 

E6 

72 

INC 

$72 

increment  by  one 

CCE2 

DO 

F3 

BNE 

$CCD7 

Jump  to  $CCD7 

CCE41 

48 

PHA 

Save  equiv.  binary  value (lo-byte) 

CCE5 

AE 

77 

02 

LDX 

$0277 

Get  parameter  number 

CCE8 

A5 

72 

LDA 

$72 

Enter  binary  value  (high-byte) 
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CCEA  9D  80  02       STA  $0280, X 

CCED  68  PLA 

CCEE  9D  85  02       STA  $0285, X 

CCF1  60  RTS 


in  parameter  table 

Repeat  lo-byte  of  binary  value  & 

save  it 

Return  from  this  subroutine 


CCF2     01  OA  64 


Binary  values  for  1,  10  und  100 


[Origin  at  routine  CC1B] 

Block-Free  command  ('B-F');  Free  block  in  BAM 
CCF5     20  F5  CD      JSR  $CDF5 
CCF8     20  5F  EF      JSR  $EF5F 
CCFB     4C  94  CI       JMP  $C194 


Get  track/sector  number 
Set  block  bit  to  'free' 
Prepare  acknowledgement  and  end 


CCFE    A9  01 
CD00     8D  F9  02 


LDA  #$01 
STA  $02F9 


Unused  program  set  from 
CBM  4040  ROM 


[Origin  at  routine  CC1B] 
Block-Allocate  command  ('B-A') 


CD03 

20 

F5 

CD 

JSR 

$CDF5 

CD06 

A5 

81 

LDA 

$81 

CD08 

48 

PHA 

CD09 

20 

FA 

Fl 

JSR 

$F1FA 

CD0C 

F0 

0B 

BEQ 

$CD19 

CD0E 

68 

PLA 

CD  OF 

C5 

81 

CMP 

$81 

CD11 

DO 

19 

BNE 

$CD2C 

CD13 

20 

90 

EF 

JSR 

$EF90 

CD16 

4C 

94 

CI 

JMP 

$C194 

CD191 

68 

PLA 

CD1A1 

A9 

00 

LDA 

#$00 

CD1C 

85 

81 

STA 

$81 

CD1E 

E6 

80 

INC 

$80 

CD20 

A5 

80 

LDA 

$80 

CD22 

CD 

AC 

02 

CMP 

$02AC 

CD25 

B0 

OA 

BCS 

$CD31 

CD27 

20 

FA 

Fl 

JSR 

$F1FA 

CD2A 

F0 

EE 

BEQ 

$CD1A 

CD2C1 

A9 

65 

LDA 

#$65 

CD2E 

20 

45 

E6 

JSR 

$E645 

CD311 

A9 

65 

LDA 

#$65 

CD33 

20 

C8 

CI 

JSR 

$C1C8 

Get  track/sector  number 
Get  sector  number  and 
save  it 

Look  for  next  free  sector  in  BAM 
Is  block  free? 

YES— Get  number  of  desired  sector; 
Compare  with  current  sector  # 
Identical? 

Identify  BAM  sector  as  allocated 
Prepare  acknowledgement  and  end 
Adjust  stack,  clear  sector  number 
Newly  establish 
sector  number 

Set  track  pointer  to  next  track; 
get  pointer 

Compare  w/value  of  largst  track+1 

Is  track  number  smaller? 

YES— Look  for  next  sector 

Found  it? 

NO- Display 

•65  No  Block'  error 

Display 

'65  No  Block'  error 
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[CD42/CDA6] 

Test  'B-R'  parameters  and  read  sector  in  buffer 

CD36    20  F2  CD      JSR  $CDF2  Test  &  get  track  /  sector  number 

CD39    4C  60  D4      JMP  $D4  60  Read  sector  in  buffer 


[CD4A] 

Get  byte  from  buffer 

CD3C    20  2F  Dl      JSR  $D12F  Set  buffer  pointer 

CD3F    Al  99  LDA  ($99, X)  Get  byte 

CD41     60  RTS  Return  from  this  subroutine 


[CD56/CD62] 

Read  sector  from  diskette  to  buffer;  initialize  pointer 


CD42 

20 

36 

CD 

JSR 

$CD36 

Get  parameter  and  read  sector 

CD45 

A9 

00 

LDA 

#$00 

Determine  position  of  buffr  pntr 

CD47 

20 

C8 

D4 

JSR 

$D4C8 

Set  buffer  pointer 

CD4A 

20 

3C 

CD 

JSR 

$CD3C 

Get  a  byte  from  buffer 

CD4D 

99 

44 

02 

STA 

$0244, Y 

Amount  of  data  to  be  transferred 

CD50 

A9 

89 

LDA 

#$89 

Free  up  channel  for 

CD52 

99 

F2 

00 

STA 

$00F2, Y 

reading  and  writing 

CD55 

60 

RTS 

Return  fom  this  subroutine 

[Origin  at  routine  CC1B] 

Routine  for  Block-Read  command  ('B-R');  Read  sector  from  diskette 
CD56    20  42  CD      JSR  $CD42  Read  sector  and  set  pointer 

CD59    20  EC  D3      JSR  $D3EC  Output  byte  from  buffer 

CD5C     4C  94  CI      JMP  $C194  Prepare  return  message  and  end 


[Vector:  FFEA] 

Routine  for  Ul-command  (cf .  B-R) ;  read  sector  from  diskette 


CD5F 

20 

6F 

CC 

JSR 

$CC6F 

Get  parameters 

CD  62 

20 

42 

CD 

JSR 

$CD42 

Read  sector  in  buffer 

CD  65 

B9 

44 

02 

LDA 

$0244, Y 

Set  #  of  bytes  to  be  transferred 

CD68 

99 

3E 

02 

STA 

$023E,Y 

as  bytes  to  be  given  out 

CD6B 

A9 

FF 

LDA 

#$FF 

Re-initialize  number  of  bytes 

CD6D 

99 

44 

02 

STA 

$0244, Y 

to  be  transferred 

CD70 

4C 

94 

CI 

JMP 

$C194 

Prepare  return  message  and  end 

[Origin  at  routine  CC1B] 
Routine  for  Block-Write  command 


CD73 

20 

F2 

CD 

JSR 

$CDF2 

Allocate  buffer  and  open  channel 

CD76 

20 

E8 

D4 

JSR 

$D4E8 

Initialize  and  get  buffer 

CD79 

A8 

TAY 

pointer 

CD7A 

88 

DEY 

Pointer  to  previous  character 

CD7B 

C9 

02 

CMP 

#$02 

Compare  with  start  of  data  range 

CD7D 

B0 

02 

BCS 

$CD81 

Is  pointer  correctly  set? 
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CD7F 

AO 

01 

LDY 

#$01 

YES— Byte  valu  f /current  buff  pos . 

CD81.1 

A9 

00 

LDA 

#$00 

Position  of  buffer  pointer 

CD83 

20 

C8 

D4 

JSR 

$D4C8 

Get  buffer  pointer 

CD86 

98 

TYA 

Position  in  buffer 

CD87 

20 

Fl 

CF 

JSR 

$CFF1 

write  byte  in  buffer 

CD8A 

8A 

TXA 

Double  and  save 

CD8B 

48 

PHA 

buffer  pointer 

CD8C 

20 

64 

D4 

JSR 

$D464 

Write  sector  to  diskette 

CD8F 

68 

PLA 

Repeat  buffer  number  and 

CD90 

AA 

TAX 

set  it 

CD91 

20 

AE 

FF 

JSR 

$FFAE 

Re-set  buffer  pointer 

CD94 

4C 

94 

CI 

JMP 

$C194 

Prepare  return  message  and  end 

[Vector:  FFEC] 

Routine  for  02-command  (cf.B-W); 
CD97     20  6F  CC      JSR  $CC6F 
CD 9 A     20  F2  CD       JSR  $CDF2 
CD9D     20  64  D4       JSR  $D4  64 
CDA0     4C  94  CI       JMP  $C194 


Write  sector  from  buffer  to  disk 
Get  parameter  from  command  string 
Test  and  set  parameter 
Write  sector  to  disk 
Prepare  return  message  and  end 


[Origin  at  routine  CC1B] 

Routine  for  Block-Execute-command  ('B-E');  read  sector  and  execute 


CDA3 

20 

58 

F2 

JSR 

$F258 

No  function  (rts) 

CDA6 

20 

36 

CD 

JSR 

$CD36 

Read  sector  in  buffer 

CDA9 

A9 

00 

LDA 

#$00 

Set  buffer  address   (low-byte)  to 

CDAB 

85 

6F 

STA 

$6F 

start-of-buf f er 

CDAD 

A6 

F9 

LDX 

$F9 

Get  buffer  number 

CDAF 

BD 

E0 

FE 

LDA 

$FEE0,X 

Get  hi-byte  of  buffer  address  and 

CDB2 

85 

70 

STA 

$70 

set  in  pointer  at  start-of-buf fer 

CDB4 

20 

BA 

CD 

JSR 

$CDBA 

Start  program  in  buffer 

CDB7 

4C 

94 

CI 

JMP 

$C194 

Return  at  'RTS' 

CDBA1 

6C 

6F 

00 

JMP 

($006F) 

Jump  to  pointer  in  buffer 

[Origin  at  routine  CC1B] 

Routine  for  Block-Pointer-command  ('B-P');  set  buffer  pointer 


CDBD 

20 

D2 

CD 

JSR 

$CDD2 

Allocate  buffer  and  open  channel 

CDC0 

A5 

F9 

LDA 

$F9 

Get  buffer  number 

CDC  2 

OA 

ASL 

A 

double  (buffer  pointer  as  2-Byte) 

CDC3 

AA 

TAX 

and  save  it 

CDC4 

AD 

86 

02 

LDA 

$0286 

Get  new  pos.  of  buffer  pointer  & 

CDC  7 

95 

99 

STA 

$99, X 

set  as  low-byte  in  buffer  pointer 

CDC  9 

20 

2F 

Dl 

JSR 

$D12F 

Get  buffer  and  channel  number 

CDCC 

20 

EE 

D3 

JSR 

$D3EE 

Get  byte  frm  current  buffer  pos. 

CDCF 

4C 

94 

CI 

JMP 

$C194 

Prepare  return  msg.  and  end 
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[CDBD/CDF2] 

Allocate  buffer  and  open  channel 


CDD2 

A6 

D3 

LDX 

$D3 

Get  parameter  number 

CDD4 

E6 

D3 

INC 

$D3 

Set  to  next  assignment 

CDD6 

BD 

85 

02 

LDA 

$0285, X 

Get  channel  number  from  table 

CDD9 

A8 

TAY 

and  save  it 

CDDA 

88 

DEY 

Decrement  channel  number 

CDDB 

88 

DEY 

by  2  and  compare  with 

CDDC 

CO 

OD 

CPY 

#$0D 

value  for  channel  14 

CDDE 

90 

05 

BCC 

$CDE5 

Is  the  channel  number  <  15? 

CDEO-'- 

A9 

70 

LDA 

#$70 

NO— Di solav 

CDE2 

4C 

C8 

CI 

JMP 

$C1C8 

•70  No  Channel' 

CDE51 

85 

83 

STA 

$83 

Set  channel  #  as  2ndary  address 

CDE7 

20 

EB 

DO 

JSR 

$D0EB 

and  open  channel 

CDEA 

BO 

F4 

BCS 

$CDE0 

Channel  already  open? 

CDEC 

20 

93 

DF 

JSR 

$DF93 

NO-Get  buffer  number  and 

CDEF 

85 

F9 

STA 

$F9 

set  it 

CDF1 

60 

RTS 

Return  from  this  subroutine 

[CD03/CD36/CD73/CD9A] 

Test  paramters  for  valid  sector  assignment 


CDF2 

20 

D2 

CD 

JSR 

$CDD2 

Allocate  buffer 

CDF5 

A6 

D3 

LDX 

$D3 

Parameter  number 

CDF7 

BD 

85 

02 

LDA 

$0285, X 

Get  byte  from  temporary  storage 

CDFA 

29 

01 

AND 

#$01 

and  isolate  drive  number;  take  on 

CDFC 

85 

7F 

STA 

$7F 

as  current  drive 

CDFE 

BD 

87 

02 

LDA 

$0287, X 

Set  number  of  desired 

CE01 

85 

81 

STA 

$81 

track 

CE03 

BD 

86 

02 

LDA 

$0286, X 

Take  on  number  of 

CEO  6 

85 

80 

STA 

$80 

desired  sector 

CE08 

20 

5F 

D5 

JSR 

$D55F 

Test  for  valid  track  and  sector 

CE0B 

4C 

00 

CI 

JMP 

$C100 

Switch  on  LED  to  current  drive 

[E255/E338/E436] 

Get  record  from  relative  file 


CE0E 

20 

2C 

CE 

JSR 

$CE2C 

Determine  #  of  bytes  computed  til 

CE11 

20 

6E 

CE 

JSR 

$CE6E 

record  and  sector  #  of  the  record 

CE14 

A5 

90 

LDA 

$90 

Get  remainder  of  division  Sset  as 

CE16 

85 

D7 

STA 

$D7 

buffer  pointer  to  start  of  record 

CE18 

20 

71 

CE 

JSR 

$CE71 

Get  side-sector  shown  by  record 

CE1B 

E6 

D7 

INC 

$D7 

Adjust  buffer  pointer  in  physical 

CE1D 

E6 

D7 

INC 

$D7 

sector  to  linked  bytes 

CE1F 

A5 

8B 

LDA 

$8B 

Get  and  save  number  of 

CE21 

85 

D5 

STA 

$D5 

side-sector 

CE23 

A5 

90 

LDA 

$90 

Get  remainder  of  div.  &  calc. 

CE25 

OA 

ASL 

A 

position  of  sector  pointer  for 
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CE2  6 

18 

CLC 

record  in  computed,  side— sector 

CE27 

69 

10 

ADC 

#$10 

and 

CE29 

85 

D6 

STA 

$D6 

s  ave  it 

CE2B 

60 

RTS 

Return  from  this  subroutine 

[CEOE] 

Compute  number 

of  bytes  up  to 

CE2C 

20 

D9 

CE 

JSR 

$CED9 

PI  aar     t"  CMTIT^OT'^IT'V    ltt  ^  tfl  Ci  T"\7 

CE2F 

85 

92 

STA 

S92 

\Ia  1  ha    in            h    y^ri l  q1*pt  0 

VC1J_U.G     .1.11     lllGLIvil     iCJAO^**3i  ft. 

CE31 

A6 

82 

LDX 

$82 

fi^t"   channpl    number    fbufferl  and 

CE33 

B5 

B5 

LDA 

$B5,  X 

CE35 

85 

90 

STA 

$90 

pDorotsriate  record  #   (low- bvte) 

CE37 

B5 

BB 

LDA 

$BB,X 

Get  high- byte  of  record  number  & 

CE39 

85 

91 

STA 

$91 

take  it  on 

CE3B 

DO 

04 

BNE 

$CE41 

Record  number  greater  than  255? 

CE3D 

A5 

90 

LDA 

$90 

NO— Get  low— byte  of  record  number 

CE3F 

FO 

OB 

BEQ 

$CE4C 

Is  record  number    —  0? 

CE43.1 

A5 

90 

LDA 

$90 

NO — Get  record  number (low— byte) and 

CE43 

38 

SEC 

diminish  by 

CE44 

E9 

01 

SBC 

#$01 

one;   take  uo  new 

CE4  6 

85 

90 

STA 

$90 

value 

CE48 

BO 

02 

BCS 

$CE4C 

Is  record  number  <  1? 

CE4A 

C6 

91 

DEC 

$91 

YES— Then  decrement  hi— byte  by  one 

CE4C^ 

B5 

C7 

LDA 

$C7,X 

Get  record  length  and 

CE4E 

85 

6F 

STA 

$6F 

save  it 

CE50^ 

46 

6F 

LSR 

$6F 

Test  against  equal  value 

CE52 

90 

03 

BCC 

$CE57 

Is  the  record  length  the  same? 

CE54 

20 

ED 

CE 

JSR 

$CEED 

NO— Add  reg •  2  to  reg ♦  1 

CE571 

20 

E5 

CE 

JSR 

$CEE5 

Math  register  times  2 

CE5A 

A5 

6F 

LDA 

$6F 

Current  record 

CE5C 

DO 

F2 

BNE 

$CE50 

Compute  bits 

CE5E 

A5 

D4 

LDA 

$D4 

Pointer  in  position  in  Record 

CE60 

18 

CLC 

Count  up  current 

CE61 

65 

8B 

ADC 

$8B 

math  register  by  1 

CE63 

85 

8B 

STA 

$8B 

Re-set  low-byte 

CE65 

90 

06 

BCC 

$CE6D 

Has  a  transfer  occurred? 

CE67 

E6 

8C 

INC 

$8C 

YES— Adjust  next  byte 

CE69 

DO 

02 

BNE 

$CE6D 

Another  transfer  occurred  f rm  it? 

CE6B 

E6 

8D 

INC 

$8D 

YES— Ad just  highest  byte 

CE6D2 

60 

RTS 

Return  from  this  subroutine 

[CE11] 

Division 

of 

math  register  by 

254   (sector  length) 

CE6E 

A9 

FE 

LDA 

#$FE 

Set  value  of  divisor  (254) 

CE70 

2C 

.byte  $2C 

Jump  two  bytes  (bit  command) 
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[CE18] 

Division 

of 

math 

register  by  120 

(record  entries  in  side-sector) 

CE71 

A9 

78 

LDA 

#$78 

Set  value  of  divisor  (120) 

CE73 

85 

6F 

STA 

$6F 

and  save  it 

CE75 

A2 

03 

LDX 

#$03 

Number  of  bytes  per  math  register 

CE771 

B5 

8F 

LDA 

$8F,X 

Recover  current 

CE79 

48 

PHA 

contents 

CE7A 

B5 

8A 

LDA 

$8A,X 

Copy  range  $88-$8A  to 

CE7C 

95 

8F 

STA 

$8F,X 

register  2 

CE7E 

68 

PLA 

Contents  of  previous  reg.  2  in 

CE7F 

95 

8A 

STA 

$8A,X 

range  $88-$8A  (exchange) 

CE81 

CA 

DEX 

Pointer  to  next  byte 

CE82 

DO 

F3 

BNE 

$CE77 

Entire  register  exchanged? 

CE84 

20 

D9 

CE 

JSR 

$CED9 

YES-Clear  register  1 

CE871 

A2 

00 

LDX 

#$00 

Initialize  counter 

CE891 

B5 

90 

LDA 

$90, X 

Get  byte  from  reg.  2  &  prepare 

CE8B 

95 

8F 

STA 

$8F,X 

for  shifting  by  one  byte 

CE8D 

E8 

INX 

Pointer  to  next  byte 

CE8E 

EO 

04 

CPX 

#$04 

Compare  with  #  of  register  bytes 

CE90 

90 

F7 

BCC 

$CE89 

Entire  register  shifted? 

CE92 

A9 

00 

LDA 

#$00 

YES— Clear  most  significant 

CE94 

85 

92 

STA 

$92 

byte 

CE96 

24 

6F 

BIT 

$6F 

Test  divisor 

CE98 

30 

09 

BMI 

$CEA3 

Is  it  greater  than  128? 

CE9A 

06 

8F 

ASL 

$8F 

NO-Put  bitO  frm  least  signif.part 

CE9C 

08 

PHP 

of  reg.  2  in  carry  and  save  it 

CE9D 

46 

8F 

LSR 

$8F 

Re-establish  register 

CE9F 

28 

PLP 

Repeat  carry  and 

CEAO 

20 

E6 

CE 

JSR 

$CEE6 

shift  in  reg.  2 

CEA31 

20 

ED 

CE 

JSR 

$CEED 

Add  register  1  to  register  2 

CEA6 

20 

E5 

CE 

JSR 

$CEE5 

Double  register  2 

CEA9 

24 

6F 

BIT 

$6F 

Test  divisor 

CEAB 

30 

03 

BMI 

$CEB0 

Is  it  greater  than  128? 

CEAD 

20 

E2 

CE 

JSR 

$CEE2 

NO— Take  register  24  times 

CEBO1 

A5 

8F 

LDA 

$8F 

Add  to  previous 

CEB2 

18 

CLC 

value  in 

CEB3 

65 

90 

ADC 

$90 

reg.  2  and 

CEB5 

85 

90 

STA 

$90 

save  result  down 

CEB7 

90 

06 

BCC 

$CEBF 

Has  a  transfer  occurred? 

CEB9 

E6 

91 

INC 

$91 

YES-Adjust  2nd  byte  of  register 

CEBB 

DO 

02 

BNE 

$CEBF 

Transfer  also  a  result  of  this? 

CEBD 

E6 

92 

INC 

$92 

YES— Set  highest  byte  of 

CEBF2 

A5 

92 

LDA 

$92 

register 

CEC1 

05 

91 

ORA 

$91 

Combine  2nd  byte 

CEC3 

DO 

C2 

BNE 

$CE87 

Both  bytes  0 (register  value<256) ? 

CEC5 

A5 

90 

LDA 

$90 

YES-Get  least  signif.  reg.  byte 
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CEC7 

38 

SEC 

and  pull  a  divisor 

CEC8 

E5 

6F 

SBC 

$6F 

from  that 

CECA 

90 

OC 

BCC 

$CED8 

Transfer  occurred? 

CECC 

E6 

8B 

INC 

$8B 

NO— Increment  register  1 

CECE 

DO 

06 

BNE 

$CED6 

Transfer? 

CEDO 

E6 

8C 

INC 

$8C 

Adjust  2nd  byte 

CED2 

DO 

02 

BNE 

$CED6 

Transfer? 

CED4 

E6 

8D 

INC 

$8D 

Adjust  last  byte 

CED62 

85 

90 

STA 

$90 

Set  new  value 

CED81 

60 

RTS 

Return  from  this  subroutine 

[CE2C/CE84] 

Clear  math  register  1 


($8B/$8C/$8D) 


CED9 
CEDB 
CEDD 
CEDF 
CEE1 


A9  00 
85  8B 
85  8C 
85  8D 
60 


LDA  #$00 
STA  $8B 
STA  $8C 
STA  $8D 
RTS 


Value  which  should  be 

cleared  in 

math  register 

when  transferred 

Return  from  this  subroutine 


[CEAD] 

Multiply  math  register  2  ($90/$91/$92)   four  times 

CEE2     20  E5  CE      JSR  $CEE5  Double  register  contents 


[CE57 /CEA6/CEE2 / CEE6 : CEA0 ] 

Double  math  register  2  <$90/$91/$92) 


CEE5 

CEE61 

CEE8 

CEEA 

CEEC 


18 

26  90 
26  91 
26  92 
60 


CLC 

ROL  $90 
ROL  $91 
ROL  $92 
RTS 


Value  to  be  shifted  =  0 
Shift  value  in  register  and 
shift  entire  register  by 
one  bitposition  to  the  left 
Return  from  this  subroutine 


[CE54/CEA3] 

Add  math  register  2   ($90/$91/$92)  to  math  register  1  ($8B/$8C/$8D) 

CEED    18  CLC  Begin  addition 

CEEE    A2  FD  LDX  #$FD  #  of  bytes  in  registr(neg.  value) 

CEF01  B5  8E  LDA  $8E,X  Get  byte  from  register  1 

CEF2     75  93  ADC  $93, X  Get  value  from  register  2,  &  add; 

CEF4     95  8E  STA  $8E,X  store  result  in  register  1 

CEF6    E8  INX  Set  pointer  to  next  number 

CEF7    DO  F7  BNE  $CEF0  Entire  register  added? 

CEF9     60  RTS  YES-Return  from  this  subroutine 
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[CF17/EBBF] 

Initialize  buffer  channel  table 


CEFA 

A2 

00 

LDX 

#$00 

Start  of  buffer  0 

CEFC1 

8A 

TXA 

Channel  assignment  number  (0) 

CEFD 

95 

FA 

STA 

$FA,X 

Clear  channel  assignmnt  of  buffer 

CEFF 

E8 

INX 

Choose  next  buffer 

CFOO 

EO 

04 

CPX 

#$04 

Test  against  highest-#ed  buffer 

CF02 

DO 

F8 

BNE 

$CEFC 

All  buffers  already  worked  on? 

CF04 

A9 

06 

LDA 

#$06 

YES-Use  buffer  4  for 

CF06 

95 

FA 

STA 

$FA,X 

channel  6  (BAM) 

CF08 

60 

RTS 

Return  from  this  subroutine 

[CF1E/CF7B] 

Test  channel  number  in  buffer  channel  table 


CF09 

AO 

04 

LDY 

#$04 

Number  of  buffers 

CF0B 

A6 

82 

LDX 

$82 

Number  of  channels  sought 

CF0D1 

B9 

FA  00 

LDA 

$00FA,Y 

Pre-arranged  channel  #  of  buffer 

CF10 

96 

FA 

STX 

$FA,  Y 

Set  new  number 

CF12 

C5 

82 

CMP 

$82 

Compare  old  number  with  new 

CF14 

F0 

07 

BEQ 

$CF1D 

Both  equal? 

CF16 

88 

DEY 

NO- Go  to  next  buffer 

CF17 

30 

El 

BMI 

$CEFA 

Was  that  the  last  buffer? 

CF19 

AA 

TAX 

NC—Take  on  old  channel  number 

CF1A 

4C 

0D  CF 

JMP 

$CF0D 

and  test  it 

CF1D1 

60 

RTS 

Return  from  this  subroutine 

[BF5A/D0B7/D0C0/D16A/D180/D18C/D1BB/DB2F/DB7D/DBA2/E04A/E05D/E072/E078] 

[E18D/E19A/E19D/E2B9/E3B6/E3C8/E439/E451] 

Manage  and  assign  buffer 


CF1E 

20 

09 

CF 

JSR 

$CF09 

Actualize  buffer  table 

CF21 

20 

B7 

DF 

JSR 

$DFB7 

Get  status  of  chosen  buffer 

CF24 

DO 

46 

BNE 

$CF6C 

Is  buffer  free? 

CF2  6 

20 

D3 

Dl 

JSR 

$D1D3 

YES-Set  buffer  of  appropriate  drv 

CF29 

20 

8E 

D2 

JSR 

$D28E 

Look  for  buffer 

CF2C 

30 

48 

BMI 

$CF76 

Buffer  been  found? 

CF2E 

20 

C2 

DF 

JSR 

$DFC2 

YES-Activate  buffer 

CF31 

A5 

80 

LDA 

$80 

Save  current  track 

CF33 

48 

PHA 

number 

CF34 

A5 

81 

LDA 

$81 

Save  current  sector 

CF36 

48 

PHA 

number 

CF37 

A9 

01 

LDA 

#$01 

Pointer  to  position  in  buffer 

CF39 

20 

F6 

D4 

JSR 

$D4F6 

Get  a  byte  from  buffer  and  save 

CF3C 

85 

81 

STA 

$81 

as  sector  number 

CF3E 

A9 

00 

LDA 

#$00 

Pointer  to  position  in  buffer 

CF40 

20 

F6 

D4 

JSR 

$D4F6 

Get  byte  from  buffer  and  save 

CF43 

85 

80 

STA 

$80 

as  track  number 
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CF45 

FO 

IF 

BEQ 

$CF66 

Any  more  sectors  in  string? 

CF47 

20 

25 

Dl 

JSR 

$D125 

YES-at  current  filetype 

r  U 

ntj 
Un 

BEQ 

$CF57 

Sector  belong  to  a  REL  file? 

Ad 

DD 

JSR 

$DDAB 

NO— Test  last  jobcode 

CF4F 

DO 

06 

BNE 

$CF57 

Was  it  a  write  procedure? 

CF51 

20 

8C 

CF 

JSR 

$CF8C 

YES-Change  buffer  status  (in/out) 

CF54 

4C 

5D 

CF 

JMP 

$CF5D 

and  continue 

CF572 

20 

8C 

CF 

JSR 

$CF8C 

Change  buff  stat (active /passive) 

CF5A 

20 

57 

DE 

JSR 

$DE57 

Set  'Read  sector'  jobcode 

CF5D^ 

68 

PLA 

Re-establish  current 

CF5E 

85 

81 

STA 

$81 

sector  number 

CF60 

68 

PLA 

Re-establish  current 

CF61 

85 

80 

STA 

$80 

track  number; 

Do 

or 

CF 

JMP 

5CF6F 

continue 

CF66^ 

68 

PLA 

Re-establish  current 

CF67 

85 

81 

STA 

$81 

sector  number 

CF69 

68 

PLA 

Re-establish  current 

CF6A 

85 

80 

STA 

$80 

track  number 

CF6C1 

20 

8C 

CF 

JSR 

$CF8C 

Change  buff  stat (active/passive) 

CF6F1 

20 

93 

DF 

JSR 

$DF93 

Get  buffer  number  and 

CF72 

AA 

TAX 

save  it; 

CF73 

4C 

99 

D5 

JMP 

$D599 

wait  until  job  is  executed 

CF7  62 

A9 

70 

LDA 

#$70 

Display 

CF78 

4C 

C8 

CI 

JMP 

$C1C8 

'70  No  Channel'  error  message 

[E325] 

Look  for 

free  buffer 

CF7B 

20 

09 

CF 

JSR 

$CF09 

Actualize  buffer  table 

CF7E 

20 

B7 

DF 

JSR 

$DFB7 

Get  number  of  a  buffer 

CF81 

DO 

08 

BNE 

$CF8B 

Is  buffer  free? 

CF83 

20 

8E 

D2 

JSR 

$D28E 

NO— Choose  another  buffer 

CF86 

30 

EE 

BMI 

$CF76 

Has  another  buffer  been  found? 

CF88 

20 

C2 

DF 

JSR 

$DFC2 

YES-Activate  buffer 

CF8B1 

60 

RTS 

Return  from  this  subroutine 

[CF51/CF57/CF6C] 

Toggle  buffer  from  active  to  passive  and  back 


CF8C 

A6 

82 

LDX 

$82 

Current  channel  number 

CF8E 

B5 

A7 

LDA 

$A7,X 

Get  corresponding  buffer  status 

CF90 

49 

80 

EOR 

#$80 

Change  flag  for  buffer  in/out  and 

CF92 

95 

A7 

STA 

$A7,X 

write  it  back  in 

CF94 

B5 

AE 

LDA 

$AE,X 

Get  number  of  2nd  buffer  and 

CF96 

49 

80 

EOR 

#$80 

switch  over 

CF98 

95 

AE 

STA 

$AE,X 

Write  new  value  in  table 

CF9A 

60 

RTS 

Return  from  this  subroutine 

ROM -156 


Abacus  Software 


1571  Internals 


[C9D5/C9E7] 


Write 

bytes 

over 

internal  channel 

in  buffer 

CF9B 

A2 

12 

LDX 

#$12 

Set  number  of  write  channel  (18) 

CF9D 

86 

83 

STX 

$83 

as  current  secondary  address 

CF9F 

20 

07 

Dl 

JSR 

$D107 

Look  for  channel  and  open 

CFA2 

20 

00 

CI 

JSR 

$C100 

Current  drive's  LED  on 

CFA5 

20 

25 

Dl 

JSR 

$D125 

Get  corresponding  filet ype 

CFA8 

90 

05 

BCC 

$CFAF 

Relative  file? 

CFAA 

A9 

20 

LDA 

#$20 

YES-Clear  'File  not  closed' 

CFAC 

20 

9D 

DD 

JSR 

$DD9D 

flag 

CFAF1 

A5 

83 

LDA 

$83 

Get  current  secondary  address 

CFB1 

C9 

OF 

CMP 

#$0F 

Compare  with  command  channel  # 

CFB3 

F0 

23 

BEQ 

$CFD8 

Is  command  channel  required? 

CFB5 

DO 

08 

BNE 

$CFBF 

NC—Jump  to  $CBBF 

[835C/EA48] 

Write 

byte  into 

file 

CFB7 

A5 

84 

LDA 

$84 

Last  secondary  address 

CFB9 

29 

8F 

AND 

#$8F 

Get  channel  number  and  test 

CFBB 

C9 

OF 

CMP 

#$0F 

against  command  channel 

CFBD 

B0 

19 

BCS 

$CFD8 

Has  file  channel  been  chosen? 

CFBF 

20 

25 

Dl 

JSR 

$D125 

Get  current  filetype 

CFC2 

B0 

05 

BCS 

$CFC9 

'REL'  or  'USR'? 

CFC4 

A5 

85 

LDA 

$85 

NO-Get  current  file  byte  &  write 

CFC6 

4C 

9D 

Dl 

JMP 

$D19D 

in  current  buffer 

CFC91 

DO 

03 

BNE 

$CFCE 

Is  type  a  relative  file? 

CFCB 

4C 

AB 

E0 

JMP 

$E0AB 

YES-Take  byte  in  current  record 

CFCE1 

A5 

85 

LDA 

$85 

Get  current  filebyte  and  write 

CFD0 

20 

Fl 

CF 

JSR 

$CFF1 

in  buffer 

CFD3 

A4 

82 

LDY 

$82 

Get  number  of  current  channel 

CFD5 

4C 

EE 

D3 

JMP 

$D3EE 

Get  next  byte  for  output 

CFD82 

A9 

04 

LDA 

#$04 

Get  highest  channel  number  (4) 

CFDA 

85 

82 

STA 

$82 

as  command  channel  number 

CFDC 

20 

E8 

D4 

JSR 

$D4E8 

Initialize  buffer  pointer; 

CFDF 

C9 

2A 

CMP 

#$2A 

test  for  end-of-buf fer 

CFE1 

F0 

05 

BEQ 

$CFE8 

Is  buffer  full? 

CFE3 

A5 

85 

LDA 

$85 

NO- Get  current  data  byte  and  put 

CFE5 

20 

Fl 

CF 

JSR 

$CFF1 

in  buffer 

CFE81 

A5 

F8 

LDA 

$F8 

Test  flag  for  last  byte  (EOI) 

CFEA 

F0 

01 

BEQ 

$CFED 

No  more  data? 

CFEC 

60 

RTS 

YES— Return  from  this  subroutine 

CFED1 

EE 

55 

02 

INC 

$0255 

Clear  command  mode  flag 

CFF0 

60 

RTS 

Return  from  this  subroutine 
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[CD87/CFD0/CFE5/D19D/D1B0/D1B5/D4A8/D4AD/D4BB/D4C0/D4C5/D74D/D754/D75B] 
[DB73/DB95/DB99/ECBE/ECC3/ECC8/ECCB/ECD1/ECD6/ECE7/ECEC/ECEF/ECFA/ED00] 
[ED08/ED2  6/ED2C/ED3D/ED40/ED43/ED5E/CFFD:DD92] 


Write 

byte  in 

current 

buffer 

CFF1 

48 

PHA 

oave  uyte 

CFF2 

20 

93  DF 

Get  number  of  buffer 

CFF5 

10 

06 

BPL 

v^r  r  u 

Is  buffer  properly  set  up? 

CFF7 

68 

dt  a 

NO— Correct  stack 

CFF8 

A9 

61 

LDA 

#$61 

Display 

CFFA 

4C 

C8  CI 

JMP 

$C1C8 

■61  File  Not  Open'  message 

CFFD2 

OA 

ASL 

A 

Double  buffer  number  and 

CFFE 

AA 

TAX 

save  it 

CFFF 

68 

PLA 

Repeat  byte  and  write 

D000 

81 

99 

STA 

($99, X) 

in  current  buffer 

D002 

F6 

99 

INC 

$99, X 

Set  buffer  pointer  to  next  char 

D004 

60 

RTS 

Return  from  this  subroutine 

[Origin  at  C14  6] 

Initialize  command  routine  ('i') 
D005     20  Dl  CI       JSR  $C1D1 
D008     20  42  DO       JSR  $D042 
D00B     4C  94  CI       JMP,  $C194 


Get  parameters 

Read  BAM  from  diskette 

Prepare  return  message  and  end 


[C64C/D048] 

Initialize  current  drive 


D00E 

20 

OF 

Fl 

JSR 

$F10F 

Get  channel  number  and 

D011 

A8 

TAY 

save  it 

D012 

B6 

A7 

LDX 

$A7,Y 

Get  corresponding  buffer  status 

D014 

E0 

FF 

CPX 

#$FF 

Compare  with  'occupied'  flag 

D016 

DO 

14 

BNE 

$D02C 

Is  buffer  free? 

D018 

48 

PHA 

YES— Save  channel  number 

D019 

20 

8E 

D2 

JSR 

$D28E 

Look  for  buffer  and  set  pointer 

D01C 

AA 

TAX 

Get  buffer  number 

D01D 

10 

05 

BPL 

$D024 

Buffer  found? 

D01F 

A9 

70 

LDA 

#$70 

NO- display 

D021 

20 

48 

E6 

JSR 

$E648 

'70  No  Channel'  message 

D0241 

68 

PLA 

Repeat  channel  number  and 

D025 

A8 

TAY 

save  it 

D026 

8A 

TXA 

Get  buffer  number 

D027 

09 

80 

ORA 

#$80 

Flag  value  for  buffer  active 

D029 

99 

A7 

00 

STA 

$00A7,Y 

Write  to  channel  buffer  table 

D02C1 

8A 

TXA 

Get  buffer  number  and 

D02D 

29 

OF 

AND 

#$0F 

set  flags  out 

D02F 

85 

F9 

STA 

$F9 

Save  current  buffer  number 

D031 

A2 

00 

LDX 

#$00 

Set  current  sector 

D033 

86 

81 

STX 

$81 

number 
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D035  AE  85  FE  LDX  $FE85 

D038  86  80  STX  $80 

D03A  20  D3  D6  JSR  $D6D3 

D03D  A9  BO  LDA  #$B0 

D03F  4C  E5  A6  JMP  $A5C5 


Set  number  of  directory  track  as 
current  track  number 
Set  track/sector  for  jobloop 
Jobcode  for  'Search  sector' 
Initialize  diskette 


[8FE1/907C/C666/D008/D828/E63E/ED87/EE4  6/EEB1] 


Read 

BAM 

in 

buffer 

D042 

20 

Dl 

F0 

JSR 

$F0D1 

Clear  track  number  for  BAM 

D045 

20 

13 

D3 

JSR 

$D313 

Close  other  drive  channel 

D048 

20 

0E 

DO 

JSR 

$D00E 

Initialize  drive 

D04B 

A6 

7F 

LDX 

$7F 

Get  current  drive  number  and  set 

D04D 

A9 

00 

LDA 

#$00 

appropriate  flag  for 

D04F 

9D 

51 

02 

STA 

$0251, X 

■Valid  BAM 1 

D052 

8A 

TXA 

Double  drive 

D053 

OA 

ASL 

A 

(number    for  2-drive  pointer) 

D054 

AA 

TAX 

and  save  it 

D055 

A5 

16 

LDA 

$16 

Get/save  first  blockheader  ID 

D057 

95 

12 

STA 

$12, X 

character 

D059 

A5 

17 

LDA 

$17 

Get/ save  second  blockheader 

D05B 

95 

13 

STA 

$13, X 

ID  character;  take  it  all  up 

D05D 

20 

67 

A6 

JSR 

$A667 

Read  BAM  from  diskette 

D060 

A5 

F9 

LDA 

$F9 

Get  number  of  current  buffer 

D062 

OA 

ASL 

A 

and  double  it 

DO  63 

AA 

TAX 

(address  held  in  2  bytes) 

D064 

A9 

02 

LDA 

#$02 

Arrange  lo-byte  of  buffer  address 

D066 

95 

99 

STA 

$99, X 

in  buffer  table 

D068 

Al 

99 

LDA 

($99,X) 

Get  byte  from  buffer 

D06A 

A6 

7F 

LDX 

$7F 

Get  current  drive  number 

D06C 

9D 

01 

01 

STA 

$0101, X 

Store  byte  as  format  identifier 

D06F 

A9 

00 

LDA 

#$00 

Clear  disk  exchange  flag  Spre-set 

D071 

4C 

ID 

AA 

JMP 

$AA1D 

•Drive  ready'  flag 

D074 

EA 

NOP 

Unused  byte 

[A83B/AA22/EEF1] 

Compute  total  number  of  blocks 

D075     20  3A  EF  JSR  $EF3A 

D078     AO  04  LDY  #$04 

D07A    A9  00  LDA  #$00 

D07C    AA  TAX 

D07D1  18  CLC 

D07E     71  6D  ADC  ($6D),Y 

D080     90  01  BCC  $D083 

DO  8  2     E8  INX 


free 

set  buffer  addr  in  pnters  $6D/$6E 
Set  buffer  pntr  to  begin. of  BAM 
Initialize 
block  counter 

Get  #  of  free  track  blocks  from 
BAM  and  add  to  counter 
Has  a  transfer  occurred? 
YES-Increment  hi-byte  of  pointer 
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D0832 

C8 

INY 

Set"    Vlllf  for    r>i">  i  n"r"<»v    ^- r\    Jt    s\-F    Kl  /-s  /■>»  <-% 

D084 

C8 

I  NY 

f  r<so    +■  c\  ■fr-Vna 
■L  J.             U  Kj  UllC 

D085 

C8 

INY 

next"  "("T^r-V* 

D086 

C8 

INY 

"iumD  to  sector  hi t-r>a1~1~»T*n 

D087 

CO 

48 

CPY 

#$48 

D089 

FO 

F8 

BEQ 

$D083 

Pni  nf  PT    Tin  "1  nt"  Q    t"  n    ira  In     f  /f  raoH  DO 

D08B 

CO 

90 

CPY 

#$90 

D08D 

DO 

EE 

BNE 

$D07D 

Add.   free  hi  orlf  q   rr»   all    1-  r*  a  r-V  e  9 

D08F 

48 

PHA 

YES — Save  blo^lc   rnnnt'or  /1nu-hvi-o\ 

D090 

8A 

TXA 

Get  high-byte  of  block  counter 

D091 

A6 

7F 

LDX 

$7F 

Get  drive  #  and  save  free  blocks 

D093 

9D 

FC 

02 

STA 

on  anve 

D096 

68 

PLA 

tjet,  low- oyue  01  rree  diocks 

D097 

4C 

51 

A9 

JMP 

$A951 

\*ulll£^u  Ut*    HUHMJCX    Ul     1J  /  X  DXOCKS 

D0  9A 

60 

RTS 

[D0AF/DC57] 

Read 

sector 

f  rom 

diskette  to 

ou x  xer 

D09B 

20 

DO 

D6 

JSR 

$D6D0 

iiaojs  /  sector  nunujer  to  jooxoop 

D09E 

20 

C3 

DO 

JSR 

$D0C3 

uj-ve   joucoae  ior     Keao  sector 

D0A1 

20 

99 

D5 

JSR 

$D599 

Wait  til  sector    read  into  buffer 

D0A4 

20 

37 

Dl 

JSR 

$D137 

Get  1st  byte  from  buffer  ssave  as 

D0A7 

85 

80 

STA 

$80 

track  of  next  sector 

D0A9 

20 

37 

Dl 

JSR 

$D137 

Get  next  byte  from  buffer, set  as 

DOAC 

85 

81 

STA 

$81 

sector  number  of  next  sector 

DOAE 

60 

RTS 

Return  from  this  subroutine 

[E2CD] 

Read 

in  given  sector 

and  sector  after  that 

DOAF 

20 

9B 

DO 

JSR 

$D09B 

Read  sector  from  diskette 

D0B2 

A5 

80 

LDA 

$80 

Get  track 

D0B4 

DO 

01 

BNE 

$D0B7 

Any  more  sectors  onhand? 

D0B6 

60 

RTS 

NO— Return  from  this  subroutine 

DOB71 

20 

IE 

CF 

JSR 

$CF1E 

Lay  out  another  buffer  and 

DOBA 

20 

DO 

D6 

JSR 

$D6D0 

parameters  of  next  sector 

DOBD 

20 

C3 

DO 

JSR 

$D0C3 

Also  read  into  next  buffer 

DOCO 

4C 

IE 

CF 

JMP 

$CF1E 

Re-activate  first  buffer 

[D09E/D0BD/D189] 

Read  sector  from  diskette 

D0C3    A9  80  LDA  #$80  Set  up  jobcode  for  'Read  sector' 

D0C5     DO  02  BNE  $D0C9  Jump  to  $D0C9 
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[D1B8/D4B0/DB9C] 

Write  sector  to  diskette 


D0C7 

A9 

90 

LDA 

#$90 

Set  'Write  sector' 

D0C91 

8D 

4D 

02 

STA 

$024D 

Save  jobcode 

DOCC 

20 

93 

DF 

JSR 

$DF93 

Get  and  save  current  buffer 

DOCF 

AA 

TAX 

number 

DODO 

20 

06 

D5 

JSR 

$D506 

Test  track/sector  numbers 

D0D3 

8A 

TXA 

Repeat  buffer  number  and 

D0D4 

48 

PHA 

hold  onto  it 

D0D5 

OA 

ASL 

A 

Double  number 

D0D6 

AA 

TAX 

(2-byte  values) 

D0D7 

A9 

00 

LDA 

#$00 

Set  back  buffer  address 

D0D9 

95 

99 

STA 

$99, X 

(low-byte) 

DODB 

20 

25 

Dl 

JSR 

$D125 

Get  current  filetype 

DODE 

C9 

04 

CMP 

#$04 

Test  for  SEQ  file  identifier 

DOEO 

BO 

06 

BCS 

$D0E8 

Sector  belong  to  a  SEQ  file? 

D0E2 

F6 

B5 

INC 

$B5,X 

Number  of  laid-out  file  blocks 

D0E4 

DO 

02 

BNE 

$D0E8 

Has  a  transfer  occurred? 

D0E6 

F6 

BB 

INC 

$BB,X 

YES-High-byte  of  block  pointer 

D0E82 

68 

PLA 

Repeat  buffer  number  and 

D0E9 

AA 

TAX 

set  it 

DOEA 

60 

RTS 

Return  from  this  subroutine 

[81EB/C6E2/C9C3/CB45/CDE7/D39B/D90E/DE36/E20F/E680/E90A] 
Open  channel  for  reading 


D0EB 

A5 

83 

LDA 

$83 

Get  curent  secondary  address  and 

D0ED 

C9 

13 

CMP 

#$13 

compare  w/maximum  2ndary  address 

D0EF 

90 

02 

BCC 

$D0F3 

Is  address  in  allowable  range? 

D0F1 

29 

OF 

AND 

#$0F 

Limit  2ndary  addresses  to  0-15  & 

D0F31 

C9 

OF 

CMP 

#$0F 

test  for  channel  15 

D0F5 

DO 

02 

BNE 

$D0F9 

Is  command  channel  communicated? 

D0F7 

A9 

10 

LDA 

#$10 

YES— Set  secondary  address  to  16 

D0F91 

AA 

TAX 

(error  channel) 

D0FA 

38 

SEC 

Flag: 'Channel  not  for  reading' 

D0FB 

BD 

2B  02 

LDA 

$022B,X 

Test  channel  status 

DOFE 

30 

06 

BMI 

$D106 

Is  channel  in  read  mode? 

D100 

29 

OF 

AND 

#$0F 

YES — Establish  internal  channel  # 

D102 

85 

82 

STA 

$82 

Set  and  save  as  current 

D104 

AA 

TAX 

channel  number 

D105 

18 

CLC 

Set  'channel  open'  flag 

D1061 

60 

RTS 

Return  from  this  subroutine 
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[8343/CA63/CF9F/DB1B/DC43/E688/EA2F] 


Search  for  and 
D107    A5  83 
D109     C9  13 
D10B     90  02 
D10D     29  OF 
D10F1  AA 
DUO     BD  2B  02 
D113  A8 
D114  OA 
D115     90  OA 
D117     30  OA 
D1191  98 
D11A    29  OF 
D11C     85  82 
DUE  AA 
D11F  18 
D120  60 
D1211  30  F6 
D1231  38 
D124  60 


open  channel 
LDA  $83 
CMP  #$13 
BCC  $D10F 
AND  #$0F 
TAX 

LDA  $022B,X 

TAY 

ASL  A 

BCC  $D121 

BMI  $D123 

TYA 

AND  #$0F 
STA  $82 
TAX 
CLC 
RTS 

BMI  $D119 

SEC 

RTS 


Get  current  secondary  address  and 
compare  with  maximum  value  (19) 
Is  address  in  allowable  range? 
NO— then  convert  and  save 
range 

Get  corresponding  channel  status 
and  save 

Turn  status  to  test  bit  6/7 
Is  flag  set  for  writing? 
YES-is  flag  set  for  reading? 
NO-get  channel  status  again 
Establish  pure  channel  number 
Set  as  current  channel 
and  save  it 

Set  'channel  open'  flag 
Return  from  this  subroutine 
Is  flag  for  read  set? 
YES— set  flag: 'channel  read  only' 
Return  from  this  subroutine 


[C979/C9C6/C9E2/CA2B/CA48/CF47/CFA5/CFBF/D0DB/D3AC/D3C0/DB10/DBDE] 


[E21E/E68E] 
Get  current 
D125     A6  82 


D127 
D129 
D12A 
D12C 
D12E 


B5  EC 
4A 

29  07 
C9  04 
60 


file  type 

LDX  $82 
LDA  $EC,X 
LSR  A 
AND  #$07 
CMP  #$04 
RTS 


Get  current  channel  number  and 
and  get  appropriate  filetype 
Ignore  drive  number 
Establish  identifier  for  filetype 
and  compare  w/  REL  file  code 
Return  from  this  subroutine 


[CD3C/CDC9/D137/D3DE/E01D/E127/E138/E156] 

Get  channel  and  matching  buffer  number 

D12F    20  93  DF      JSR  $DF93  Get  current  buffer  number  and 

D132     OA  ASL  A  double  it 

D133    AA  TAX  Save  as  2-byte  value  in  pointer 

D134    A4  82  LDY  $82  Store  as  current  channel  number 

D136     60  RTS  Return  from  this  subroutine 


[D0A4/D0A9/D156/D172/D17B/D192/D433/DAAA/DE9A/DE9F/ED67/EDF3/EDF8] 
Get  byte  from  current  buffer 

D137     20  2F  Dl      JSR  $D12F  Set  channel  and  buffer  number 

D13A    B9  44  02      LDA  $0244, Y  pointer  to  end  of  buffer 

D13D    F0  12  BEQ  $D151  Is  last  byte  of  buffer  read? 

D13F    Al  99  LDA   ($99, X)  NO-get  byte  from  buffer 
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D141 

48 

PHA 

and  save 

D142 

B5 

99 

LDA 

$99, X 

Get  buffer  pointer  (low-byte) 

D144 

D9 

44  02 

CMP 

$0244, Y 

&  check  against  logical  buff,  end 

D147 

DO 

04 

BNE 

$D14D 

End  of  the  buffer  reached? 

D149 

A9 

FF 

LDA 

#$FF 

YES-set  buffer  pointer  to  the 

D14B 

95 

99 

STA 

$99, X 

physical  end-of-buf fer 

ni  4rA 

UJL*±U 

68 

PLA 

and  get  another  data  byte 

D14E 

F6 

99 

INC 

$99, X 

Set  buff  pnter  to  start-of-buf f er 

D150 

60 

RTS 

Return  from  this  subroutine 

D1511 

Al 

99 

LDA 

($99,X) 

Get  last  byte  of  buffer  and  reset 

D153 

F6 

99 

INC 

$99, X 

buffer  pointer  to  beginning 

D155 

60 

RTS 

Return  from  this  subroutine 

[C899/C8  9E/D400/D45C/DCA9] 
Get  byte  from  file 


D156 

20 

37 

Dl 

JSR 

$D137 

Get  byte  from  buffer 

D159 

DO 

36 

BNE 

$D191 

Was  that  the  last  byte  in  buffer? 

D15B 

85 

85 

STA 

$85 

YES— Save  data  byte 

D15D 

B9 

44 

02 

LDA 

$0244, Y 

Get  pointer  f/correct  buffr  range 

D160 

F0 

08 

BEQ 

$D16A 

Reached  the  physical  end? 

D162 

A9 

80 

LDA 

#$80 

NC—set  flag  in  channel 

D164 

99 

F2 

00 

STA 

$00F2,Y 

status  table  for  'read' 

D167 

A5 

85 

LDA 

$85 

Get  another  data  byte 

D169 

60 

RTS 

Return  from  this  subroutine 

D16A1 

20 

IE 

CF 

JSR 

$CF1E 

Read  next  logical  sector 

D16D 

A9 

00 

LDA 

#$00 

Reset 

D16F 

20 

C8 

D4 

JSR 

$D4C8 

Buffer  pointer 

D172 

20 

37 

Dl 

JSR 

$D137 

Get  1st  byte  from  sector  and  test 

D175 

C9 

00 

CMP 

#$00 

against  'last  sector'  identifier 

D177 

F0 

19 

BEQ 

$D192 

No  more  sectors  on  hand? 

D179 

85 

80 

STA 

$80 

NC—Track  number  of  next  sector 

D17B 

20 

37 

Dl 

JSR 

$D137 

Get  second  byte  from  sector 

D17E 

85 

81 

STA 

$81 

and  store  as  sector  number 

D180 

20 

IE 

CF 

JSR 

$CF1E 

Still  a  buffer  laid  out 

D183 

20 

D3 

Dl 

JSR 

$D1D3 

Set  buffer  and  drive  number 

D186 

20 

DO 

D6 

JSR 

$D6D0 

Track  &  sector  number  on  jobloop 

D189 

20 

C3 

DO 

JSR 

$D0C3 

Read  sector  to  buffer 

D18C 

20 

IE 

CF 

JSR 

$CF1E 

Switch  back  to  previous  buffer 

D18F 

A5 

85 

LDA 

$85 

Get  another  data  byte 

D1911 

60 

RTS 

Return  from  this  subroutine 

D1921 

20 

37 

Dl 

JSR 

$D137 

Get  byte  from  buffer 

D195 

A4 

82 

LDY 

$82 

Get  current  channel  number 

D197 

99 

44 

02 

STA 

$0244, Y 

Set  #  of  bytes  to  be  transferred 

D19A 

A5 

85 

LDA 

$85 

Get  data  byte  again 

D19C 

60 

RTS 

Return  from  this  subroutine 

ROM -163 


Abacus  Software 


1571  Internals 


[CFC6/D1A3:DA3D] 
Write  byte  in  file 


D19D 

20 

Fl 

CF 

JSR 

$CFF1 

Write  data  byte  in  buffer 

U1AU 

F0 

01 

BEQ 

$D1A3 

Is  buffer  full  yet? 

60 

RTS 

NO-return  from  this  subroutine 

UlAo 

zU 

Do 

Dl 

JSR 

$D1D3 

Set  buffer  and  drive  number 

D1A6 

20 

IE 

Fl 

JSR 

$F11E 

Get  next  free  sector  from  BAM 

D1A9 

A9 

00 

LDA 

#$00 

Set  buffer  pointer  on 

D1AB 

20 

C8 

D4 

JSR 

$D4C8 

string  bytes  of  sector 

D1AE 

A5 

80 

LDA 

$80 

Write  track  #  of  next  sector  in 

D1B0 

20 

Fl 

CF 

JSR 

$CFF1 

string  bytes  of  sector 

D1B3 

A5 

81 

LDA 

$81 

Write  next  sector  number  into 

D1B5 

20 

Fl 

CF 

JSR 

$CFF1 

sector  string  bytes 

D1B8 

20 

C7 

DO 

JSR 

$D0C7 

Write  sector  to  diskette 

D1BB 

20 

IE 

CF 

JSR 

$CF1E 

Change  to  next  buffer 

D1BE 

20 

DO 

D6 

JSR 

$D6D0 

Set  track  and  sector  #  for  job 

D1C1 

A9 

02 

LDA 

#$02 

Set  buffer  pointer  to  start  of 

D1C3 

4C 

C8 

D4 

JMP 

$D4C8 

data  range 

[C623] 

Set  current 

buffer  pointer  to 

next  character 

D1C6 

85 

6F 

STA 

$6F 

Save  new  pointer  position 

D1C8 

20 

E8 

D4 

JSR 

$D4E8 

Set  pointer  to  current  buffer  and 

D1CB 

18 

CLC 

add  to  the  new 

D1CC 

65 

6F 

ADC 

$6F 

pointer  value 

DICE 

95 

99 

STA 

$99, X 

Put  new  value  in  pointer  lo-byte 

DIDO 

85 

94 

STA 

$94 

and  directory  buffer  pointer 

D1D2 

60 

RTS 

Return  from  this  subroutine 

[CA53/CA66/CF26/D183/D1A3/E03C/E31C] 
Get  number  of  drive-assigned  buffer 


D1D3 

20 

93  DF 

JSR 

$DF93 

Determine  and  save  buffer 

D1D6 

AA 

TAX 

number 

D1D7 

BD 

5B  02 

LDA 

$025B,X 

Get  coresponding  jobcode  frm  tbl 

D1DA 

29 

01 

AND 

#$01 

and  from  it  compute  drive  number; 

D1DC 

85 

7F 

STA 

$7F 

store  as  current  drive 

D1DE 

60 

RTS 

Return  from  this  subroutine 

[DCDF 

] 

Look 

for 

write 

channel  and  buffer 

D1DF 

38 

SEC 

Set  write  flag 

D1E0 

B0 

01 

BCS 

$D1E3 

Jump  to  $D1E3 
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[91D0/CB9A/CBDF/DC48/ECA4/D20F:DC7E,DD13] 
Look  for  read  channel  and  buffer 


D1E2 

18 

CLC 

Set  read  flag 

D1E31 

08 

PHP 

Save  flag 

D1E4 

85 

6F 

STA 

$6F 

Number  of  buffer  being  sought 

D1E6 

20 

27 

D2 

JSR 

$D227 

Clear  all  channels 

D1E9 

20 

7F 

D3 

JSR 

$D37F 

Seek  &  lay  out  next  free  channel 

D1EC 

85 

82 

STA 

$82 

Save  channel  number 

D1EE 

A6 

83 

LDX 

$83 

Get  secondary  address 

D1F0 

28 

PLP 

Get  read/write  flag  again 

D1F1 

90 

02 

BCC 

$D1F5 

Should  a  read  channel  be  opened? 

D1F3 

09 

80 

ORA 

#$80 

NC—set  'write'  flag  and  write 

D1F51 

9D 

2B 

02 

STA 

$022B,X 

to  status  table 

D1F8 

29 

3F 

AND 

#$3F 

Establish  and  save  number  of 

D1FA 

A8 

TAY 

internal  channels 

D1FB 

A9 

FF 

LDA 

#$FF 

Appropriate  buffers 

D1FD 

99 

A7 

00 

STA 

$00A7,Y 

one  and  two 

D200 

99 

AE 

00 

STA 

$00AE,Y 

freed  up 

D203 

99 

CD 

00 

STA 

$00CD,Y 

Third  buffer  freed  up 

D206 

C6 

6F 

DEC 

$6F 

Decrement  #  of  buffer  sought 

D208 

30 

1C 

BM1 

$D226 

Found  enough  buffers? 

D20A 

20 

8E 

D2 

JSR 

$D28E 

NO-look  for  a  free  buffer 

D20D 

10 

08 

BPL 

$D217 

Find  a  buffer? 

D20F3 

20 

5A 

D2 

JSR 

$D25A 

NO-free  up  a  buffer 

D212 

A9 

70 

LDA 

#$70 

Error  message 

D214 

4C 

C8 

CI 

JMP 

$C1C8 

'70  No  Channel'  displayed 

D2171 

99 

A7 

00 

STA 

$00A7,Y 

Buffer  number  in  map  table 

D21A 

C6 

6F 

DEC 

$6F 

Decrement  #  of  buffers  sought 

D21C 

30 

08 

BMI 

$D226 

Found  enough  buffers? 

D21E 

20 

8E 

D2 

JSR 

$D28E 

NO-look  for  next  buffer 

D221 

30 

EC 

BMI 

$D20F 

Found  a  free  buffer? 

D223 

99 

AE 

00 

STA 

$00AE,Y 

YES— Save  buffer  number 

D2262 

60 

RTS 

Return  from  this  subroutine 

[C8AA/D1E6/D30B/D331/D4DE/D4E5/DACE/DB29/DB5F/E695/EE01] 


Free  up  channel 
D227     A5  83 
D229    C9  OF 
D22B    DO  01 
D22D  60 
D22E1  A6  83 
D230     BD  2B  02 
D233     C9  FF 
D235     F0  22 
D237     29  3F 
D239     85  82 


LDA  $83  Get  current  2ndary  address  and 

CMP  #$0F  compare  w/value  f /command  channel 

BNE  $D22E  Is  channel  15  active? 

RTS  YES-return  from  this  subroutine 

LDX  $83  Get  current  secondary  adddress 

LDA  $022B,X  Determine  proper  channel  status  & 

CMP  #$FF  test  against 'channel  unused' value 

BEQ  $D259  Is  channel  free? 

AND  #$3F  NC— calculate  channel  number 

STA  $82  and  save  it 
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D23B 

A9 

FF 

LDA 

#$FF 

Store  flag  value :' channel  & 

D23D 

9D 

2B 

02 

STA 

$022B,X 

buffer  free'  in  channel  table 

D240 

A6 

82 

LDX 

$82 

Get  current  channel  number  again 

D242 

A9 

00 

LDA 

#$00 

Clear  channel  status 

D244 

95 

F2 

STA 

$F2,X 

flags  in  channel  table 

D24  6 

20 

5A 

D2 

JSR 

$D25A 

Free  up  appropriate  buffer 

D249 

A6 

82 

LDX 

$82 

Current  channel  number 

D24B 

A9 

01 

LDA 

#$01 

Bitflag  for  'channel  free' 

D24D1 

CA 

DEX 

Decrement  channel  number 

D24E 

30 

03 

BMI 

$D253 

Is  flag  in  correct  position? 

D250 

OA 

ASL 

A 

NO-Give  bitflag  in  bit  pattern 

D251 

DO 

FA 

BNE 

$D24D 

Jump  to  $D24D 

D2531 

OD 

56 

02 

ORA 

$0256 

Write  flag  in  bit  list  of 

D256 

8D 

56 

02 

STA 

$0256 

the  laid-out  channel 

D2591 

60 

RTS 

Return  from  this  subroutine 

[D20F/D246] 

Free  up  buffer  and  corresponding  channel 


D25A 

A6 

82 

LDX 

$82 

Get  current  channel  and 

D25C 

B5 

A7 

LDA 

$A7,X 

determine  buffer  number  for  same 

D25E 

C9 

FF 

CMP 

#$FF 

Compare  with  'buffer  free' 

UZ  oU 

r  U 

r\  q 
Ui> 

BEQ 

$D2  6B 

Is  buffer  assigned  that  channel? 

D262 

48 

PHA 

YES— save  buffer  number  and 

D2  63 

A9 

FF 

LDA 

#$FF 

free  up  buffer 

D2  65 

95 

A7 

STA 

$A7,X 

buffer  table 

D267 

68 

PLA 

Get  buffer  number  again 

D2  68 

20 

F3 

D2 

JSR 

$D2F3 

Free  up  bufer  layout 

D26B1 

A6 

82 

LDX 

$82 

Number  of  current  channel 

D26D 

B5 

AE 

LDA 

$AE,X 

Get  corresponding  buffer  #  and 

D26F 

C9 

FF 

CMP 

#$FF 

test  against  'not  occupied'  value 

D271 

F0 

09 

BEQ 

$D27C 

Is  the  buffer  free? 

D273 

48 

PHA 

NO— Save  buffer  number 

D274 

A9 

FF 

LDA 

#$FF 

Free  up  buffer  of 

D276 

95 

AE 

STA 

$AE,X 

channel  and  get 

D278 

68 

PLA 

and  current  buffer  number  again 

D279 

20 

F3 

D2 

JSR 

$D2F3 

Buffer  in  availability  map  freed 

D27C1 

A6 

82 

LDX 

$82 

Get  number  of  current  channel 

D27E 

B5 

CD 

LDA 

$CD,X 

and  corresponding  buffer  number 

D280 

C9 

FF 

CMP 

#$FF 

Compare  w/ 'buffer  inactive'  value 

D282 

F0 

09 

BEQ 

$D28D 

Is  the  buffer  used? 

D284 

48 

PHA 

YES— Save  buffer  number  and 

D285 

A9 

FF 

LDA 

#$FF 

buffer  assignment  to  current 

D287 

95 

CD 

STA 

$CD,X 

channel  cleared 

D289 

68 

PLA 

Get  buffer  number  again  and 

D28A 

20 

F3 

D2 

JSR 

$D2F3 

free  buffer  in  availability  table 

D28D1 

60 

RTS 

Return  from  this  subroutine 
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[CF29/CF83/DO19/D20A/D21E/DC79/DD0E/F0E7] 
Look  for  buffer 


D28E 

98 

TYA 

Get  buffer  number 

D28F 

48 

PHA 

and  save  it 

D290 

AO 

01 

LDY 

#$01 

Look  for  a 

D292 

20 

BA 

D2 

JSR 

$D2BA 

free  buffer 

D295 

10 

OC 

BPL 

$D2A3 

Found  a  buffer? 

D297 

88 

DEY 

NO— set  buffer  #  to  next  buffer 

D298 

20 

BA 

D2 

JSR 

$D2BA 

look  for  another  buffer 

D29B 

10 

06 

BPL 

$D2A3 

Found  a  buffer? 

D29D 

20 

39 

D3 

JSR 

$D339 

NO-get  free  buffer 

D2A0 

AA 

TAX 

Save  buffer  number 

D2A1 

30 

13 

BMI 

$D2B6 

Has  a  buffer  been  found? 

D2A33 

B5 

00 

LDA 

$00, X 

YES-get  last  buffer  jobcode 

D2A5 

30 

FC 

BMI 

$D2A3 

Is  job  already  running? 

D2A7 

A5 

7F 

LDA 

$7F 

YES-get  current  drive  number 

D2A9 

95 

00 

STA 

$00, X 

Send  return  message  of  job  loop 

D2AB 

9D 

5B 

02 

STA 

$025B,X 

and  clear  memory  for  last  jobcode 

D2AE 

8A 

TXA 

Get  buffer  number  and  double  it 

D2AF 

OA 

It 

A 

(tue    lOliUWXIlvj    aUUicsaea  ate 

D2B0 

A8 

TAY 

passed  in  two-byte  values) 

D2B1 

A9 

02 

LDA 

#$02 

Buffr  ptr  fr  start-of-data  range 

D2B3 

99 

99 

00 

STA 

$0099, Y 

Set  buffer  pointer  anew 

D2B61 

68 

PLA 

Re-establish  buffer  number  and 

D2B7 

A8 

TAY 

save  it 

D2B8 

8A 

TXA 

Set  numer  of  buffers  found 

D2B9 

60 

RTS 

Return  from  this  subroutine 

[D292/D298] 

Look 

for 

free  buffer 

D2BA 

A2 

07 

LDX 

#$07 

Number  of  bits  per  byte  -1 ( 'BPL' ) 

D2BC1 

B9 

4F 

02 

LDA 

$024F, Y 

Get  bit  pattern  of  map  table 

D2BF 

3D 

E9 

EF 

AND 

$EFE9,X 

Get  corresponding  buffer  bit 

D2C2 

F0 

04 

BEQ 

$D2C8 

Is  the  buffer  covered? 

D2C4 

CA 

DEX 

YES— set  buffer  countr  to  next  bit 

D2C5 

10 

F5 

BPL 

$D2BC 

Are  all  bits  already  tested? 

D2C7 

60 

RTS 

YES-Return  from  this  subroutine 

D2C81 

B9 

4F 

02 

LDA 

$024F,Y 

Get  original  byte  of  map  table  s 

D2CB 

5D 

E9 

EF 

EOR 

$EFE9,X 

corresponding  buffer  bit;  set  bit 

D2CE 

99 

4F 

02 

STA 

$024F, Y 

and  rewrite  byte 

D2D1 

8A 

TXA 

Get  number  of  buffers  found 
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D2D2  88 
D2D3     30  03 
D2D5  18 
D2D6     69  08 
D2D81  AA 
D2D92  60 


DEY 

BMI  $D2D8 
CLC 

ADC  #$08 

TAX 

RTS 


Pointer  to  next  catalog  byte 

Both  of  them  used? 

NO-calculate 

new  buffer  number 

Save  buffer  #  as  channel  number 

Return  from  this  subroutine 


[E2BC/E2BF] 

Free 

up  all 

inactive 

buffers 

D2DA 

A6 

82 

LDX 

$82 

D2DC 

B5 

A7 

LDA 

$A7,X 

D2DE 

30 

09 

BMI 

$D2E9 

D2E0 

8A 

TXA 

D2E1 

18 

CLC 

D2E2 

69 

07 

ADC 

#$07 

D2E4 

AA 

TAX 

D2E5 

B5 

A7 

LDA 

$A7,X 

D2E7 

10 

F0 

BPL 

$D2D9 

D2E91 

C9 

FF 

CMP 

#$FF 

D2EB 

F0 

EC 

BEQ 

$D2D9 

D2ED 

48 

PHA 

D2EE 

A9 

FF 

LDA 

#$FF 

D2F0 

95 

A7 

STA 

$A7,X 

D2F2 

68 

PLA 

Get  number  of  current  channel  and 

determine  matching  buffer 

Is  buffer  occupied? 

YES-get  another  channel  number  & 

compute  for  a  second 

buffer; 

save  it 

Get  matching  buffer  number 

Is  buffer  occupied? 

NO— test  against'buf fer  free'value 

Is  the  buffer  identified  free? 

NO— Save  buffer  number 

Set'buffer  free'value  for  current 

channel 

call  another  buffer  number 


[D268/D279/D28A] 

Free 

up  buffer  index 

D2F3 

29 

OF 

AND 

#$0F 

Reserve  and 

D2F5 

A8 

TAY 

save 

D2F6 

C8 

INY 

buffer  numbers 

D2F7 

A2 

10 

LDX 

#$10 

Total  number  of  buffers 

D2F91 

6E 

50  02 

ROR 

$0250 

Displace  buffer  index 

D2FC 

6E 

4F  02 

ROR 

$024F 

by  one  bit 

D2FF 

88 

DEY 

Set  pointer  to  next  buffer 

D300 

DO 

01 

BNE 

$D303 

Any  buffers  left 

D302 

18 

CLC 

NO-set  'buffer  free'  flag 

D3031 

CA 

DEX 

Re-establish  bit  index  again 

D304 

10 

F3 

BPL 

$D2F9 

Are  bits  back  in  output  position? 

D306 

60 

RTS 

YES-Return  from  this  subroutine 

ROM -168 


Abacus  Software 


1571  Internals 


[84D8/8C64/EE36] 
Close  channels  0-14 


D307 

A9 

OE 

t  ns 

D309 

85 

83 

STA 

ft  Q  "3 

D30B1 

20 

27 

D2 

JSR 

$UZZ  1 

and  close  channel 

D30E 

C6 

83 

DEC 

ton 
9OO 

C  /""\  4™         a/mi  *\  ^  A  Vs       "I-  /-\        r*\  A  vt"         ^  n  A         Y\  A  1  3E 

bet  counter  to  next  cn annex  if 

D310 

DO 

F9 

BNE 

ft  n  "5  ATI 

nil   CllaiillcXS    axx.csciuy    l-iuscu  . 

D312 

60 

RTS 

YF^ — rpfnrn   ■from  thi*0.  subroutine 

[D045/EC55/EC66] 

Free  up  all 

channels 

drive 

D313 

A9 

OE 

LDA 

PV>  a  n  n»  1    nnmhpr   cmi  nt  PY" 
\si  laJ  1  lie  j.    11  um.ee  j.  v^.>^iiiil»ci. 

D315 

85 

83 

STA 

$83 

Save  and  set  channel  number  of 

D3171 

A6 

83 

LDX 

/— 11  rronf    cppnnH^rv    adfirp  9.  s 

D319 

BD 

2B 

02 

LDA 

*?  U  £.  £.0  t  A 

Pot"    mrrp QnonH i  t"kt  QtfltllP. 

D31C 

C9 

FF 

CMP 

r.  i-oct"   ^rra i  n <?t  1  channe*!    frss' value 

D31E 

F0 

14 

BEQ 

9U  OJrl 

X  a    t  liaJlllcx    ullu^icu  • 

D320 

29 

3F 

AND 

YT7c_jyp+-   f>ii  e  rhannpl    number  and 

D322 

85 

82 

STA 

too 
9  O  Z 

O  LULC     X  L. 

D324 

20 

93 

DF 

JSR 

D327 

AA 

TAX 

s  ave  it 

D328 

BD 

5B 

02 

LDA 

$025B,X 

Get  jobcode  for  buffer  &  isolate 

D32B 

29 

01 

AND 

#$01 

the  instructions  from  it 

D32D 

C5 

7F 

CMP 

$7F 

Tet^t"  Aerainst  current  drive  value 

D32F 

DO 

03 

BNE 

rhannpl   bp!  oner  to  another  drive? 

D331 

20 

27 

D2 

JSR 

MO  ITroo  ohsnnpl 

D3342 

C6 

83 

DEC 

<S  Q  "5 

O      1  r\  t*             f /\r     /^K  3  n  n  q  1      An     n  V"t~  (""rlfll 
LUUIlLel     1UI     tliaJlllCX     Ul  1     11AL  *_iIil_L 

D336 

10 

DF 

BPL 

9LJ0 1  / 

fll  1     ^hannpl  a    11  eprl1' 
nil    ujlallllcj.d  UocU. 

D338 

60 

RTS 

VF C— Dot- n  yti    f  r^m   "hViHc    Qiihrniit"  i  np 
X  LO — I\e  UliXIl     XLUIII    I.I1X5     aUUL  UUI.111C 

[D29D] 

Get  a 

free  buffer 

D339 

A5 

6F 

LDA 

6  CP 

9  or 

taet  cnannex  nurnoer 

D33B 

48 

PHA 

aliu    bavc  Xt 

D33C 

AO 

00 

LDY 

tr  9UU 

oct    uJIHI    ir    L*lltx    LU    alall  value 

D33E1 

B6 

FA 

LDX 

ftpi  Y 
9r  n>  I 

flat*    niiffihor    nf  r-ri^irinp^T. 
•ot;  u    11  uiiiiJcx    t>  x.    villainies  -x. 

D340 

B5 

A7 

LDA 

yft-     niimKpr        -p    V»ii  f  f  py    acQn  rrnpri 
be  L.    11  UITlXyeX.    Ul    JJUllci  aooiyilcu 

D342 

10 

04 

BPL 

9UofiO 

Te    Knf  ■f^Y*   Kai  r\ n    11  epH^ 

xs  Du x ici  ucxiiy    uscu . 

D344 

C9 

FF 

CMP 

#$FF 

NU — test  acramst  dux t ex  tree  vaxue 

D346 

DO 

16 

BNE 

$D35E 

Is  buffer  free? 

D3482 

8A 

TXA 

YES— Get  another  channel  number 

D349 

18 

CLC 

and  convert  for  access  to 

D34A 

69 

07 

ADC 

#$07 

a  second  buffer; 

D34C 

AA 

TAX 

save  it 

D34D 

B5 

A7 

LDA 

$A7,X 

Get  corresponding  buffer 

D34F 

10 

04 

BPL 

$D355 

Is  buffer  occupied? 
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D351 

C9 

FF 

CMP 

#$FF 

NO— test  against  val:'buffer  free' 

D353 

DO 

09 

BNE 

$D35E 

Is  buffer  free? 

D3552 

C8 

INY 

YES— choose  next  channel 

D356 

CO 

05 

CPY 

#$05 

Compare  with  max.  #  of  channels 

D358 

90 

E4 

BCC 

$D33E 

Are  all  channels  worked  with? 

D35A 

A2 

FF 

LDX 

#$FF 

Error  flag  value 

D35C 

DO 

1C 

BNE 

$D37A 

Jump  to  $D37A 

D35E2 

86 

6F 

STX 

$6F 

Set  channel  number; 

D360 

29 

3F 

AND 

#$3F 

use  to  determine  buffer  number 

D362 

AA 

TAX 

and  save  it 

D3631 

B5 

00 

LDA 

$00, X 

Get  jobcode  of  buffer 

D365 

30 

FC 

BMI 

$D363 

Is  job  still  in  process? 

D367 

C9 

02 

CMP 

#$02 

NO— test  return  msg  against  'OK' 

D369 

90 

08 

BCC 

$D373 

Job  run  error-free? 

D36B 

A6 

6F 

LDX 

$6F 

NO— get  channel  number  and  test 

D36D 

EO 

07 

CPX 

#$07 

for  maximum  number 

D36F 

90 

D7 

BCC 

$D348 

Channel  number  in  allowed  range? 

D371 

BO 

E2 

BCS 

$D355 

NO-Jump  to  $D355 

D3731 

A4 

6F 

LDY 

$6F 

Get  channel  number  and  label 

D375 

A9 

FF 

LDA 

#$FF 

buffer  in  buffer  assignment  table 

D377 

99 

A7 

00 

STA 

$00A7 , Y 

as  free 

D37A1 

68 

PLA 

Get  originl  channel  number  again 

D37B 

85 

6F 

STA 

$6F 

and  reset  it 

D37D 

8A 

TXA 

Give  buffer  number 

D37E 

60 

RTS 

Return  from  this  subroutine 

[D1E9] 

Seek  and 

lay 

out 

free  channel 

D37F 

AO 

00 

LDY 

#$00 

Initialize  pointers 

D38i 

A9 

01 

LDA 

#$01 

Bit  of  channel  to  be  tested 

D3831 

2C 

56 

02 

BIT 

$0256 

Test  bit  in  channel  catalog 

D386 

DO 

09 

BNE 

$D391 

Is  channel  free? 

D388 

C8 

INY 

NO— pick  next  channel 

D389 

OA 

ASL 

A 

Bit  positioned  for  next  channel 

D38A 

DO 

F7 

BNE 

$D383 

Have  all  channels  been  checked? 

D38C 

A9 

70 

LDA 

#$70 

YES— error  message 

D38E 

4C 

C8 

CI 

JMP 

$C1C8 

'70  No  Channel'  displayed 

D3911 

49 

T71171 

r  r 

EOR 

#$FF 

Invert  'channel  free'  bitflag  and 

D393 

2D 

56 

02 

AND 

$0256 

focus  down  into  flag  byte 

D396 

8D 

56 

02 

STA 

$0256 

Lay  out  channel 

D399 

98 

TYA 

Get  channel  number 

D39A 

60 

RTS 

Return  from  this  subroutine 
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[CA39] 

Get  byte  from  channel 


D39B 

20 

EB 

DO 

JSR 

$D0EB 

Open  read  channel 

D39E 

20 

00 

CI 

JSR 

$C100 

Switch  on  LED  of  current  drive 

D3A1 

20 

AA 

D3 

JSR 

$D3AA 

Read  out  byte  over  channel 

D3A4 

A6 

82 

LDX 

$82 

Determine  channel  number 

D3A6 

BD 

3E 

02 

LDA 

$023E,X 

and  get  corresponding  data  byt 

D3A9 

60 

RTS 

Return  from  this  subroutine 

[82BD/D3A1/E992] 
Read  byte  from  file 


D3AA 

A6 

82 

LDX 

$82 

Get  channel  number 

D3AC 

20 

25 

Dl 

JSR 

$D125 

Determine  filet ype 

D3AF 

DO 

03 

BNE 

$D3B4 

Is  it  a  relative  file? 

D3B1 

4C 

20 

El 

JMP 

$E120 

YES-REL  file  routine 

D3B41 

A5 

83 

LDA 

$83 

Get  secondary  address  and 

D3B6 

C9 

OF 

CMP 

#$0F 

compare  with  command  channel  (15) 

D3B8 

F0 

5A 

BEQ 

$D414 

Command  channel  produced? 

D3BA 

B5 

F2 

LDA 

$F2,X 

NO— Get    channel  status  and 

D3BC 

29 

08 

AND 

#$08 

test  for  EOI  flag 

D3BE 

DO 

13 

BNE 

$D3D3 

Was  last  byte  transferred? 

D3C0 

20 

25 

Dl 

JSR 

$D125 

YES— Determine  filetype  &  compare 

D3C3 

C9 

07 

CMP 

#$07 

with  value  for  direct  access 

D3C5 

DO 

07 

BNE 

$D3CE 

Direct  access  Chanel  been  opened? 

D3C7 

A9 

89 

LDA 

#$89 

YES-Send  direct  access  flag  value 

D3C9 

95 

F2 

STA 

$F2,X 

as  channel  status 

D3CB 

4C 

DE 

D3 

JMP 

$D3DE 

Get  byte  from  buffer 

D3CE1 

A9 

00 

LDA 

#$00 

Flag  value  for  EOI  encountered; 

D3D0 

95 

F2 

STA 

$F2,X 

close  channel  and  clear  map 

D3D2 

60 

RTS 

Return  from  this  subroutine 

D3D31 

A5 

83 

LDA 

$83 

Get  current  secondary  address 

D3D5 

F0 

32 

BEQ 

$D409 

Should  it  be  loaded  as  a  program? 

D3D7 

20 

25 

Dl 

JSR 

$D125 

NO-Determine  filetype  and 

D3DA 

C9 

04 

CMP 

#$04 

compare  w/value  for  relative  file 

D3DC 

90 

22 

BCC 

$D400 

Identical? 

[D3CB/FFB0] 

Get  byte  from  relative  file 


D3DE 

20 

2F 

Dl 

JSR 

$D12F 

YES— Set  buffer  &  channel  numbers 

D3E1 

B5 

99 

LDA 

$99, X 

Get  current  buffr  pointer , compare 

D3E3 

D9 

44 

02 

CMP 

$0244, Y 

with  the  end-of-buf fer 

D3E6 

DO 

04 

BNE 

$D3EC 

End  of  effective  range  reached 

D3E8 

A9 

00 

LDA 

#$00 

Buffer  pointer  (low-byte) 

D3EA 

95 

99 

STA 

$99, X 

reset 
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[CD59/D3E6] 

Get  next  byte  from  file 

D3EC    F6  99  INC  $99, X  Set  buffer  pointer  to  next  byte 


[CDCA/CFD5] 

Get  currrent  byte  from  file 


D3EE 

Al 

99 

LDA 

($99,X) 

Read  byte  from  buffer  and  save 

D3F0 

99 

3E 

02 

STA 

$023E,Y 

as  byte  to  be  given 

D3F3 

B5 

99 

LDA 

$99, X 

Get  buffer  pointer  and 

D3F5 

D9 

44 

02 

CMP 

$0244, Y 

test  against  end  value 

D3F8 

DO 

05 

BNE 

$D3FF 

Reached  end  of  the  file  range? 

u or  a 

a  q 

t  ni 

if  Sol 

iisb— laxe  nag  value  tor  "last 

D3FC 

99 

F2 

00 

STA 

$00F2, Y 

char  into  channel  status  table 

D3FF1 

60 

RTS 

Return  from  this  subroutine 

D4002 

20 

56 

Dl 

JSR 

$D156 

Get  character  from  buffer 

D4031 

A6 

82 

LDX 

$82 

Get  number  of  current  channel  and 

D405 

9D 

3E 

02 

STA 

$023E,X 

allocate  databyte  for  output 

D408 

60 

RTS 

Return  from  this  subroutine 

D4091 

AD 

54 

02 

LDA 

$0254 

Get  flag  for  directory 

D40C 

F0 

F2 

BEQ 

$D400 

Is  directory  in  buffer? 

D40E 

20 

67 

ED 

JSR 

$ED67 

YES-Get  byte  from  directory 

D411 

4C 

03 

D4 

JMP 

SD403 

and  take  it  over 

[D3B8 

] 

Read  error  channel 

D414 

20 

E8 

D4 

JSR 

$D4E8 

Get  current  buffer  pointer 

D417 

C9 

D4 

CMP 

#$D4 

Compare  w/  error  buffer  value 

D419 

DO 

18 

BNE 

$D433 

Is    the  pointer  properly  set? 

D41B 

A5 

95 

LDA 

$95 

YES— Get  pointer  hi-byte  and  test 

D41D 

C9 

02 

CMP 

#$02 

against  correct  value 

D41F 

DO 

12 

BNE 

$D433 

Is  pointr  directd  at  error  buffr? 

D421 

A9 

0D 

LDA 

#$0D 

YES— • Return • 

D423 

85 

85 

STA 

$85 

Output  to  next  byte 

D425 

20 

23 

CI 

JSR 

$C123 

Reset  error  flag 

D428 

A9 

00 

LDA 

#$00 

Number  of  'OK'  message 

D42A 

20 

CI 

E6 

JSR 

$E6C1 

Write  message  to  error  buffer 

D42D 

C6 

A5 

DEC 

$A5 

Pointer  to  errormessge  buffr  (lo) 

D42F 

A9 

80 

LDA 

#$80 

■Read'  flag 

D431 

DO 

12 

BNE 

$D445 

Jump  to  $D445 

D4332 

20 

37 

Dl 

JSR 

$D137 

Get  byte  from  error  buffer  and 

D436 

85 

85 

STA 

$85 

take  as  byte  to  be  output 

D438 

DO 

09 

BNE 

$D443 

Reached  the  end? 
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[CB48] 

Set  pointer  for  error  message  pointer ($02D4) 

D43A    A9  D4  LDA  #$D4  YES-Set  buffer  pointer  for 

D43C    20  C8  D4      JSR  $D4C8  error  buffer 

D43F    A9  02  LDA  #$02  Set  pointer 

D441     95  9A  STA  $9A,X  high -byte 


[CB42/D438] 

Initialize  error  message  channel 

D443    A9  88  LDA  #$88  Set  'read'  and  'EOI' 

D4451  85  F7  STA  $F7  flags  for  channel  5 

D447    A5  85  LDA  $85  Get  byte  and  take  up 

D449     8D  43  02  STA  $0243  output 

D44C     60  RTS  Return  from  this  subroutine 


[C629/C8B0/EE07] 

Read 

next 

sector 

Of  e 

i  file 

D44D 

20 

93  DF 

JSR 

$DF93 

Determine  buffer  number 

D450 

OA 

ASL 

A 

and  double  it 

D451 

AA 

TAX 

(pointr  table  works  w/2-byte  #'s) 

D452 

A9 

00 

LDA 

#$00 

Starting  position  in  buffer 

D454 

95 

99 

STA 

$99, X 

taken  up  in  buffr  pointr  (lobyte) 

D456 

Al 

99 

LDA 

($99,X) 

Get  track  number  of  next  sector 

D458 

F0 

05 

BEQ 

$D45F 

No  more  sectors  on  hand 

D45A 

D6 

99 

DEC 

$99, X 

Set  buffer  pointer  to  end 

D45C 

4C 

56  Dl 

JMP 

$D156 

Read  next  sector 

D45F1 

60 

RTS 

Return  from  this  subroutine 

[CD39/D720/DBC9] 

Take  jobcode  for  'read  sector' 

D4  60    A9  80  LDA  #$80  Set  jobcode  for  'read  sector' 

D462     DO  02  BNE  $D466  Jump  to  $D4  66 


[CD8C/CD9D/D790/D93A/D98A/EEAC] 
Take  up  jobcode  for  'write  sector' 


D464 

A9 

90 

LDA 

#$90 

Set 

jobcode    for  'write  sector 

[D462] 

Execute 

jobcode 

(in  A) 

D466 

05 

7F 

ORA 

$7F 

Set 

current  drive  #  in  jobcode 

D468 

8D 

4D  02 

STA 

$024D 

and 

save  jobcode 

D46B 

A5 

F9 

LDA 

$F9 

Get 

number  of  current  buffer 

D46D 

20 

D3  D6 

JSR 

$D6D3 

Take  track  and  sector  numbers 

D470 

A6 

F9 

LDX 

$F9 

Get 

number  of  current  buffer 

D472 

4C 

93  D5 

JMP 

$D593 

Set 

jobcode  and  execute  job 

ROM- 173 


Abacus  Software 


1571  Internals 


[C5C1/C60E/C880/CA0C/EDEB] 

Open  sequential  file  for  reading 

D475    A9  01  LDA  #$01  Filetype  identifier  for  SEQ  file 


[E7D5] 

Open  file  for  reading 


D477 

8D 

4A 

02 

STA 

$024A 

determined 

D47A 

A9 

11 

LDA 

#$11 

#  of  internal  read  channels  (17) 

D47C 

85 

83 

STA 

$83 

taken  as  current  2ndary  address 

D47E 

20 

46 

DC 

JSR 

$DC46 

Buffer  laid  out  &  sector  read  in 

D481 

A9 

02 

LDA 

#$02 

Buffer  pointer  set  to  start  of 

D483 

4C 

C8 

D4 

JMP 

$D4C8 

file  range 

[C9B0] 

Open  file  for 

writing 

D486 

A9 

12 

LDA 

#$12 

Set  #  of  internal  write  channel 

D488 

85 

83 

STA 

$83 

(18)   set  as  secondary  address 

D48A 

4C 

DA 

DC 

JMP 

$DCDA 

Open  channel  &  laydown  new  sectoi 

[D730] 

Write 

next  directory 

sector 

D48D 

20 

3B 

DE 

JSR 

$DE3B 

Get  current  track/sector  numbers 

D4  90 

A9 

01 

LDA 

#$01 

Number  of  sectors  to 

D4  92 

85 

6F 

STA 

$6F 

be  laid  down 

D494 

A5 

69 

LDA 

$69 

Get  normal  sector  set  and 

D496 

48 

PHA 

retain 

D4  97 

A9 

03 

LDA 

#$03 

Declare  sector  set  for  directory 

D499 

85 

69 

STA 

$69 

at  3 

D4  9B 

20 

2D 

Fl 

JSR 

$F12D 

Transmit  next  free  sector 

D4  9E 

68 

PLA 

Re-direct  normal 

D49F 

85 

69 

STA 

$69 

sector  set 

D4A1 

A9 

00 

LDA 

#$00 

Set  buffer  pointer  to 

D4A3 

20 

C8 

D4 

JSR 

$D4C8 

start-of -buffer 

D4A6 

A5 

80 

LDA 

$80 

Write  track  #  of  new  sector  in 

D4A8 

20 

Fl 

CF 

JSR 

$CFF1 

current  directory  sector 

D4AB 

A5 

81 

LDA 

$81 

Take  #  of  next  sector  in  current 

D4AD 

20 

Fl 

CF 

JSR 

$CFF1 

sector  as  string 

D4B0 

20 

C7 

DO 

JSR 

$D0C7 

Write  current  sector  to  diskette 

D4B3 

20 

99 

D5 

JSR 

$D599 

Wait  until  job  loop  is  ready 

D4B6 

A9 

00 

LDA 

#$00 

Reset  buffer  pointer 

D4B8 

20 

C8 

D4 

JSR 

$D4C8 

to  beginning 

D4BB1 

20 

Fl 

CF 

JSR 

$CFF1 

Write  fillbytes  into  buffer 

D4BE 

DO 

FB 

BNE 

$D4BB 

Entire  buffer  cleared? 

D4C0 

20 

Fl 

CF 

JSR 

$CFF1 

YES-Identif ier  for  last  sector 

D4C3 

A9 

FF 

LDA 

#$FF 

Write  number  of  good  sector  byte 

D4C5 

4C 

Fl 

CF 

JMP 

$CFF1 

in  sector 
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[C614/C896/CA14/CA32/CAB4/CD47/CD83/D16F/D1AB/D1C3/D43C/D4  83/D4A3/D4B8] 
[D740/D914/DA42/DB92/DCA0/DD6F/DE97/DFFA/E04F/E2  7A/E47  6/E4A3/E4C0/E4DB] 
[ECA9/EDF0] 

Set  buffer  pointer  to  given  position 


D4C8 

85 

6F 

STA 

$6F 

Save  new  position 

D4CA 

20 

93  DF 

JSR 

$DF93 

Get  current  buffer  number  and 

D4CD 

OA 

ASL 

A 

double  it  (pointer  table  takes 

D4CE 

AA 

TAX 

2-byte  pointers) 

D4CF 

B5 

9A 

LDA 

$9A,X 

Get  and  set 

D4D1 

85 

95 

STA 

$95 

buffer  pointer  (high-byte) 

D4D3 

A5 

6F 

LDA 

$6F 

Get  low-byte  of  buffer  pointer 

D4D5 

95 

99 

STA 

$99, X 

Save  and  set  as  current 

D4D7 

85 

94 

STA 

$94 

buffer  pointer 

D4D9 

60 

RTS 

Return  from  this  subroutine 

[C1BA/DAD1/E653] 

Close  internal  channels 


D4DA 

A9 

11 

LDA 

#$11 

Set  #  of  internal  read  channel 

D4DC 

85 

83 

STA 

$83 

(17)  as  current  secondary  address 

D4DE 

20 

27 

D2 

JSR 

$D227 

Close  channel 

D4E1 

A9 

12 

LDA 

#$12 

Store  number  of  internal  write 

D4E3 

85 

83 

STA 

$83 

channel (18) as  current  2ndry  adrs; 

D4E5 

4C 

27 

D2 

JMP 

$D227 

Close  channel 

[C5D7/C6E5/CD76/CFDC/D1C8/D414/DB6A/DB76/DFEA/E182/E1A9] 
Determine  current  buffer  pointer 

D4E8     20  93  DF      JSR  $DF93  Get  number  of  current  buffer 


[DF49] 

Set  buffer  pointer  (buffer  number 


D4EB 

OA 

ASL 

A 

D4EC 

AA 

TAX 

D4ED 

B5 

9A 

LDA 

$9A,X 

D4EF 

85 

95 

STA 

$95 

D4F1 

B5 

99 

LDA 

$99, X 

D4F3 

85 

94 

STA 

$94 

D4F5 

60 

RTS 

in  A) 

Double  it  (pointer  table  deals 

with  2-byte  numbers) 

Get  pointer  at  position  in  buffer 

and  take  on  as 

current 

buffer  pointer 

Return  from  this  subroutine 


[C5D1/CF39/CF40/E00E/E39F] 

Read  any  byte  from  buffer 

(A  must  contain  position  of  the  character) 


D4F6 

85 

71 

STA 

$71 

Save  buffer  position 

D4F8 

20 

93  DF 

JSR 

$DF93 

Determine  current  buffer  number 

D4FB 

AA 

TAX 

and  save  it 

D4FC 

BD 

E0  FE 

LDA 

$FEE0,X 

Get  hi-byte  of  appropriate  buffer 

D4FF 

85 

72 

STA 

$72 

address  and  set  it 

D501 

AO 

00 

LDY 

#$00 

Initialize  buffer  pointer  and 
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D503    Bl  71  LDA  ($71), Y  get  byte  from  buffer  position 

D505     60  RTS  Return  from  this  subroutine 


[D0D0/DE32] 

Test  track  and  sector  numbers  for  validity,  then  set  jobcode 


D506 

BD 

5B 

02 

LDA 

$025B,X 

Get  jobcode  declared  by  buffr  and 

D509 

29 

01 

AND 

#$01 

determine  drive  number  from  it 

D50B 

0D 

4D 

02 

ORA 

$024D 

Concentrate  on  markiing 

D50E1 

48 

PHA 

current  jobcode 

D50F 

86 

F9 

STX 

$F9 

Hold  on  to  buffer  number 

D511 

8A 

TXA 

and  double 

D512 

OA 

ASL 

A 

the  number  (the  next  table  uses 

D513 

AA 

TAX 

2-byte  values) 

D514 

B5 

07 

LDA 

$07, X 

Get  sector  number  of  this  job 

D516 

8D 

4D 

02 

STA 

$024D 

and  save  it 

D519 

B5 

06 

LDA 

$06, X 

determine  track  #  of  this  job 

D51B 

F0 

2D 

BEQ 

$D54A 

No  track  chosen  (0)? 

D51D 

CD 

AC 

02 

CMP 

$02AC 

NO— and  test  for  largest  track  +1 

D520 

BO 

28 

BCS 

$D54A 

Is  this  track  #  in  allowed  range? 

D522 

AA 

TAX 

YES— Save  track  number 

D523 

68 

PLA 

and  call  jobcode  back; 

D524 

48 

PHA 

save  it  again 

D525 

29 

F0 

AND 

#$F0 

Isolate  jobcode 

D527 

C9 

90 

CMP 

#$90 

and  compare  with  code  for  'write' 

D52  9 

DO 

4F 

BNE 

$D57A 

Identical? 

D52B 

68 

PLA 

YES— get  entire  jobcode  again  and 

D52C 

48 

PHA 

save  it  immediately 

D52D 

4A 

LSR 

A 

Bitflag  for  drive  number  in  Carry 

D52E 

BO 

05 

BCS 

$D535 

Drive  1  chosen? 

D530 

AD 

01 

01 

LDA 

$0101 

NO— Format  identifier  for  drive  0 

D533 

90 

03 

BCC 

$D538 

Jump  to  $D538 

D5351 

AD 

02 

01 

LDA 

$0102 

Get  format  identifier  for  drive  1 

D5381 

F0 

05 

BEQ 

$D53F 

Jump  to  $D53F 

D53A 

CD 

D5 

FE 

CMP 

$FED5 

Compare  with  identifier  'A' 

D53D 

DO 

33 

BNE 

$D572 

Right  format? 

D53F1 

8A 

TXA 

YES— get  track  number  again 

D540 

20 

4B 

F2 

JSR 

$F24B 

Get  largest  appropriate  sector  # 

D543 

CD 

4D 

02 

CMP 

$024D 

Compare  with  sector  number  of  job 

D54  6 

F0 

02 

BEQ 

$D54A 

Reached  the  maximum  number? 

D548 

BO 

30 

BCS 

$D57A 

NO— is  sector  number  legal? 

D54A3 

20 

52 

D5 

JSR 

$D552 

NO— get  track  and  sector  of  job 

D54D4 

A9 

66 

LDA 

#$66 

again,  and  display  error  message 

D54F 

4C 

45 

E6 

JMP 

$E645 

■66  Illegal  Track  or  Sector' 
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[D54A/D572] 

Get  track/sector  of  current  job  from  job  memory 


D552 

A5 

F9 

LDA 

$F9 

Get  #  of  current  job  (buffer) 

D554 

OA 

ASL 

A 

and  double 

D555 

AA 

TAX 

(table  works  w/  2-byte  values) 

D556 

B5 

06 

LDA 

$06, X 

Get  job  track  #  from  table  and 

D558 

85 

80 

STA 

$80 

save  as  current  track 

D55A 

B5 

07 

LDA 

$07, X 

Get  job  sector  number  &  store  as 

D55C 

85 

81 

STA 

$81 

current  sector  number 

D55E 

60 

RTS 

Return  from  this  subroutine 

[CE08/EDE5] 

Check  current  track/sector  for  allowable  range 


D55F 

A5 

80 

LDA 

$80 

Get  current  track  number 

D561 

F0 

EA 

BEQ 

$D54D 

No  track  set? 

D563 

CD 

AC  02 

CMP 

$02AC 

NO— Test  for  max.  allowable  tracks 

D566 

B0 

E5 

BCS 

$D54D 

Allowable  track  number  (<  max.)? 

D568 

20 

4B  F2 

JSR 

$F24B 

YES— Get  #  of  sectors  in  track,  & 

D56B 

C5 

81 

CMP 

$81 

compare  with  current  sector  # 

D56D 

F0 

DE 

BEQ 

$D54D 

Is  the  sector  number  1  too  high? 

D56F 

90 

DC 

BCC 

$D54D 

NO— Is  the  number  still  larger? 

D571 

60 

RTS 

NO— Return  from  this  subroutine 

[D53D/EE53] 

Display  error  message  for  false  format 

D572     20  52  D5      JSR  $D552  Get  track/sector  of  job  and 

D575    A9  73            LDA  #$73  display  error  message  — 

D577     4C  45  E6      JMP  $E645  '73  CBM  DOS  V3.0  1571' 


[D529/D548] 

Send  job  for  current  buffer  to  job  loop 

(NB:Routine  cannot  jump  with  'JSR',  since  the  stack  must  contain 
the  jobcode  and  not  the  jump  address) 


D57A 

A6 

F9 

LDX 

$F9 

Get  the  #  of  the  current  buffer 

D57C 

68 

PLA 

get  jobcode  to  be  set  and 

D57D 

8D 

4D 

02 

STA 

$024D 

store  as  current  jobcode 

D580 

95 

00 

STA 

$00, X 

Give  to  job  loop 

D582 

9D 

5B 

02 

STA 

$025B,X 

Assign  to  current  buffer 

D585 

60 

RTS 

Return  from  this  subroutine 

[A5D1/A66E/A693/A6BA] 

Send  jobcode  for  read  to  job  loop  and  wait  until  execution 
D586    A9  80            LDA  #$80  Jobcode  for  'read  sector' 

D588     DO  02  BNE  $D58C  Jump  to  $D58C 
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[A5  94/A5A4/A5C5] 

Send  jobcode  for  write  to  job  loop,  and  wait  until  execution 
D58A    A9  90  LDA  #$90  Jobcode  for  'write  sector' 


[A6E5/A70E/D588] 

Execute  job  for  current  drive  (jobcode  in  A) 

D58C    05  7F  ORA  $7F  Take    current  drive  in  jobcode 

D58E    A6  F9  LDX  $F9  Get  number  of  proper  buffers 


[DC3D] 

Execute    jobcode  (jobcode  in  A,  buffer  number  in  X) 

D590    8D  4D  02      STA  $024D  and  save  current  jobcode 


[D4  72/DF42]     Execute  job 

D593    AD  4D  02      LDA  $024D  Get  jobcode;  test  track/sector 

D596    20  0E  D5      JSR  $D50E  parameters;  and  wait  in  job  loop. 


[869A/C8BE/CAAC/CAC6/D0A1/D4B3/DB9F/DC95/DD6A/DD84/DDF9/E068/E430/E4A9] 
[E4F0/CF73/E05A] 

Wait  until  job  is  executed  and  error  message    is  prepared 


D599 

20 

A6 

D5 

JSR 

$D5A6 

Control  job  run 

D59C 

B0 

FB 

BCS 

$D599 

Is  job  finished  yet? 

D59E 

48 

PHA 

YES— Save  return  message  of  job 

D59F 

A9 

00 

LDA 

#$00 

Clear  'Error  from  job' 

D5A1 

8D 

98 

02 

STA 

$0298 

flag  and 

D5A4 

68 

PLA 

get  return  message  again 

D5A5 

60 

RTS 

Return  from  this  subroutine 

[D599] 

Supervise  current  job  run 

D5A6 

B5 

00 

LDA 

$00, X 

Get  jobcode  from  job  memory 

D5A8 

30 

1A 

BMI 

$D5C4 

Is  job  still  in  process? 

D5AA 

C9 

02 

CMP 

#$02 

NO— Test  for  'OK'  message 

D5AC 

90 

14 

BCC 

$D5C2 

Job  properly  run? 

D5AE 

C9 

08 

CMP 

#$08 

NO-Compare  w/  'Write  Protect  On' 

D5B0 

F0 

08 

BEQ 

$D5BA 

Is    write-protect  notch  covered? 

D5B2 

C9 

0B 

CMP 

#$0B 

NO-Compare  w/  'Disk  ID  Mismatch' 

D5B4 

F0 

04 

BEQ 

$D5BA 

Find  a  false  ID? 

D5B6 

C9 

OF 

CMP 

#$0F 

NO-Compare  w/  'Drive  Not  Ready' 

D5B8 

DO 

OC 

BNE 

$D5C6 

Unformatted  diskette  in  drive? 

D5BA2 

2C 

98 

02 

BIT 

$0298 

YES— Test  error  flag 

D5BD 

30 

03 

BMI 

$D5C2 

Has  an  error  been  displayed? 

D5BF 

4C 

3F 

D6 

JMP 

$D63F 

NO— Display  error  message 

D5C22 

18 

CLC 

Set  flag  for  'Job  finished' 

D5C3 

60 

RTS 

Return  from  this  subroutine 

D5C41 

38 

SEC 

Set  fig  f/'Job  not  finished  yet' 

D5C5 

60 

RTS 

Return  from  this  subroutine 
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[D5B8/D644 :A6CE] 

Set  head 

to 

next 

track  after  a 

read  error;  search  some  more 

D5C6 

98 

TYA 

Reserve  Y-Register 

D5C7 

48 

PHA 

(routine  will  change  it) 

D5C8 

A5 

7F 

LDA 

$7F 

Get  current  drive    number  and 

D5CA 

48 

PHA 

save  it 

D5CB 

BD 

5B 

.02 

LDA 

$025B,X 

Get  buffer-declared  jobcode  and 

D5CE 

29 

01 

AND 

#$01 

determine  drive  used 

D5D0 

85 

7F 

STA 

$7F 

Store  #  of  current  drive  and  get 

D5D2 

A8 

TAY 

bitmask  stated  by  drive. 

D5D3 

B9 

CA 

FE 

LDA 

$FECA,Y 

to  switch  drive  LED  on 

D5D6 

8D 

6D 

02 

STA 

$026D 

Save  LED-blink  mask 

D5D9 

20 

A6 

D6 

JSR 

$D6A6 

($6A)  Execute  read-search 

D5DC 

C9 

02 

CMP 

#$02 

Compare  return  message  w/  'OK' 

D5DE 

BO 

03 

BCS 

$D5E3 

Last  job  run  without  errors? 

D5E0 

4C 

6D 

D6 

JMP 

$D66D 

YES-End  of  routine 

D5E31 

BD 

5B 

02 

LDA 

$025B,X 

Get  current  jobcode 

D5E6 

29 

FO 

AND 

#$F0 

Isolate  and  save 

D5E8 

48 

PHA 

command  bits 

D5E9 

C9 

90 

CMP 

#$90 

Compare  with  value  for  'write' 

D5EB 

DO 

07 

BNE 

$D5F4 

Has  a  sector  been  written? 

D5ED 

A5 

7F 

LDA 

$7F 

YES— Get  drive  number  and  set 

D5EF 

09 

B8 

ORA 

#$B8 

jobcode  for  'look  for  sector' 

D5F1 

9D 

5B 

02 

STA 

$025B,X 

Assign  jobcode  to  current  buffer 

D5F41 

24 

6A 

BIT 

$6A 

Fig  fr' don't  look  for  next  track' 

D5F6 

70 

39 

BVS 

$D631 

Is  flag  set? 

D5F8 

A9 

00 

LDA 

#$00 

NO— Initialize  pointers: 

D5FA 

8D 

99 

02 

STA 

$0299 

Position  pointer  to  next  track 

D5FD 

8D 

9A 

02 

STA 

$02  9A 

Pointer  to  searchphase— next  track 

D6001 

AC 

99 

02 

LDY 

$0299 

Determine  positioning  phase 

D603 

AD 

9A 

02 

LDA 

$029A 

Get  currnt  cntrl  byt  f/head  move- 

D606 

38 

SEC 

ment  and  sent  value  for  return  to 

D607 

F9 

DB 

FE 

SBC 

$FEDB, Y 

outside  position,  then 

D60A 

8D 

9A 

02 

STA 

$02  9A 

positioning  next  to  the  track 

D60D 

B9 

DB 

FE 

LDA 

$FEDB, Y 

Get  cntrl  byt  for  l/2step  to  next 

D610 

20 

Al 

FF 

JSR 

$FFA1 

track;  execute  head  movement 

D613 

EE 

99 

02 

INC 

$0299 

Set  counter  to  next  control  byte 

D616 

20 

A6 

D6 

JSR 

$D6A6 

($6A)  Execute  read  search 

D619 

C9 

02 

CMP 

#$02 

Test  retrn  messge  aganst 'OK' value 

D61B 

90 

08 

BCC 

$D625 

Any  errors? 

D61D 

AC 

99 

02 

LDY 

$0299 

Get  counter  for  positioning  phase 

D620 

B9 

DB 

FE 

LDA 

$FEDB, Y 

Get  next  positioning  command 

D623 

DO 

DB 

BNE 

$D600 

End  of  search  string? 

D6251 

AD 

9A 

02 

LDA 

$02  9A 

YES— Get  cntrl  value  for  return  to 

D628 

20 

A6 

FF 

JSR 

$FFA6 

track  &  look  for  a  reading  again 

D62B 

B5 

00 

LDA 

$00, X 

Get  return  value  of  job    loop  and 

D62D 

C9 

02 

CMP 

#$02 

compare  with  'Ok' 
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D62F 

90 

2B 

BCC 

$D65C 

Read-search  go  well? 

D6311 

24 

6A 

BIT 

$6A 

NO-Check  flag: 'head  at  track  0' 

D633 

10 

OF 

BPL 

$D644 

Re-adjust  head  (Bump)  ? 

D6351 

68 

PLA 

NO— Get  command  code, test  against 

D636 

C9 

90 

CMP 

#$90 

'write  sector'  job 

D638 

DO 

05 

BNE 

$D63F 

Identical? 

D63A 

05 

7F 

ORA 

$7F 

YES— Set  drive  #,  assign  current 

D63C 

9D 

5B 

02 

STA 

$025B,X 

buffer  a  jobcode 

D63F3 

B5 

00 

LDA 

$00, X 

Get  return  message  of  job 

D641 

20 

OA 

E6 

JSR 

$E60A 

and  prep  error  message 

D6442 

68 

PLA 

Get  proper  command  code 

D645 

2C 

98 

02 

BIT 

$0298 

Test  error  flag 

D648 

30 

23 

BMI 

$D66D 

Found  an  error  already? 

D64A 

48 

PHA 

NO— Save  jobcode  and 

D64B 

A9 

CO 

LDA 

#$C0 

set  jobcode  for  'head  re- 

D64D 

05 

7F 

ORA 

$7F 

adjusted'   (Bump)   for  current 

D64F 

95 

00 

STA 

$00, X 

drive 

D651 

20 

B6 

9F 

JSR 

$9FB6 

Start  job  loop  and  execute  job 

D654 

EA 

NOP 

[via  modification  of  1541  ROM] 

D655 

20 

A6 

D6 

JSR 

$D6A6 

Job  executed  ($6A)  times 

D658 

C9 

02 

CMP 

#$02 

Compare  return  message  w/  'OK' 

D65A 

BO 

D9 

BCS 

$D635 

Was  this  last  run  correctly? 

D65C1 

68 

PLA 

YES— Get  jobcode  again  and  compare 

D65D 

C9 

90 

CMP 

#$90 

with  value  for  'write' 

D65F 

DO 

oc 

BNE 

$D66D 

Should  sector  have  been  written? 

D661 

05 

7F 

ORA 

$7F 

YES— Set  drive  number  and  assign 

D663 

9D 

5B 

02 

STA 

$025B,X 

jobcode  to  current  buffer 

D666 

20 

A6 

D6 

JSR 

$D6A6 

($6A)  times— look  for  sector  write 

D669 

C9 

02 

CMP 

#$02 

Compare  return  mess,  w/  'OK' 

D66B 

BO 

D2 

BCS 

$D63F 

Successful  write? 

D66D3 

68 

PLA 

YES— Prep  current  drive  number 

D66E 

85 

7F 

STA 

$7F 

again 

D670 

68 

PLA 

Reset 

D671 

A8 

TAY 

Y-register 

D672 

B5 

00 

LDA 

$00, X 

Get  return  message  for  job  loop 

D674 

18 

CLC 

Set  flag  for  'Job  finished' 

D675 

60 

RTS 

Return  from  this  subroutine 

[FF99/FF9C] 

Accumulator  instructs  head  to  move  in  half-steps 
(Bit7  =1  step  in;  Bit7  =0  step  out) 


D676 

D678 

D67A 

D67C1 

D67E 

D681 


C9  00 
F0  18 
30  0C 
AO  01 
20  93  D6 
38 


CMP  #$00 
BEQ  $D692 
BMI  $D688 
LDY  #$01 
JSR  $D693 
SEC 


Test  contents  of  accumulator 
Step  value  given? 
YES— Should  head  move  out? 
Value  for  half-step  in 
Reset  head 

and  decrement  counter 
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D682 

E9 

01 

SBC 

#$01 

for  number  of  half-steps 

D684 

DO 

F6 

BNE 

$D67C 

All  steps  taken? 

D686 

FO 

OA 

BEQ 

$D692 

YES-Jump  to  $D692 

D6882 

AO 

FF 

LDY 

#$FF 

Value  for  half-step  out 

D68A 

20 

93  D6 

JSR 

$D693 

Set  head  again  and 

D68D 

18 

CLC 

increment  counter  for 

D68E 

69 

01 

ADC 

#$01 

number  of  half-steps 

D690 

DO 

F6 

BNE 

$D688 

All  steps  covered? 

D6922 

60 

RTS 

YES-Return  from  this  subroutine 

[D67E/D68A] 

Head  movement  values  given  to  job  loop 


D693 

48 

PHA 

Reserve  accumulator 

D694 

98 

TYA 

Get  value  for  head  positioning 

D695 

A4 

7F 

LDY 

$7F 

Get  current  drive  number  and 

D697 

99 

FE 

02 

STA 

$02FE, Y 

send  control  byte  to  job  loop 

D69A1 

D9 

FE 

02 

CMP 

$02FE,Y 

Get  value  again 

D69D 

F0 

FB 

BEQ 

$D69A 

Was  value  taken  and  head  set? 

D69F 

A9 

00 

LDA 

#$00 

YES— clear 

D6A1 

99 

FE 

02 

STA 

$02FE,Y 

job  register 

D6A4 

68 

PLA 

Re-establish  accumulator 

D6A5 

60 

RTS 

Return  from  this  subroutine 

0 [D5D9/D616/D655/D666] 

Jobcode  executes  until  successful,  or  when  counter  in  $6A=0 


D6A6 

A5 

6A 

LDA 

$6A 

Get  search  number  and  limit 

D6A8 

29 

3F 

AND 

#$3F 

to  a  range  of  0  to  63 

D6AA 

A8 

TAY 

Set  counter 

D6AB1 

AD 

6D 

02 

LDA 

$026D 

Switch  on  LED  mask 

D6AE 

4D 

00 

1C 

EOR 

$1C00 

LED  bit  in  drive  control  register 

D6B1 

8D 

00 

1C 

STA 

$1C00 

switches  (LED  flickers) 

D6B4 

BD 

5B 

02 

LDA 

$025B,X 

Get  jobcode  of  current  buffer  and 

D6B7 

95 

00 

STA 

$00,X 

send  to  job  loop 

D6B9 

20 

B6 

9E 

JSR 

$9EB6 

Start  job  loop  and  execute  job 

D6BC 

EA 

NOP 

[1541  ROM  modification] 

D6BD 

C9 

02 

CMP 

#$02 

Compare  return  message  w/  'OK' 

D6BF 

90 

03 

BCC 

$D6C4 

Is  job  completed? 

D6C1 

88 

DEY 

NO-decrement  trial  number 

D6C2 

DO 

E7 

BNE 

$D6AB 

Any  more  trials  to  be  done? 

D6C41 

48 

PHA 

NO— Save  job  number 

D6C5 

AD 

6D 

02 

LDA 

$02  6D 

Get  ' LED  on '  mask  and 

D6C8 

0D 

00 

1C 

ORA 

$1C00 

concentrate  remaining  bits  of 

D6CB 

8D 

00 

1C 

STA 

$1C00 

contrl  registers;  set  registers 

D6CE 

68 

PLA 

Get  return  message  from  job  loop 

D6CF 

60 

RTS 

Return  from  this  subroutine 
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[D09B/D0BA/D186/DCE2/DE7F/E3B9/E3CB] 

Send  current  track  &  sector  number  to  job  loop 

D6D0     20  93  DF      JSR  $DF93  Get  current  buffer  number 


[A414/C8D7/D03A/D4  6D/DC8F/DD2E/DF3D] 

Send  track  &  sector  to  job  loop  (buffer  in  A) 


D6D3 

OA 

ASL 

A 

and  double  (job  table  works 

D6D4 

A8 

TAY 

with  2-byte  values) 

D6D5 

A5 

80 

LDA 

$80 

Send  number  of  current  track 

D6D7 

99 

06 

00 

STA 

$0006, Y 

to  job  loop 

D6DA 

A5 

81 

LDA 

$81 

Store  current  sector  number 

D6DC 

99 

07 

00 

STA 

$0007 , Y 

for  job  loop 

D6DF 

A5 

7F 

LDA 

$7F 

Get  current  drive  number 

D6E1 

OA 

ASL 

A 

double  and 

D6E2 

AA 

TAX 

save 

D6E3 

60 

RTS 

Return  from  this  subroutine 

[C9B3/D9EC] 

Close  file  entry  in 

directory 

D6E4 

A5 

83 

LDA 

$83 

Get  and  retain  current  secondary 

D6E6 

48 

PHA 

address 

D6E7 

A5 

82 

LDA 

$82 

Get  and  retain  current  channel 

D6E9 

48 

PHA 

number 

D6EA 

A5 

81 

LDA 

$81 

Get  and  retain  current  sector 

D6EC 

48 

PHA 

number 

D6ED 

A5 

80 

LDA 

$80 

Get  and  retain  current  track 

D6EF 

48 

PHA 

number 

D6F0 

A9 

11 

LDA 

#$11 

Set  #  of  internal  read  channel 

D6F2 

85 

83 

STA 

$83 

(17)  as  current  channel  number 

D6F4 

20 

3B 

DE 

JSR 

$DE3B 

Determine  track  &  sector  number 

D6F7 

AD 

4A 

02 

LDA 

$024A 

Get  and  hold  on  to 

D6FA 

48 

PHA 

current  filetype 

D6FB 

A5 

E2 

LDA 

$E2 

Produce  drive  number  of  new  file 

D6FD 

29 

01 

AND 

#$01 

and  establish 

D6FF 

85 

7F 

STA 

$7F 

as  current  drive  number 

D701 

A6 

F9 

LDX 

$F9 

Current  buffer  number 

D703 

5D 

5B 

02 

EOR 

$025B,X 

Get  drive  #  belonging  to  jobcode 

D706 

4A 

LSR 

A 

and  compare  with  actual  drive  no. 

D707 

90 

OC 

BCC 

$D715 

Are  the  two  drives  identical? 

D709 

A2 

01 

LDX 

#$01 

Set  pointer  to 

D70B 

8E 

92 

02 

STX 

$0292 

applicable  entry 

D70E 

20 

AC 

C5 

JSR 

$C5AC 

Look  for  next  free  entry 

D711 

F0 

ID 

BEQ 

$D730 

All  of  them  covered? 

D713 

DO 

28 

BNE 

$D73D 

NO— Write  entry  to  directory 

D7151 

AD 

91 

02 

LDA 

$0291 

Get  number  of  directory  sector 

D718 

F0 

OC 

BEQ 

$D726 

Sector  number  set? 

D71A 

C5 

81 

CMP 

$81 

YES— compare  with  current  sector  # 

D71C 

F0 

IF 

BEQ 

$D73D 

Identical? 
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D71E 

85 

81 

STA 

SRI 
901 

w*j  wt  numDer  ot  current  sector 

D720 

20 

fin 

na 

<J  on 

-? U *i  OU 

neau  secLor   into  ourrer 

D723 

4C 

3D 

D7 

■TMP 

yU  /  JU 

rut  out  new  entry 

n79fil 

AQ 

01 

t  na 

-ffy  UI 

Set  pointer  to  appropriate 

D728 

8D 

92 

02 

STA 

iiic  ciiLiy 

D72B 

20 

17 

C6 

<Pfi1  1 

uci  xast  sector  or  airectory 

D72E 

DO 

0D 

BNE 

yU  t  O  U 

niiy  en t x  ics   still  x  ree  . 

D730^ 

20 

8D 

D4 

JSR 

$D48D 

JLi  V-'    J_l  Ct  jr     UUL     lien     UlicOlfUi  j  dcULUi 

D733 

A5 

81 

LDA 

$81 

Vats  t    aeul  UI    11  UIuXJcl    all  CI    set  ' 

D735 

8D 

91 

02 

STA 

y  v«£  "?x 

x.  11  puxn  tex    x  fx   uii  cciory   sec  t  ox  s 

U  /  JO 

AQ 

n  9 

t  na 

ffy  u.£ 

Initialize  buffer  pointer  to 

Q9 

31n 

yuz  y«£ 

start  of  file  range 

An 

Q9 

'0  9 

JjUA 

Current  pointer  position 

n7do 

90 

\rf  o 

TOD 

yUfiUO 

Set  buffer  pointer 

D743 

68 

PLA 

D744 

8D 

4A 

09 

*3TA 

<H9^A 
v  V<-.  in 

ana  set  acjaxn 

D747 

C9 

04 

PMP 

v*»L  llr 

ff  y  U  4 

Lompaic  w/   relative  nie  vaxue 

D74  9 

DO 

02 

BNE 

$D74D 

Xo    xt    a    icXaLJ.vc    lllc . 

D7  4B 

09 

RO 

YES~~File  recocfnized  as  closed 

20 

Fl 

CF 

"J  OA 

*$PFF1 

Hiii  Lex   x  xxe  t ype  xnt  o  uxr ect ox  y 

D750 

68 

PLA 

Vatst    Llau\    it    vl    tile?    X  XX  <b  t  Lllc 

D751 

80 

80 

02 

STA 

$0280 

D754 

20 

Fl 

CF 

JSR 

SPFFI 

1TVXJ-L.C     U  L  al_fw     11  UIlUJc  L     XII  t  U  UlicCUUiy 

D757 

68 

PLA 

u    fr    ui    xxxot    dcwLUi    ui    tiie  iiic 

D758 

8D 

85 

02 

STA 

$0285 

anH    c a i  t" 
aiiu.   oavc  xt 

D75B 

90 

Fl 

C  J. 

PF 

<J  OA 

y  v*-r  r  x 

nlllc    aetrtUX     11  UIUJjcI     LU    UllculUI  y 

D75E 

20 

93 

DF 

U  OA 

uci   ir   ui   uiieuLUiy   jjuiici  aiiu 

D761 

A8 

TAY 

note  it 

D762 

AD 

7A 

02 

LDA 

$027A 

r  ei>^ii    aiiu   oa  vc    iiicii ante   ^jkjoiJ-  liuii 

D765 

AA 

TAX 

in    i  nrtnt1    nil  f  f  ot 

XII     XIl^/U  t     UU1  161 

D766 

A9 

10 

LDA 

#$10 

T.onrrt  iS    o F    tM  1  ona mp 

D768 

20 

6E 

C6 

JSR 

Wt "i  t" o   ■f  ^  1  enaffiP  t"  n   Hi  T*fiot* nru 

n7fiR 

AO 

1  0 

T.TW 

LiU  1 

Dii  F F <ST   r>A i  nTOT      r\   onH— of  —  f  i  1  on  amp 
Diiiici    poxntex    i.u   ciiu  ui  xxxeiiaiiic 

n7  fin 

AQ 

on 

T.nA 

vvxxtts   tsiu^Jty   uy lc»    iu  uuxxcx  1111 

l/  »  or 

Q1 

*5TA 
o  in 

\  y  3*1 )  f  X 

out"    "Ft  1  c»  n  a  mo 
uul    x  x  x  laiitc 

D7  71 

U  Ml 

TMV 
X  LM  X 

Rn  Ff  ot    nrtl  n  t"  o  t    to    novT    V»\/T  o 

r>7  7? 

1  R 

PPY 

tr  y  XO 

PomTiJJTO    nrtl  nTOT    wi  tH    o n H    ira  1  no 

Vill  A 

U  1  1  1 

Qf) 

FQ 

RPP 

Sn7  fiF 
yu  1  or 

Fnt  i  ro  bnf  fpr   fill  ed*> 

An 
nu 

4  A 

09 

X  £iO  oc  t    cuilciiL    x  iieiypc 

m  7  q 

Od 

1r  y  *J  4 

Pomoa  to    u/wal no    f to!  ar  ^ f i  lp 
Cuuipaic    w /  value    iui    LciciLivc  iiic 

n7  7  A 

no 

X  O 

RNF 

y  U  I 

To     a     TolaTl  170     file    Vl0 1  HO*    OT*iO  n  Pfj  *? 

m7n 

U  l  ID 

A  A 

i  n 
1U 

t  nv 
XjUx 

ffyXU 

xcio — Duller  poxnter  to  enu  ox  name 

D77F 

AD 

59 

02 

LDA 

$0259 

Get  track  #  of  first  side-sector 

D782 

91 

94 

STA 

<$94) ,Y 

and  write  into  entry 

D784 

C8 

I  NY 

Buffer  pointer  to  next  position 

D785 

AD 

5A 

02 

LDA 

$025A 

Get  sector  #,  write  in  directory 

D788 

91 

94 

STA 

($94), Y 

buffer 
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D78A 

C8 

INY 

Buffer  pointer  to  next  byte 

D78B 

AD 

58 

02 

LDA 

$0258 

Get  record  lengtth  and.  write 

D78E 

91 

94 

STA 

($94) ,  Y 

in  directory 

D7901 

20 

64 

D4 

JSR 

tf;  r\  A  £  A 

D7  93 

68 

T3  T  A 
r  Ut\ 

Pot-    rnrrort-    phannpl     &    and  *5f*t 

D7  94 

85 

82 

STA 

inn 

acrain 

D796 

AA 

TAX 

baVe  cnannex  numoezr 

D7  97 

68 

PLA 

^nrronf     0r\fis»TT\7    flHrlT"^QQ  ViAf*V 

D798 

85 

83 

STA 

$83 

and  set  it 

D7  9A 

AD 

91 

02 

LDA 

uct   (.lauK    fl"    Ui.    J-  .lavs   *=ii  ^  J-  jf  an<~* 

D7  9D 

Do 

o  1A 

s>UO 

eairp  •  nut' 
save/  puL 

D79F 

9D 

60 

02 

STA 

9  vJ<£  oU  ,  A 

xn  Duller 

D7A2 

AD 

92 

02 

LDA 

D7A5 

85 

DD 

STA 

$DD 

and  save  it 

D7A7 

9D 

66 

02 

STA 

$0266, X 

Put  number  into  directory  buffer 

D7AA 

AD 

4A 

02 

LDA 

$024A 

Get  filetype  and 

D7AD 

85 

E7 

STA 

$E7 

save  it 

D7AF 

A5 

7F 

LDA 

$7F 

Get  current  drive  number  and 

D7B1 

85 

E2 

STA 

$E2 

include  in  file  entry 

D7B3 

60 

RTS 

Return  from  this  subroutine 

[BF5D/C15D] 

Take  on  OPEN  command  with  secondary  addresses  0-14 


D7B4 

A5 

83 

LDA 

$83 

Get  current  secondary  address 

D7B6 

8D 

4C 

02 

STA 

$024C 

and  save  it 

D7B9 

20 

B3 

C2 

JSR 

$C2B3 

Set  pointer  for  command  string 

D7BC 

8E 

2A 

02 

STX 

$022A 

Clear  command  channel  number  (0) 

D7BF 

AE 

00 

02 

LDX 

$0200 

Get  first  char  in  input  buffer 

D7C2 

AD 

4C 

02 

LDA 

$024C 

Get  secondary  address 

D7C5 

DO 

2C 

BNE 

$D7F3 

Is  there  a  LOAD  command? 

D7C7 

E0 

2A 

CPX 

#$2A 

YES-Check  for  '*'  as  1st  char 

D7C9 

DO 

28 

BNE 

$D7F3 

First  file  entry  loaded? 

D7CB 

A5 

7E 

LDA 

$7E 

YES— Get  last  track  number 

D7CD 

F0 

4D 

BEQ 

$D81C 

Is  number  set? 

D7CF 

85 

80 

STA 

$80 

YES— Take  this  as  current  spur 

D7D1 

AD 

6E 

02 

LDA 

$026E 

Get  number  of  last  active  drive 

D7D4 

85 

7F 

STA 

$7F 

and  set  as  current  drive 

D7D6 

85 

E2 

STA 

$E2 

Organize  drive  for  file 

D7D8 

A9 

02 

LDA 

#$02 

Flag  for  wildcard 

D7DA 

85 

E7 

STA 

$E7 

set 

D7DC 

AD 

6F 

02 

LDA 

$026F 

Get  last  sector  worked  with  and 

D7DF 

85 

81 

STA 

$81 

convey  as  curreent  sector  number 

D7E1 

20 

00 

CI 

JSR 

$C100 

LED  on  current  drive  goes  'on' 

D7E4 

20 

46 

DC 

JSR 

$DC46 

Open  up  buffer  to  read  sector 

D7E7 

A9 

04 

LDA 

#$04 

Bitflag  for  program  file 

D7E9 

05 

7F 

ORA 

$7F 

Get  current  drive  with 

D7EB1 

A6 

82 

LDX 

$82 

number  of  current  channel  and 
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D7ED 

99 

EC 

00 

STA 

$00EC, Y 

put  filetype  flag  iinto  channel 

D7F0 

4C 

94 

CI 

JMP 

$C194 

Prepare  'OK'  message 

D7F3* 

EO 

24 

CPX 

#$24 

Compare  character  with  ' $  1 

D7F5 

DO 

IE 

BNE 

$D815 

Should  directory  be  loaded? 

D7F7 

AD 

4C 

02 

LDA 

$024C 

YES— Get  secondary  address  again 

D7FA 

DO 

03 

BNE 

$D7FF 

Load  directory  as  a  program? 

D7FC 

4C 

55 

DA 

JMP 

$DA55 

YES— Convrt  directry  to  BASIC  prg. 

D7Fpl 

20 

Dl 

CI 

JSR 

$C1D1 

Set  counter  f /parameters  in  comnd 

D802 

AD 

85 

FE 

LDA 

$FE85 

Save  number  of  directory  track 

D805 

85 

80 

STA 

$80 

as  current  track 

D807 

A9 

00 

LDA 

#$00 

Set  start  sector  of  directory  as 

D809 

85 

81 

STA 

$81 

current  track  number 

D80B 

20 

46 

DC 

JSR 

$DC46 

Open  buffer  —  read    in  sector 

D80E 

A5 

7F 

LDA 

$7F 

Get  current  drive  number 

D810 

09 

02 

ORA 

#$02 

Set  SEQ  file  flag  S  save  directry 

D812 

4C 

EB 

D7 

JMP 

$D7EB 

as  a  file;  end 

D8151 

EO 

23 

CPX 

#$23 

Compare  char,  with  '#' 

D817 

DO 

12 

BNE 

$D82B 

Direct  access  channel  open? 

D819 

4C 

84 

CB 

JMP 

$CB84 

YES— Open  direct  access  file 

D81C1 

A9 

02 

LDA 

#$02 

Set  identifier  for 

D81E 

8D 

96 

02 

STA 

$0296 

PRG  file 

D821 

A9 

00 

LDA 

#$00 

Establish  drive  0  as 

D823 

85 

7F 

STA 

$7F 

current  drive 

D825 

8D 

8E 

02 

STA 

$028E 

Set  pointer  to  last  drive 

D828 

20 

42 

DO 

JSR 

$D042 

Read  BAM  into  buffer 

D82B1 

20 

E5 

CI 

JSR 

$C1E5 

Look  for  command  string  after  ' : ' 

D82E 

DO 

04 

BNE 

$D834 

Found  it? 

D830 

A2 

00 

LDX 

#$00 

YES— Startposition  of  parameters 

D832 

FO 

OC 

BEQ 

$D840 

Jump  to  5D840 

D8341 

8A 

TXA 

Get  number  of  parameters 

D835 

FO 

05 

BEQ 

$D83C 

Parameters  separated  by  comma? 

D837 

A9 

30 

LDA 

#$30 

YES— Display 

D839 

4C 

C8 

CI 

JMP 

$C1C8 

■30  Syntax  Error'  error  message 

D83C1 

88 

DEY 

Set  pointer  to  ' : ' 

D83D 

FO 

01 

BEQ 

$D840 

Reached  start-of-parameters? 

D83F 

88 

DEY 

Set  pointer  to  drive  assignment  S 

D840^ 

8C 

7A 

02 

STY 

$027A 

save  position 

D843 

A9 

8D 

LDA 

#$8D 

Look  for  end-of-command  string 

D845 

20 

68 

C2 

JSR 

$C268 

identifier  in  input  buffer 

D848 

E8 

INX 

Number  of  parameters  found;  save 

D849 

8E 

78 

02 

STX 

$0278 

those  separated  by  commas 

D84C 

20 

12 

C3 

JSR 

$C312 

Get  drive  number;  note  it 

D84F 

20 

CA 

C3 

JSR 

$C3CA 

Check  drive  number 

D852 

20 

9D 

C4 

JSR 

$C4  9D 

Look  for  file  entry  in  directory 

D855 

A2 

00 

LDX 

#$00 

Clear  pointer: 

D857 

8E 

58 

02 

STX 

$0258 

Length  of  a  record 

D85A 

8E 

97 

02 

STX 

$0297 

File  operating  mode 
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D85D 

8E 

4A 

02 

STX 

$024A 

D860 

E8 

INX 

D861 

EC 

77 

02 

CPX 

$0277 

D864 

BO 

10 

BCS 

$D876 

D866 

20 

09 

DA 

JSR 

$DA09 

D869 

E8 

INX 

D86A 

EC 

77 

02 

CPX 

$0277 

D86D 

BO 

07 

BCS 

$D876 

D86F 

CO 

04 

CPY 

#$04 

D871 

FO 

3E 

BEQ 

$D8B1 

D873 

20 

09 

DA 

JSR 

$DA09 

D8764 

AE 

4C 

02 

LDX 

$024C 

D879 

86 

83 

STX 

$83 

D87B 

EO 

02 

CPX 

#$02 

D87D 

BO 

12 

BCS 

$D891 

D87F 

8E 

97 

02 

STX 

$0297 

D882 

A9 

40 

LDA 

#$40 

D884 

8D 

F9 

02 

STA 

$02F9 

D887 

AD 

4A 

02 

LDA 

$024A 

D88A 

DO 

IB 

BNE 

$D8A7 

D88C 

A9 

02 

LDA 

#$02 

D88E 

8D 

4A 

02 

STA 

$024A 

D8911 

AD 

4A 

02 

LDA 

$024A 

D894 

DO 

11 

BNE 

$D8A7 

D896 

A5 

E7 

LDA 

$E7 

D898 

29 

07 

AND 

#$07 

D89A 

8D 

4A 

02 

STA 

$024A 

D89D 

AD 

80 

02 

LDA 

$0280 

D8A0 

DO 

05 

BNE 

$D8A7 

D8A2 

A9 

01 

LDA 

#$01 

D8A4 

8D 

4A 

02 

STA 

$024A 

D8A7^ 

AD 

97 

02 

LDA 

$0297 

D8AA 

C9 

01 

CMP 

#$01 

D8AC 

FO 

18 

BEQ 

$D8C6 

D8AE 

4C 

40 

D9 

JMP 

$D940 

D8B11 

BC 

7A 

02 

LDY 

$027A,X 

D8B4 

B9 

00 

02 

LDA 

$0200, Y 

D8B7 

8D 

58 

02 

STA 

$0258 

D8BA 

AD 

80 

02 

LDA 

$0280 

D8BD 

DO 

B7 

BNE 

$D876 

D8BF 

A9 

01 

LDA 

#$01 

D8C1 

8D 

97 

02 

STA 

$0297 

D8C4 

DO 

BO 

BNE 

$D876 

D8C61 

A5 

E7 

LDA 

$E7 

D8C8 

29 

80 

AND 

#$80 

D8CA 

AA 

TAX 

D8CB 

DO 

14 

BNE 

$D8E1 

Filetype 

Check    next  filename 

against  number  of  names  on  hand 

Any  other  tasks  on  hand? 

YES— Get  filetype  &  operating  mode 

Check  pointer  to  next  filename 

against  number  of  names  onhand 

Are  all  names  worked  out? 

NO— Test  filetype  againse  REL 

Is  there  a  relative  file  here? 

Get  filetype  and  operating  mode 

Repeat  2ndary  address  and  set  it 

up;  compare  with  start-of- 

file  channel 

Is  channel  number  >2? 

NO— Set  read/write  flag 

Flag  for  'illegal  BAM' 

set 

Get  current  filetype 

Is  there  a  DEL  file? 

YES-Set  PRG  file  identifier 

as  current  filetype 

Get  filetype 

Is  'DEL'  type  given? 

YES— Get  filetype  frm  chanel  table 

Divide  up  and 

save 

Track  #  of  sector  frm  buffertable 

Ts  track  set? 

NO-Set  ' SEQ'  identifier 

in  current  filetype 

Repeat  file  operation  mode  and 

compare  with  value  for  'write* 

Should  file  be  written? 

NO— Open  read  channel 

Get  pointer  to  next  parameter  and 

get  &  store  parameter  characters 

from  input  buffer 

Test  fileblock  track 

Is  task  set? 

YES-Set  read/write 

flag 

Jump  to  $D876 
Get  filetype 

Get  'wildcard  onhand'  flag  and 
save 

Is  there  a  wildcard  in  filename? 
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D8CD 

A9 

20 

LDA 

#$20 

NO- Test  'File  not  closed'  flag 

D8CF 

24 

E7 

BIT 

$E7 

for  first  name 

D8D1 

FO 

06 

BEQ 

$D8D9 

Has  file  been  closed? 

D8D3 

20 

B6 

C8 

JSR 

$C8B6 

NO-Clear  fileentry  from  directory 

D8D6 

4C 

E3 

D9 

JMP 

$D9E3 

Set  up  for  new  file 

D8D91 

AD 

80 

02 

LDA 

$0280 

Track  number  of  first  file  block 

D8DC 

DO 

03 

BNE 

$D8E1 

Is  file  covered? 

D8DE 

4C 

E3 

D9 

JMP 

$D9E3 

NO— Set  up  for  new  file 

D8E1^ 

AD 

00 

02 

LDA 

$0200 

Get  1st  char  from  input  buffer  & 

D8E4 

C9 

40 

CMP 

#$40 

compare  w/Replace  command  ( ' @ ' ) 

D8E6 

FO 

OD 

BEQ 

$D8F5 

Overwrite  pre-existing  file? 

D8E8 

8A 

TXA 

Get  wildcard  flag  again 

D8E9 

DO 

05 

BNE 

$D8F0 

Is  file  on  hand? 

D8EB 

A9 

63 

LDA 

#$63 

YES— display 

D8ED 

4C 

C8 

CI 

JMP 

$C1C8 

'63  File  Exists'  error  message 

D8F01 

A9 

33 

LDA 

#$33 

Display 

D8F2 

4C 

C8 

CI 

JMP 

$C1C8 

'33  Syntax  Error'  error  message 

[D8E6]     Overwrite  corresponding 

file  entry 

D8F5 

A5 

E7 

LDA 

$E7 

Get  filetype  of  1st  filename  and 

D8F7 

29 

07 

AND 

#$07 

separate  flagbits 

D8F9 

CD 

4A 

02 

CMP 

$024A 

Compare  w/corresponding  filetype 

D8FC 

DO 

67 

BNE 

$D965 

Identical? 

D8FE 

C9 

04 

CMP 

#$04 

YES— Test  for  relative  file  value 

D900 

FO 

63 

BEQ 

$D965 

Is  it  relative? 

D902 

20 

DA 

DC 

JSR 

$DCDA 

NO-Open  file  for  writing 

D905 

A5 

82 

LDA 

$82 

Get  #  of  open  channel  and  save 

D907 

8D 

70 

02 

STA 

$0270 

as  currently-open  write  channel 

D90A 

A9 

11 

LDA 

#$11 

Set  #  for  internal  read  channel 

D90C 

85 

83 

STA 

$83 

(17)  as  secondary  address 

D90E 

20 

EB 

DO 

JSR 

$D0EB 

Open  read  channel 

D911 

AD 

94 

02 

LDA 

$0294 

Get  position  of  current  buffer 

D914 

20 

C8 

D4 

JSR 

$D4C8 

and  set  buffer  address 

D917 

AO 

00 

LDY 

#$00 

Initialize  buffer  pointer 

D919 

Bl 

94 

LDA 

($94) , Y 

Get  filetype  from  dir.  buffer 

D91B 

09 

20 

ORA 

#$20 

Set  'file  open'  flagbit  and 

D91D 

91 

94 

STA 

($94) , Y 

write  back  into  file  entry 

D91F 

AO 

1A 

LDY 

#$1A 

Set  buffer  pointer  to  position  of 

D921 

A5 

80 

LDA 

$80 

new  track  #;  Get  track  number  and 

D923 

91 

94 

STA 

($94), Y 

write  in  file  entry 

D925 

C8 

1NY 

Buffer  pointer  to  next  position 

D926 

A5 

81 

LDA 

$81 

Get  number  of  current  sector  and 

D928 

91 

94 

STA 

($94), Y 

save  as  value  to  be  entered 

D92A 

AE 

70 

02 

LDX 

$0270 

Get  current  write  channel  number 

D92D 

A5 

D8 

LDA 

$D8 

Get  file  entry  sector  and  assign 

D92F 

9D 

60 

02 

STA 

$0260, X 

number  of  file  entry 

D932 

A5 

DD 

LDA 

$DD 

Get  pointer  to  sector  #  in  entry 
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D934 

9D 

66 

02 

STA 

$0266, X 

and  assign  file  entry 

D937 

20 

3B 

DE 

JSR 

$DE3B 

Current  track/sector  #  of  job 

D93A 

20 

64 

D4 

JSR 

$D4  64 

Write  file  sector 

D93D 

4C 

EF 

D9 

JMP 

$D9EF 

Write  data  to  file 

D940^ 

AD 

80 

02 

LDA 

$0280 

Get  track  number  of  first  entry 

D943 

DO 

05 

BNE 

$D94A 

Found  the  right  entry? 

D945 

A9 

62 

LDA 

#$62 

NO— Display 

D947 

4C 

C8 

CI 

JMP 

$C1C8 

'62  File  Not  Found'  error  message 

D94A^ 

AD 

97 

02 

LDA 

$0297 

Determine  file  operating  mode 

D94D 

C9 

03 

CMP 

#$03 

and  compare  with  value  for  'M' 

D94F 

F0 

0B 

BEQ 

$D95C 

Read  an  unclosed  file? 

uyoi 

Ay 

20 

LDA 

#$20 

NO— Set  flag  for 

noes 

24 

E7 

BIT 

$E7 

'File  is  not  properly  closed  yet' 

F0 

05 

BEQ 

$D95C 

Is  flag  set? 

D957 

A9 

60 

LDA 

#$60 

YES-Display 

D909 

4C 

C8 

CI 

JMP 

$C1C8 

•60  Write  File  Open'  error  messge 

D95C^ 

A5 

E7 

LDA 

$E7 

Get  filet ype; 

D95E 

29 

07 

AND 

#$07 

isolate  file  identifier 

D960 

CD 

4A 

02 

CMP 

$024A 

Compare  with  current  filetype 

uyoj 

F0 

05 

BEQ 

$D96A 

Identical? 

D965^ 

A9 

64 

LDA 

#$64 

NO- Display 

D96  / 

4C 

C8 

CI 

JMP 

$C1C8 

'64  Filetype  Mismatch'  error  msge 

D96A^ 

AO 

00 

LDY 

#$00 

Reset 

D96C 

8C 

79 

02 

STY 

$0279 

buffer  pointer 

D96F 

AE 

97 

02 

LDX 

$0297 

Determine  file  operating  mode  and 

D972 

E0 

02 

CPX 

#$02 

compare  with  identifier  for  'A' 

D974 

DO 

1A 

BNE 

$D990 

Should  data  be  appended? 

D97  6 

C9 

04 

CMP 

#$04 

YES-Chk  filetype  against  REL  file 

D978 

F0 

EB 

BEQ 

$D965 

Is  it  a  relative  file? 

D97A 

Bl 

94 

LDA 

($94) ,Y 

NC—Get  filetype  frm  direc  buffer 

D97C 

29 

4F 

AND 

#$4F 

and  save  file  open 

D97E 

91 

94 

STA 

($94) ,Y 

Put  filetype  back  into  entry 

D980 

A5 

83 

LDA 

$83 

Get  current  secondary  address; 

D982 

48 

PHA 

hang  onto  it 

D983 

A9 

11 

LDA 

#$11 

Set  internal  read  channel  #(17) 

D985 

85 

83 

STA 

$83 

as  current  secondary  address 

D987 

20 

3B 

DE 

JSR 

$DE3B 

Determine  current  track/sector 

D98A 

20 

64 

D4 

JSR 

$D464 

Write  sector  to  diskette 

D98D 

68 

PLA 

Repeat  secondary  address  and 

D98E 

85 

83 

STA 

$83 

reset 

D9901 

20 

AO 

D9 

JSR 

$D9A0 

Open  file  for  reading 

D993 

AD 

97 

02 

LDA 

$0297 

Determine  file  operation, compare 

D996 

C9 

02 

CMP 

#$02 

with  identifier  for  'A'  (Append) 

D998 

DO 

55 

BNE 

$D9EF 

Connect  data  to  preexisting  file? 

D99A 

20 

2A 

DA 

JSR 

$DA2A 

YES— Proceed  with  append  and 

D99D 

4C 

94 

CI 

JMP 

$C194 

get  'Ok'  message  ready 
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[CA26/D990] 

Open  file  for  reading 


D9A0 

AO 

13 

LDY 

#$13 

D9A2 

Bl 

94 

LDA 

($94), Y 

D9A4 

8D 

59 

02 

STA 

$0259 

D9A7 

C8 

INY 

D9A8 

Bl 

94 

LDA 

($94) ,Y 

D9AA 

8D 

5A 

02 

STA 

$025A 

D9AD 

C8 

INY 

D9AE 

Bl 

94 

LDA 

($94) ,Y 

D9B0 

AE 

58 

02 

LDX 

$0258 

D9B3 

8D 

58 

02 

STA 

$0258 

D9B6 

8A 

TXA 

D9B7 

FO 

OA 

BEQ 

$D9C3 

D9B9 

CD 

58 

02 

CMP 

$0258 

D9BC 

FO 

05 

BEQ 

$D9C3 

D9BE 

A9 

50 

LDA 

#$50 

D9C0 

20 

C8 

CI 

JSR 

$C1C8 

D9C32 

AE 

79 

02 

LDX 

$0279 

D9C6 

BD 

80 

02 

LDA 

$0280, X 

D9C9 

85 

80 

STA 

$80 

D9CB 

BD 

85 

02 

LDA 

$0285, X 

D9CE 

85 

81 

STA 

$81 

D9D0 

20 

46 

DC 

JSR 

$DC46 

D9D3 

A4 

82 

LDY 

$82 

D905 

AE 

79 

02 

LDX 

$0279 

D9D8 

B5 

D8 

LDA 

$D8,X 

D9DA 

99 

60 

02 

STA 

$02  60, Y 

D9DD 

B5 

DD 

LDA 

$DD,X 

D9DF 

99 

66 

02 

STA 

$0266, Y 

D9E2 

60 

RTS 

Turn  pointer  to  side-sector  entry 
Get  track  #  of  1st  side-sector  & 
save  it ken 

Buffer  pointer  to  next  byte 

Get  sector  #  of  first  side-sector 

and  save  it 

Buffer  pointer  to  next  position 
Determine  length  of  a  record 
Get  last  record  length 
Set  new  record  length 
Last  record  length 
not  set? 

NO-Compare  with  current  length 
Reached  the  last  record? 
YES-Display 

'50Record  Not  Present'  err.messge 

Number  of  filenames  (0) 

Get  current  track  number  and 

set 

Get  current  sector  number  and 
set  it 

Open  read  channel 
Get  channel  number 
Number  of  files  worked  on 
Get  sector  number  and 
transfer 

Get  position  in  file  entry  and 
transfer 

Return  from  this  subroutine 
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[D8D6/D8DE] 

Open  file  for  writing 


AO 

t  r\  a 

Establish  number  of  disk  drive 

D9E5 

U  J. 

axrn 

nKU 

f  >?ui 

to  oe  utilized 

D9E7 

i  r 

v  /  J? 

and  save  as  current  drive 

D9E9 

20 

DA 

DC 

U  OA 

Open  channel  for  reading 

D9EC 

20 

E4 

D6 

Enter  file  in  directory 

D9EF^ 

A5 

83 

LDA 

Sri 

Get  current  2ndary  address  &  test 

D9F1 

C9 

02 

CMP 

IF  yU£ 

for  start-of-data  channel 

D9F3 

ro 

1 1 
x  ± 

bnouia  a  LOAD  or  SAVE  be  done? 

D9F5 

20 

3E 

DE 

JSR 

S*  LrCl  Of* 

xhio  uet  tracK/ sector  rroin  30D 

D9F8 

A5 

80 

LDA 

$80 

Save  track  #  of  last  track  of 

D9FA 

85 

7E 

STA 

$7E 

last  access 

D9FC 

A5 

7F 

LDA 

$7F 

Get  current  drive  number  and 

D9FE 

8D 

6E 

02 

STA 

$026E 

save  as  last  active  drive 

DA01 

A5 

81 

LDA 

$81 

Save  current  sector  as  the  last 

DA03 

8D 

6F 

02 

STA 

$026F 

accessed 

DA0  61 

4C 

99 

CI 

JMP 

$C199 

Prepare  'OK'  message 

[D866/D873] 

Set  up  filetype  and  file  operation  as  command  string 


DA09 

BC 

7A 

02 

LDY 

$027A,X 

Get  position  of  first  parameter 

DA0C 

B9 

00 

02 

LDA 

$0200, Y 

Get  character  from  input  buffer 

DA0F 

AO 

04 

LDY 

#$04 

Set  counter  to  #  operating  modes 

DA111 

88 

DEY 

Turn  counter  to  next  identifier 

DA12 

30 

08 

BMI 

$DA1C 

All  operating  modes  checked? 

DAI  4 

D9 

B2 

FE 

CMP 

$FEB2 , Y 

NO- Compare  w/file  operations  mode 

DAI  7 

DO 

F8 

BNE 

$DA11 

Identical? 

DAI  9 

8C 

97 

02 

STY 

$0297 

YES-Save  position  in  input  string 

DA1C1 

AO 

05 

LDY 

#$05 

and  set  counter  for  filetype 

DA1E1 

88 

DEY 

Turn  counter  to  next  filetype 

DA1F 

30 

08 

BMI 

$DA29 

All  filetypes  already  checked? 

DA21 

D9 

B6 

FE 

CMP 

$FEB6,Y 

NC— Compare  with  filetype 

DA24 

DO 

F8 

BNE 

$DA1E 

Identical? 

DA26 

8C 

4A 

02 

STY 

$024A 

YES-Save  position 

DA291 

60 

RTS 

Return  from  this  subroutine 

[C996/D99A/DA32] 

Prepare  file  for  Append 

DA2A     20  39  CA  JSR  $CA39 

DA2D     A9  80  LDA  #$80 

DA2F     20  A6  DD  JSR  $DDA6 

DA32     F0  F6  BEQ  $DA2A 

DA34     20  95  DE  JSR  $DE95 

DA37     A6  81  LDX  $81 

DA39     E8  INX 


Read  data  byte 

Test  flag  for 

•EOI  reached" 

Has  last  byte  been  read? 

YES— Find  current  track  £  sector 

Get  pointer  to  correct  data  reg. 

and  increment  by  1 
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DA3A 

8A 

TXA 

(ir  2?r  r  t  tnen  majte  it  u  oya±n; 

DA3B 

DO 

05 

BNE 

$DA42 

Is  tn6  sector  completely  liucu . 

DA3D 

20 

A3 

Dl 

JSR 

$D1A3 

YEo — write  sector  to  aisxei. te 

DA40 

A9 

02 

LDA 

#$02 

bet  dux  rex  pointer  to  ueyiiuixny 

DA421 

20 

C8 

D4 

JSR 

$D4C8 

of  data  register 

DA45 

A6 

82 

LDX 

$82 

Get  current  cnannex  nunujei 

DA47 

A9 

01 

LDA 

#$01 

bet  write  nag  in 

DA49 

95 

F2 

STA 

$F2,X 

channel  status  table 

DA4B 

A9 

80 

LDA 

#$80 

Combine  write  flag 

DA4D 

05 

82 

ORA 

$82 

with  channel  number 

DA4F 

A6 

83 

LDX 

$83 

Get  current  secondary  address  and 

DA51 

9D 

2B 

02 

STA 

$022B,X 

assign  status  byte  of  2ndary  adr. 

DA54 

60 

RTS 

Return  from  this  subroutine 

[D7FC] 

Transmit  directory  to  computer 


DA55 

A9 

OC 

LDA 

#$0C 

Set  command 

DA57 

8D 

2A 

02 

STA 

$022A 

number  12 

DA5A 

A9 

00 

LDA 

#$00 

Drive  number 

DA5C 

AE 

74 

02 

LDX 

$0274 

Get  lencjxn  or  command.  bLiiny  ama 

DA5F 

CA 

DEX 

compare  with  1 

DA60 

F0 

0B 

BEQ 

$DA6D 

Does  commano.  onxy  nave  one  tnai.  •  . 

DA62 

CA 

DEX 

NO— Compare  to  2 

DA63 

DO 

21 

BNE 

$DA86 

Does  command  have  only  2  chars? 

DA65 

AD 

01 

02 

LDA 

$0201 

YEjb — (set    illQ  CilalaCLer   aliu  uicor 

DA68 

20 

BD 

C3 

JSR 

$C3BD 

for  drive  number 

DA6B 

30 

19 

BMI 

$DA86 

Is  drive  assignment  error-free? 

DA6D1 

85 

E2 

STA 

$E2 

YES— Save  drive 

DA6F 

EE 

77 

02 

INC 

$0277 

Pointer  to  first 

DA72 

EE 

78 

02 

INC 

$0278 

and  second  parameter  in  command 

DA75 

EE 

7A 

02 

INC 

$027A 

string — move  to  next  position 

DA7  8 

A9 

80 

LDA 

#$80 

Set  flag  for  'file  properly 

DA7A 

85 

E7 

STA 

$E7 

closed' 

DA7C 

A9 

2A 

LDA 

#$2A 

Set  '*'  wildcard  as  filename  in 

DA7E 

8D 

00 

02 

STA 

$0200 

command 

DA81 

8D 

01 

02 

STA 

$0201 

string 

DA84 

DO 

18 

BNE 

$DA9E 

Jump  to  $DA9E 

DA862 

20 

E5 

CI 

JSR 

$C1E5 

Seek  ' : 1  in  command  string 

DA89 

DO 

05 

BNE 

$DA90 

Found  a  colon? 

DA8B 

20 

DC 

C2 

JSR 

$C2DC 

YES-Clear  pointr  f /command  string 

DA8E 

AO 

03 

LDY 

#$03 

Position  of  first  filename  (1) 

DA901 

88 

DEY 

Set  pointer  to  position 

DA91 

88 

DEY 

of  name 

DA92 

8C 

7A 

02 

STY 

$027A 

Set  pointer  to  first  filename 

DA95 

20 

00 

C2 

JSR 

$C200 

Set  pointer  f/parameter  analysis 

DA98 

20 

98 

C3 

JSR 

$C398 

Pointer  to  filename  and  filetype 

ROM -191 


Abacus  Software 


1571  Internals 


DA9B 

20 

20 

C3 

JSR 

$C320 

Get    driVP    $    f  T*  Om    onmma  nH    «+-  y  ■! 

v.        — tt    it  \jih       wiiUIla.il  tj.  StrinQ 

DA9E1 

20 

CA 

C3 

JSR 

$C3CA 

P  T  P"D    fi  T  "i  \T&     f  f>r~     =           e  © 
'JilvC     LUX.  aL^€SS 

DAA1 

20 

B7 

C7 

JSR 

$C7B7 

Produce  directory  title 

DAA4 

20 

9D 

C4 

JSR 

$C4  9D 

Get    f  "i  1  Pnnmp    f  rnm   Hi  ror-f  nrw 
w    i  j.  xci  lames    i.  x.  \JHi  UJ.J.tit»L.U.LY 

DAA7 

20 

9E 

EC 

JSR 

$EC9E 

nauci  uaJ.Il    UlicCLOiy  line 

DAAA 

20 

37 

Dl 

JSR 

$D137 

T.  Qt    hutp    r\  "F    Hi  ror'fnrw    ■<=  -w-  „  _    v*i*  4C 

DAAD 

A6 

82 

LDX 

$82 

Current"   fhsnnpl  numhor 

DAAF 

9D 

3E 

02 

STA 

$023E,X 

Pre©  bvt  e  for  out-  out" 

DAB2 

A5 

7F 

LDA 

$7F 

Savp    flirrpnt"     Hrl  iro    ae    r]y  i  i  r<-%  iK.nj 
^Ui.  LcllL    UIlvc    aS    QI1V6  UScU 

DAB  4 

8D 

8E 

02 

STA 

$028E 

for  last  access 

DAB  7 

09 

04 

ORA 

#$04 

Set  flag  for  PRG  file 

DAB  9 

95 

EC 

STA 

$EC,X 

and  put  in  channel  table 

DABB 

A9 

00 

LDA 

#$00 

Get  back  pointer  in  input 

DABD 

85 

A3 

STA 

$A3 

buffer 

DABF 

60 

RTS 

Return  from  this  subroutine 

[8151/9193/91A3/91B9/A9F1/BF60/E8CE] 
Close  file 


DAC0 

A9 

00 

LDA 

#$00 

Set  'illegal  BAM' 

DAC2 

8D 

F9 

02 

STA 

$02F9 

flag 

DAC5 

A5 

83 

LDA 

$83 

Get  current  secondary  address 

DAC7 

DO 

0B 

BNE 

$DAD4 

LOAD  command? 

DAC9 

A9 

00 

LDA 

#$00 

YES-Clear  'Directory  will  be 

DACB 

8D 

54 

02 

STA 

$0254 

displayed'  flag 

DACE 

20 

27 

D2 

JSR 

$D227 

Close  channel 

DAD11 

4C 

DA 

D4 

JMP 

$D4DA 

Close  internal  read/write  chanels 

DAD41 

C9 

OF 

CMP 

#$0F 

Compare  secondary  address  w/  15 

DAD6 

F0 

14 

BEQ 

$DAEC 

Command  channel  address sed? 

DAD  8 

20 

02 

DB 

JSR 

$DB02 

NO-Close  file 

DADB 

A5 

83 

LDA 

$83 

Get  current    secondary  address 

DADD 

C9 

02 

CMP 

#$02 

Compare  with  begin. of  filechannel 

DADF 

90 

F0 

BCC 

$DAD1 

Channel  have  LOAD /SAVE  (0/1)? 

DAE1 

AD 

6C 

02 

LDA 

$02  6C 

NO-Get  error  flag  and  test  it 

DAE  4 

DO 

03 

BNE 

$DAE9 

Run  into  an  error? 

DAE  6 

4C 

94 

CI 

JMP 

$C194 

NO— 'Ok'  message  displayed 

DAE91 

4C 

AD 

CI 

JMP 

$C1AD 

Display  error  message 
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[DAD6] 

Close 

all 

files 

DAEC 

A9 

0E 

LDA 

#$0E 

Highest  2ndary  address  for  files 

DAEE 

85 

83 

STA 

$83 

set  as  current  secondary  address 

DAFO1 

20 

02 

DB 

JSR 

$DB02 

Close  file 

DAF3 

C6 

83 

DEC 

$83 

Go  to  next  secondary  address 

DAF5 

10 

F9 

BPL 

$DAF0 

All  channels  closed? 

DAF7 

AD 

6C 

02 

LDA 

$026C 

YES— Get  error  flag  and  test 

DAFA 

DO 

03 

BNE 

$DAFF 

Closures  done  without  errors? 

DAFC 

4C 

94 

CI 

JMP 

$C194 

YES-Display  'OK'  message 

DAFF1 

4C 

AD 

CI 

JMP 

$C1AD 

Display  error  message 

[C9F7/DADB/DAF0] 


Files 

declared  through  secondary 

address ,  closed 

DB02 

A6 

83 

LDX 

COT 

La  St.    CU  i  i  SIl       ocOUllUa  J.  y    auuj.  ^ 

DB04 

BD 

O  Q 
ZD 

no 
uz 

t  r*A 

6AOOR  Y 

Hofarm:  no    rnr'riaQnnnril  nCf  StstUS 

UC  L>CS  X.  IHX  J IC;             L  X  CiSywllWXIiy          *^          w  fc* 

DB07 

r  r 

1f  vr  r 

r^mnarp  wi t~h   1  Free  channel 1  value 

DB0  9 

uu 

n  i 
u  X 

To  rhannel  out? 

DB0B 

bU 

I\  1  o 

■MfV-RQ-t-iiy-n  from  this  subroutine 

DBOC^ 

O  Q 
Zv 

Ur 

Awn 

noformino  pipar  channel  number 

UC  LCI  IIIX11C      L1CQJL      UJLHIlJIw  J. 

DB0E 

oc 
OO 

oz 

jln 

>i  RO 

aiiu  iuvc  xi- 

DB10 

o  a 

o  c 

Ten 
UoK 

<m  OR 

Get  filet ype  &  compare  w/directry 

DB13 

C9 

a  H 
0  / 

ff  s>  U  / 

□  l^coo    X  uc  iiuxj — lci 

DB15 

A 

Af 

Ur 

men ii^ai  ■ 

DB17 

cy 

A  A 

U4 

iar\  pVior-V  wi r  h        1  ue  for  REL  file 

WV^vIlcuJS,    W  X  i—  1 1    value    x  \y  x    ivuu  j — >-  >— 

DB19 

F0 

11 

BEQ 

DB1B 

20 

07 

Dl 

JSR 

£ r\*l  AT 

$D1U  / 

NU- L.ri6C\    Cllanilel    x  /  WLiic  unaiuicx 

DB1E 

B0 

09 

BCS 

$DB29 

T  <■»    ^  X\  n    »•»  ■»■•■?     ^    /*»V\    n  n  o  1     f~>    Dfl  ^ 
IS    tile    WIlLc    OJlalllltSX    upcil  • 

DB20 

20 

62 

DB 

JSR 

$DB62 

YES-Write  to  end 

DB23 

20 

A5 

DB 

JSR 

$DBA5 

Close  directory  entry 

DB261 

20 

F4 

EE 

JSR 

$EEF4 

Write  BAM  back  to  diskette 

DB2  91 

4C 

27 

D2 

JMP 

$D227 

Close  channel 

DB2C1 

20 

Fl 

DD 

JSR 

$DDF1 

Write  current  buffer  to  diskette 

DB2F 

20 

IE 

CF 

JSR 

$CF1E 

Apple  new  buffer 

DB32 

20 

CB 

El 

JSR 

$E1CB 

Get  position  of  last  record 

DB35 

A6 

D5 

LDX 

$D5 

Get  number  of  last  side-sector 

DB37 

86 

73 

STX 

$73 

and  save 

DB39 

E6 

73 

INC 

$73 

Choose    next  side-sector 

DB3B 

A9 

00 

LDA 

#$00 

Direct  zeropage  addresses  as 

DB3D 

85 

70 

STA 

$70 

temporary 

DB3F 

85 

71 

STA 

$71 

storage 

DB41 

A5 

D6 

LDA 

$D6 

Get  position  of  side-sector 

DB43 

38 

SEC 

consider  number  of  bytes 

DB44 

E9 

0E 

SBC 

#$0E 

for  chaining  of 

DB4  6 

85 

72 

STA 

$72 

other  side-sectors 

DB4  8 

20 

51 

DF 

JSR 

$DF51 

Calculate  number  of  file  blocks 
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DB4B 

A6 

82 

T  HY 

Current  channel  number 

DB4D 

A5 

70 

^  /  u 

Put  #  of  relative  file  blocks 

DB4F 

95 

B5 

STA 

9DJ  ,  A 

(low— byte)  in  Table 

DB51 

A5 

71 

LDA 

£71 

Copy 

DB53 

95 

BB 

STA 

$BB,X 

high -byte 

DB55 

A9 

40 

LDA 

#$40 

Check  filetype  channel  flag 

nD 

uu 

TOD 

for  'entry  correct' 

DB5A 

FO 

03 

BEQ 

Is  flag  in  filetype  set? 

DB5C 

20 

A5 

DB 

JSR 

YES— Realize  directoy  entry 

DB5F^ 

4C 

27 

D2 

JMP 

Close  channel 

[DB20 

1 

Write 

last  sector  of 

d  ixie 

UU  UlS\cLU€ 

DB62 

A6 

82 

LDX 

$82 

uc u  t-ux  1  cii l.  cn annex  n  uiuDer 

DB64 

B5 

B5 

LDA 

tnc;  v 

Get  channel— arranged 

DB66 

15 

BB 

ORA 

V 

yDDf  A 

record  number  and  test  it 

LlLJ  D  O 

no 

(If* 

RW1? 

0U0  /  b 

Is  record  number  set? 

DB6A 

20 

LO 

nd 

iji 

U  Dt\ 

y  U  M  IjO 

NO— Get  current  buffer  pointer  and 

DB6D 

n9 
y  t 

compare  with  start  of  filer ange 

DB6F 

DO 

05 

$>ud  /  0 

Is  the  sector  still  empty? 

DB71 

A9 

0D 

LDA 

its-write  empty  record  (<RETURN>) 

DB73 

20 

Fl 

u  on 

to  buffer 

DB76^ 

20 

E8 

D4 

.T9R 

Get  buffer  pointer;  compare  with 

DB7  9 

C9 

02 

CMP 

st art -of -filer ange 

DB7B 

DO 

OF 

BNE 

Is  the  sector  still  empty? 

UD  1  U 

20 

IE 

CF 

JSR 

IJfc* 

YES— Open  new  buffer 

DB80 

A6 

82 

LDX 

too 

Determine  current  channel  number 

DB82 

B5 

B5 

LDA 

V-tSO  ,  A 

Predetermined  record  #  (lo— byte) 

DB84 

DO 

02 

BNE 

6riD  Q  Q 
pUDOO 

Is  low— byte  =  zero? 

D6 

BB 

DEC 

$BB,  X 

YES— Decrement  hi-byt /record  no.-l 

UDOO 

D6 

B5 

DEC 

$B5 ,  X 

Decrement  low-byte  by  1 

A9 

00 

LDA 

■U-  £  r\  r\ 
#500 

Value  for  'buffer  full' 

38 

SEC 

Calculate  number  of  applicable 

DB8D 

E9 

01 

SBC 

1f  vwi 

l ixeuy ics  pet  sec  l.  or 

DB8F 

48 

PHA 

and  note  it 

DB90 

A9 

00 

LDA 

Set  buffer  pointer  for 

DB92 

20 

C8 

D4 

JSR 

$D4C8 

u*<jiine(_ueu  joy  Lea 

DB95 

20 

Fl 

CF 

JSR 

$CFF1 

Write  identifier  for  last  sector 

DB98 

68 

PLA 

Get  #  of  applicable  filebytes 

DB99 

20 

Fl 

CF 

JSR 

$CFF1 

and  write  to  sector 

DB9C 

20 

C7 

DO 

JSR 

$D0C7 

Write  sector  back  to  diskette  and 

DB9F 

20 

99 

D5 

JSR 

$D599 

wait  until  job  is  completed 

DBA2 

4C 

IE 

CF 

JMP 

$CF1E 

Open  new  buffer 
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[DB23/DB5C] 

Close 

directory 

entry 

after  write 

operation 

DBA5 

A6 

82 

LDX 

$82 

Get  current  channel  number  and 

DBA7 

8E 

70  02 

STX 

$0270 

retain  it 

DBAA 

A5 

83 

LDA 

$83 

Get  #  of  current  2ndary  address 

DBAC 

48 

PHA 

and  retain  it 

DBAD 

BD 

60  02 

LDA 

$0260, X 

Get  #  of  directry  sector  f/entry 

DBBO 

85 

81 

STA 

$81 

and  set  as  current  sector 

DBB2 

BD 

66  02 

LDA 

$0266, X 

Get  entry  positiion  in  directory 

DBB5 

8D 

94  02 

STA 

$0294 

and  set  as  current  buffer  pointer 

DBB8 

B5 

EC 

LDA 

$EC,X 

Get  filetype  of  channel 

DBBA 

29 

01 

AND 

#$01 

Determine  drive  number  and 

DBBC 

85 

7F 

STA 

$7F 

take  up  as  current  drive 

DBBE 

AD 

85  FE 

LDA 

$FE85 

Get  number  of  directory  track 

DBC1 

85 

80 

STA 

$80 

and  set  up  as  current  track 

DBC3 

20 

93  DF 

JSR 

$DF93 

Get  and  save 

DBC6 

48 

PHA 

buffer  number 

DBC7 

85 

F9 

STA 

$F9 

Set  current  buffer  number 

DBC9 

20 

60  D4 

JSR 

$D4  60 

Read  directory  sector  into  buffer 

DBCC 

AO 

00 

LDY 

#$00 

Reset  position  pointer 

DBCE 

BD 

EO  FE 

LDA 

$FEE0,X 

Get  buf f r  address (hi-byte) ,  take 

DBD1 

85 

87 

STA 

$87 

as  high-byte  of  buffer  pointer 

DBD3 

AD 

94  02 

LDA 

$0294 

Get  current  position  in  buffer  S 

DBD6 

85 

86 

STA 

$86 

set  as  low-byte 

DBD8 

Bl 

86 

LDA 

($86) ,Y 

Get  filetype  frm  directry  entry  & 

DBDA 

29 

20 

AND 

#$20 

check  for  'file  open'  flag 

DBDC 

FO 

43 

BEQ 

$DC21 

File  already  closed? 

DBDE 

20 

25  Dl 

JSR 

$D125 

NC— Test  filetype  further  and  test 

DBE1 

C9 

04 

CMP 

#$04 

against  value  for  relative  file 

DBE3 

FO 

44 

BEQ 

$DC29 

Identical? 

DBE5 

Bl 

86 

LDA 

($86), Y 

NO-Get  entire  filetype  pointer 

DBE7 

29 

8F 

AND 

#$8F 

Clear  flags 

DBE9 

91 

86 

STA 

($86), Y 

and  filetype  again  back  to  entry 

DBEB 

C8 

INY 

Buffer  pointer  to  next  position 

DBEC 

Bl 

86 

LDA 

($86), Y 

Get  track  #  of  first  sector/file 

DBEE 

85 

80 

STA 

$80 

and  save  as  current  track 

DBFO 

84 

71 

STY 

$71 

Save  current  buffer  pointer 

DBF  2 

AO 

IB 

LDY 

#$1B 

Set  buffer  pointer  of  sector  from 

DBF  4 

Bl 

86 

LDA 

($86), Y 

overwrite  and  get  number 

DBF  6 

48 

PHA 

Save  sector  number 

DBF  7 

88 

DEY 

Set  buffer  pointer  to  appropriate 

DBF  8 

Bl 

86 

LDA 

($86) ,Y 

track  and  get  track  number 

DBFA 

DO 

OA 

BNE 

$DC06 

No  overwrite  entry  set? 

DBFC 

85 

80 

STA 

$80 

YES-Get  track  &  sector  number 

DBFE 

68 

PLA 

again,  and  put  into 

DBFF 

85 

81 

STA 

$81 

current  pointer 
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DC01 

A9 

67 

t  na 

XtUA 

ff-?o  / 

Display  '67  Illegal  Track 

DC03 

?n 
^  *j 

HjD 

Ton 

6f  C  A  C 

9Eo40 

Or  Sector'  error  message 

DC06^ 

48 

tr  tin 

Save  track  number 

DC07 

A9 

t  na 

Clear  track  and 

DC09 

91 

O  D 

OlA 

( 9oo)  ,Y 

sector  number 

DCOB 

C8 

TMV 

XNi 

of  the  rile  entry  to  be 

Q1 

O  D 

oxA 

($86)  ,  Y 

overwritten 

DO 

PLA 

Get  track  number  again 

DCOF 

71 

t  r\v 
JjJJx 

•ft  7  1 

5/1 

Reset  buffer  pointer 

DC11 

91 

86 

woo)  ,  I 

Set  track  to  first  sector  of  file 

DC13 

T  vi  V 

Buffer  pointer  to  next  byte 

DC14 

Dl 

p 

t  na 
JjUA 

(  9O0)  ,  I 

Get  number  of  old  sector  and 

DC16 

85 

81 

STA 

vox 

save  it 

DC18 

68 

DT  a 
XT  JjA 

Get  #  of  first  sector  of  file 

DC19 

91 

86 

Oln 

and  store  in  entry 

DC1B 

20 

7D 

C8 

JSR 

$C87D 

i-iear  01a  rue  sectors 

DC1E 

4C 

29 

DC 

.IMP 

close  rue 

DC21.1 

Bl 

86 

UUn 

\  900;  ,  I 

Get  filetype  from  entry 

DC23 

29 

OF 

awn 

isolate  file  identifiers 

DC25 

•J  3 

fin 

vKft 

1F90U 

Set  'file  closed'  flag  and  set  up 

DC27 

91 

pfi 

O  In 

I90D) , I 

as  new  filetype 

DC29^ 

A.T? 

t  nv 

c  n  0  7  n 

Repeat  number  of  current  channel 

DC2C 

AO 

1  p 

t  nv 

Set  buff  pntr  to  block  assign (28) 

DC 
DJ 

DJ 

t  r\  a 

JjUA 

VOJ  /  X 

Get  #  of  blocks  to  a  file(lobyte) 

UK*  J  w 

o  o 

olA 

($06)  ,  Y 

and  write  to  entry 

pft 

V-O 

XJNX 

Set  buffer  pointer  to  next  byte 

1A>JJ 

DC 

P.  P. 

JjUA 

4DD  V 
9DD,  X 

Get  hi-byte  of  block  #  and  write 

Q1 
-*x 

P£ 

era 
OlA 

/to  /r\  v 

to  entry 

fiP 

DO 

dt  a 

ir  JjA 

Recall  current  buffer  number  — 

DC38 

AA 

InA 

note  it 

TV*  "3  Q 

TV  Q 

Ay 

yu 

LDA 

#590 

Jobcode  for  'write  sector' 

DC3B 

05 

7F 

ORA 

$7F 

Enter  current  drive  in  jobcode 

DC3D 

20 

90 

D5 

JSR 

$D590 

Execute  job 

DC40 

68 

PLA 

Repeat  and  reset  current 

DC41 

85 

83 

STA 

$83 

secondary  address 

DC43 

4C 

07 

Dl 

JMP 

$D107 

Get  channel  number 

[D47E/D7E4/D80B/D9D0/DC98:DD8A] 


Open 

channel 

to 

read 

a  file 

DC4  6 

A9 

01 

LDA 

#$01 

DC48 

20 

E2 

Dl 

JSR 

$D1E2 

DC4B 

20 

B6 

DC 

JSR 

$DCB6 

DC4E 

AD 

4A 

02 

LDA 

$024A 

DC51 

48 

PHA 

DC52 

OA 

ASL 

A 

DC53 

05 

7F 

ORA 

$7F 

Buffer  number 

Open  channel  for  reading 

Set  channel  pointer 

Get  current  filetype  and 

note  it 

Establish  filetype  entry  for 
chanel  table; concentrate  on  drive 
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DC55 

95 

EC 

STA 

$EC,X 

and  assign  to  channel  table 

DC57 

20 

9B 

DO 

JSR 

$D09B 

Read  sector  in  buffer 

DC  5  A 

A6 

82 

LDX 

$82 

Get  current  channel  number 

DC5C 

A5 

80 

LDA 

$80 

Determine  current  track  number 

DC5E 

DO 

05 

BNE 

$DC65 

Are  there  other  sectors  onhand? 

DC  60 

A5 

81 

LDA 

$81 

NO-Get  number  of  applicable 

DC  62 

9D 

44 

02 

STA 

$0244, X 

filebytes  and  save  them 

DC651 

68 

PLA 

Call  back  filetype  &  compare  with 

DC66 

C9 

04 

CMP 

#$04 

value  for    relative  files 

DC68 

DO 

3F 

BNE 

$DCA9 

Is  it  a  relative  file? 

DC6A 

A4 

83 

LDY 

$83 

YES— Get  present  secondary  address 

DC6C 

B9 

2B 

02 

LDA 

$022B,Y 

Get  preset  channel  number 

DC6F 

09 

40 

ORA 

#$40 

Read  flag 

DC71 

99 

2B 

02 

STA 

$022B,Y 

Assign  secondary  address 

DC74 

AD 

58 

02 

LDA 

$0258 

Get  record  length  and 

DC77 

95 

C7 

STA 

$C7,X 

assign  to  channel 

DC7  9 

20 

8E 

D2 

JSR 

$D28E 

Open  new  buffer  for  side-sector 

DC7C 

10 

03 

BPL 

$DC81 

Still  a  free  buffer? 

DC7E 

4C 

OF 

D2 

JMP 

$D20F 

NO-Display'70  No  Channel'  error 

DC811 

A6 

82 

LDX 

$82 

Number  of  current  channel 

DC83 

95 

CD 

STA 

$CD,X 

Save  buffer  number 

DC85 

AC 

59 

02 

LDY 

$0259 

Get  track  #  of  1st  side-sector  & 

DC88 

84 

80 

STY 

$80 

set  as  current  track  number 

DC  8  A 

AC 

5A 

02 

LDY 

$025A 

Get  sector  number  and  store  as 

DC8D 

84 

81 

STY 

$81 

current  sector 

DC8F 

20 

D3 

D6 

JSR 

$D6D3 

Track  and  sector  in  job  loop 

DC92 

20 

73 

DE 

JSR 

$DE73 

Read  sidesector  frm  disk  to  buffr 

DC95 

20 

99 

D5 

JSR 

$D599 

Wait  until  job  is  run 

DC981 

A6 

82 

LDX 

$82 

Get  current  channel  number  and 

DC9A 

A9 

02 

LDA 

#$02 

initialize  record  pointer 

DC9C 

95 

CI 

STA 

$C1,X 

in  table 

DC9E 

A9 

00 

LDA 

#$00 

Pointer  to  start-of-sector 

DCAO 

20 

C8 

D4 

JSR 

$D4C8 

Set  buffer  pointer 

DCA3 

20 

53 

El 

JSR 

$E153 

Read  first  record  and  prepare  it 

DC  A  6 

4C 

3E 

DE 

JMP 

$DE3E 

Set  byte  for  output    and  pointer 

DCA9^ 

20 

56 

Dl 

JSR 

$D156 

Get  byte  from  buffer 

DCAC 

A6 

82 

LDX 

$82 

Get  current  channel  number 

DCAE 

9D 

3E 

02 

STA 

$023E,X 

Send  byte  for  output 

DCB1 

A9 

88 

LDA 

#$88 

Set  output  flag  in  table 

DCB3 

95 

F2 

STA 

$F2,X 

with  channel  status 

DCB5 

60 

RTS 

Return  from  this  subroutine 
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[DC4B/DCE5] 

Initialize  "channel  open'  pointer 


DCB6 

A6 

82 

LDX 

$82 

Get  channel  number  and  determine 

DCB8 

B5 

A7 

LDA 

$A7,X 

preset  buffer 

DCBA 

UA 

ASL 

A 

Test  'buffer  open*  flag 

DCBB 

•5  ri 
jO 

06 

BMI 

$DCC3 

Buffer  covered? 

noon 

ho 

TAY 

NO — 

DCBE 

A9 

02 

LDA 

#$02 

Set  buffer  pointer  to  start  of 

DCCO 

99 

99 

00 

STA 

$0099, Y 

file  range  (byte  $02) 

DCC3^" 

B5 

AE 

LDA 

$AE,X 

Get  buffer  status  and 

DCC5 

09 

80 

ORA 

#$80 

set  'buffer  in- 

DCC7 

95 

AE 

STA 

$AE,X 

active  '  flag 

DCC9 

OA 

ASL 

A 

Test  bit  6 

DCCA 

30 

06 

BMI 

$DCD2 

Should  buffer  be  written  back? 

DCCC 

A8 

TAY 

NO— Save  buffer  number 

DCCD 

A9 

02 

LDA 

#$02 

Set  buffer  pointer  (low-byte)  to 

DCCF 

99 

99 

00 

STA 

$0099, Y 

start-of-f ilerange 

DCD21 

A9 

00 

LDA 

#$00 

Clear  number  of  blocks  free 

DCD4 

95 

B5 

STA 

$B5,X 

(low-byte) 

DCD6 

4C 

7F 

A9 

JMP 

$A97F 

Clear  number  of  blocks  free 

DCD9 

EA 

NOP 

unused 

[D48A/D902/D9E9] 

Open  channel  to  write  to  file 


DCDA 

20 

A9 

Fl 

JSR 

$F1A9 

Look  for  free  sector  in  BAM 

DCDD 

A9 

01 

LDA 

#$01 

Number  of  buffers  needed 

DCDF 

20 

DF 

Dl 

JSR 

$D1DF 

Cover  buffer 

DCE2 

20 

DO 

D6 

JSR 

$D6D0 

Trek  and  sector  to  job  loop 

DCE5 

20 

B6 

DC 

JSR 

$DCB6 

Initialize  channel  pointer 

DCE8 

A6 

82 

LDX 

$82 

Number  of  present  channel 

DCEA 

AD 

4A 

02 

LDA 

$024A 

Get  current  filetype 

DCED 

48 

PHA 

and  save 

DCEE 

OA 

ASL 

A 

Take  drive  number  into 

DCEF 

05 

7F 

ORA 

$7F 

filetype  and  assign 

DCF1 

95 

EC 

STA 

$EC,X 

to  table  of  that  channel 

DCF3 

68 

PLA 

Get  original  filetype  and  check 

DCF4 

C9 

04 

CMP 

#$04 

for  value  for  relative  file 

DCF6 

F0 

05 

BEQ 

$DCFD 

Is  there  a  relative  file? 

DCF8 

A9 

01 

LDA 

#$01 

NO— Set  write 

DCFA 

95 

F2 

STA 

$F2,X 

flag 

DCFC 

60 

RTS 

Return  from  this  subroutine 

DCFD1 

A4 

83 

LDY 

$83 

Get  current  secondary  address 

DCFF 

B9 

2B 

02 

LDA 

$022B,Y 

and  assign  channel 

DD02 

29 

3F 

AND 

#$3F 

Reset  flag  bits  in  channel  status 

DD04 

09 

40 

ORA 

#$40 

Set  read 

DD06 

99 

2B 

02 

STA 

$022B,Y 

flag 
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DD09 

AD  58 

02 

LDA  $0258 

Get  length  of  a  record  and 

DDOC 

95  C7 

STA  $C7,X 

save  it 

DDOE 

20  8E 

D2 

JSR  $D28E 

Look  for  a  buffer 

DD11 

10  03 

BPL  $DD16 

Found  a  free  buffer? 

DD13 

4C  OF 

D2 

JMP  $D20F 

NO- Display  '70  No  Channel1  error 

DD161 

A6  82 

LDX  $82 

Get  current  channel  number  and 

DD18 

95  CD 

STA  $CD,X 

connect  buffer  for  side-sector 

DD1A 

20  CI 

DE 

JSR  $DEC1 

Clear  buffer  contents 

DD1D 

20  IE 

Fl 

JSR  $F11E 

Look  for  free  BAM  sector 

DD20 

A5  80 

LDA  $80 

Store  track  #  of  the  sector  as 

DD22 

8D  59 

02 

STA  $0259 

the  track  for  first  side— sector 

DD25 

A5  81 

LDA  $81 

NUITUDSr    CI    Sector    marKcU    as  icuLUi 

DD27 

8D  5A 

02 

STA  $025A 

number  for  first  side-sector 

DD2A 

A6  82 

LDX  $82 

Get  current  cnannei  numoer 

DD2C 

B5  CD 

LDA  $CD,X 

Get  #  or  cor responding  Durrer 

DD2E 

20  D3 

D6 

JSR  $D6D3 

1 racK  &  sector  ff  s  to  joo  xuup 

DD31 

A9  00 

LDA  #$00 

Set  ourrer  pointer  to  start 

DD33 

20  E9 

DE 

JSR  $DEE9 

of —buff er 

DD36 

A9  00 

LDA  #$00 

Write  lctentiner  r/xast  sector  lu 

DD38 

20  8D 

DD 

JSR  $DD8D 

buffer 

DD3B 

A9  11 

LDA  #$11 

Put  #  or  applicable  siae-sector 

DD3D 

20  8D 

DD 

JSR  $DD8D 

bytes  in  ourrer  tin 

DD40 

A9  00 

LDA  #$00 

Transfer  number  of  side-sector 

DD42 

20  8D 

DD 

JSR  $DD8D 

to  buffer 

DD45 

AD  58 

02 

LDA  $0258 

Enter  record  length 

DD48 

20  8D 

DD 

JSR  $DD8D 

in  side-sector 

DD4B 

A5  80 

LDA  $80 

Store  current  track  number 

DD4D 

20  8D 

DD 

JSR  $DD8D 

in  side-sector 

DD50 

A5  81 

LDA  $81 

Store  current  sector  number 

DD52 

20  8D 

DD 

JSR  $DD8D 

in  side-sector 

DD55 

A9  10 

LDA  #$10 

Set  buffer  pointer  to  record 

DD57 

20  E9 

DE 

JSR  $DEE9 

data  in  side-sector 

DD5A 

20  3E 

DE 

JSR  $DE3E 

Get  track  &  sector  or  last  j od 

DD5D 

A5  80 

LDA  $80 

write  t racK  v  or  ±st  J.ne  ie^Lui 

DD5F 

20  8D 

DD 

JSR  $DD8D 

in  side— sect or 

DD62 

A5  81 

LDA  $81 

Take  numoer  or  nrst  tue  sectoi 

DD64 

20  8D 

DD 

JSR  $DD8D 

into  side—sector 

DD67 

20  6C 

DE 

JSR  $DE6C 

Write  siae— sector  to  a-isxette 

DD6A 

20  99 

D5 

JSR  $D599 

Wait  until  job  is  run 

DD6D 

A9  02 

LDA  #$02 

bet  current  ourrer  point-ex  t-u 

DD6F 

20  C8 

D4 

JSR  $D4C8 

start  of  filerange 

DD72 

A6  82 

LDX  $82 

Get  number  of  current 

DD74 

38 

SEC 

channel 

DD75 

A9  00 

LDA  #$00 

Initialize  accumulator  and 

DD77 

F5  C7 

SBC  $C7,X 

calc.  &  set  pos.  of  next  record 

DD79 

95  CI 

STA  $C1,X 

from  record  length 
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DD7B 

20 

E2 

E2 

JSR 

$E2E2 

DD7E 

20 

19 

DE 

JSR 

$DE19 

DD81 

20 

5E 

DE 

JSR 

$DE5E 

DD84 

20 

99 

D5 

JSR 

$D599 

DD87 

20 

F4 

EE 

JSR 

$EEF4 

DD8A 

4C 

98 

DC 

JMP 

$DC98 

Apply  record  to  sector 
Set  chaining 

Write  sector  to  diskette;  wait 
intil  job  is  run 
Write  new  BAM  to  diskette 
Display  return  message 


[DD38/DD3D/DD42/DD48/DD4D/DD52/DD5F/DD64/E3FA/E3FE] 

Write  a  byte  to  current  side-sector 

DD8D     48  PHA  Save  byte 

DD8E    A6  82  LDX  $82  Get  current  channel  #,  sdetermine 

DD90    B5  CD  LDA  $CD,X  corresponding  buffer 

DD92     4C  FD  CF      JMP  $CFFD  Transfer  byte  in  buffer 

[Original  jump  is  not  used  in  DOS] 

Channel  number  in  filetype  flag  set  (Carry=l)  or  cleared  <Carry=0) 
DD95     90  06  BCC  $DD9D  Flags  cleared? 


[CA4F/DD97/E01A/E0A0/E107/E25F] 
Value  combined  in  filetype  (Bit 
DD97     A6  82  LDX  $82 

DD99     15  EC  ORA  $EC,X 

DD9B    DO  06  BNE  $DDA3 


=1:  set) 

NO-Get  number  of  current  channels 
put  into  filetype  flag 
Jump  to  $DDA3 


[CFAC/DD95/DFD2/E003/E0ED/E21B] 

Remove  value  from  filetype  flag  (Bit  =1:  taken  out) 

DD9D    A6  82            LDX  $82  Get  current  channel  number 

DD9F    49  FF           EOR  #$FF  and  invert  it 

DDA1    35  EC           AND  $EC,X  Mask  filetype  flag  number 

DDA3     95  EC           STA  $EC,X  Set  new  filetype 

DDA5    60                RTS  Return  from  this  subroutine 


[C9DD/DA2F/DB57/DFD7/E0AD/E0BE/E0F5/E122/E26A] 

Check  for  set  filetype  flag  (flag-value  in  accumulator) 

DDA6    A6  82  LDX  $82  Get  current  channel  number  and 

DDA8     35  EC  AND  $EC,X  test  corresponding  flag 

DDAA    60  RTS  Return  from  this  subroutine 


[CF4C/E052/E060]  Test  whether  jobcode  is  set  up  for  writing 


DDAB 

20 

93 

DF 

JSR 

$DF93 

Get  number  of  present  buffer 

and 

DDAE 

AA 

TAX 

save  it 

DDAF 

BD 

5B 

02 

LDA 

$025B,X 

Get  last  jobcode  from  buffer 

and 

DDB2 

29 

F0 

AND 

#$F0 

and  prepare  command  bits 

DDB4 

C9 

90 

CMP 

#$90 

Compare  with  write  value 

DDB6 

60 

RTS 

Return  from  this  subroutine 
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[C835] 

Test  file  pointer 


DDB7 

A  1 

n  n 
UU 

t  nv 

Jt  «5  nn 

Oct.    SeCUIluaiy    aUUl  coo 

DDB9^" 

ob 

f  X 

C  TV 
OXA 

inn 

9  /  x 

a  no  nuic  XL. 

DD5B 

BD 

ID 

AO 
UZ 

LDA 

<s  n  0  O  Q  V 
pUZZb, A 

uci  luaucmny  cnannci  numuex, 

DDBE 

cy 

r  r 

L,Mr 

ff  9r  r 

L, (JmpcLX  c   wx  L.11      ciidinicx   x  x  xsvs  vaiuc 

uucu 

DU 

no 
U  o 

Xia    L-lloillltsX  wUvcX.tSUa 

Ao 

1  X 

t  r\v 

9  '  X 

VTTQ  DoYioaf     9nHar\/    aHHrPCft  mitrlVi^>T"C 

IciO   i\€peaL    AiiUaiy    auuicaa    uluiu-'c.l  oc 

DDC4 

Eo 

XNX 

1»       /-\       A       y\  ^  V+"        3       ^  V*  d  O  O 

r\rNf"*  c; 
UUL.D 

tp  n 
CjU 

XU 

LrA 

9XU 

Pnmriaro    mi  +■  Vi    mavi  milin    sHHTAQ^  +1 
L-vJiupctx t=   w_LL.11  iiiciAxiuuiii  auuicas  ' 

DDC7 

on 

yu 

r  U 

XS    znudiy    auuia    xu    axiuwcu  j.clii^c> 

C.C\ 

OU 

DTP 

vt r\—Q afiirn    "F y om  f  h  .  c    QiiV.T*r.ii1"  i  n ^ 

LXv^I\t3L.  Ul  11    1 1  UUI    LILXS  aUWlUU.ilic 

DDCA"^ 

Q  C 

ob 

T  1 
/  1 

oXA 

9  /  X 

ocive    LJ.ec    acLUJluaiy  auuxcas 

DDCC 

or 

AINU 

f  9  or 

nofoTm  i  no    r*h  a  n  no  1  TinfflV-OT" 
UcLcIIUlIlc    Olldiliiex  liuiiujej. 

DDCE 

A8 

TAY 

and  note  xx. 

DDCF 

ny 

n  n 
UU 

t  r\R 

9  U  UiliL.  ,  I 

ucl,    L  XXeLypc    x  Xatj    aiiu   v-^i luocn 

nnno 

^  y 

n  1 

awn 

AINU 

ffyUl 

Hi  elf    Hri  iro    nn m V10 t" 

Ulbfw     Ui  J.VC     11  UltlJv'C X. 

UUuh 

/  u 

O  In 

9  /  v 

^ xro    r. t  "l  vo    nn mhp t 

UUU  D 

R  "\ 

no 

t  nv 

c;ri9  R^ 

Pntrv  nnmhPT 
uiiLiy    11  uiiiuc  x 

rM-\r\  o 

DO 

1?  O 

xjua 

9r-«£  /  A 

f*<&.~     etanriarH    Hr  "i  "trcs  '  c 
ucl    aLolludlU   ul  x  vc  0 

uuua 

^.  y 

u  X 

AINU 

ff  9  u  X 

nnnn 
UUUU 

1  u 

L.JYUr 

9  '  U 

UI  X  VC  LllUSCll 

nnnp 

UU 

£j  X 

OJNUj 

X UcJ  1  LXLaX  . 

DDE1 

B9 

60 

02 

LDA 

50260, Y 

YES— Get  directory  sector  number 

DDE4 

D5 

D8 

CMP 

$D8,X 

and  compare  with  sector  of  entry 

DDE  6 

DO 

DA 

BNE 

$DDC2 

Identical? 

DDE8 

B9 

66 

02 

LDA 

$0266, Y 

YES-Get  position  of  entry  and 

DDEB 

D5 

DD 

CMP 

$DD,X 

test  for  position  in  directory 

DDED 

DO 

D3 

BNE 

$DDC2 

Identical? 

DDEF 

18 

CLC 

YES— Flag  for  all  pointers  OK 

DDFO 

60 

RTS 

Return  from  this  subroutine 
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[DB2C/E2AA/E454] 
Write  buffer  to  diskette 
DDF1     20  9E  DF      JSR  $DF9E 
DDF 4     50  06  BVC  $DDFC 

DDF 6  20  5E  DE  JSR  $DE5E 
DDF 9     20  99  D5       JSR  $D599 


DDFC-1  60 


RTS 


Test  buffer  status 
Has  data  in  buffer  been  changed? 
YES-write  sector  to  diskette 
Wait  until  job  is  executed 
Return  from  this  subroutine 


[E3AC/E3BF] 

Set  chained  bytes  which  point  to  next  sector 


DDFD 

20 

2B 

DE 

JSR 

$DE2B 

Set  current  buffer  pointer 

DE00 

A5 

80 

LDA 

$80 

Transfer  track  #  of  next  sector 

DE02 

91 

94 

STA 

<$94),Y 

to  buffer 

DE04 

C8 

INY 

Buffer  pointer  to  next  position 

DE05 

A5 

81 

LDA 

$81 

Write  number  of  next  sector  to 

DE07 

91 

94 

STA 

($94) , Y 

current  buffer 

DE09 

4C 

05 

El 

JMP 

$E105 

Buffer  marked  as  'changed' 

[E2AD/E3D7] 

Get  linked  bytes,  which  point  to  the  next  sector 


DE0C 

20 

2B  DE 

JSR 

$DE2B 

Set  current  buffer  pointer 

DE0F 

Bl 

94 

LDA 

($94) , Y 

Get  track  #  of  next  sector  from 

DE11 

85 

80 

STA 

$80 

buffer  and  save  it  down 

DE13 

C8 

INY 

Set  buffer  pointer  to  next  byte 

DE14 

Bl 

94 

LDA 

($94) ,Y 

Get  #  of  next  sector  from  buffer; 

DEI  6 

85 

81 

STA 

$81 

save  as  current  sector 

DE18 

60 

RTS 

Return  from  this  subroutine 

[DD7E/E3D1] 

Set  indicator  for  last  sector  in  linked  bytes 


DE19 

20 

2B  DE 

JSR 

$DE2B 

Set  current  buffer  pointer 

DE1C 

A9 

00 

LDA 

#$00 

Write  identifier  for  last  sector 

DE1E 

91 

94 

STA 

($94) , Y 

to  the  buffer 

DE20 

C8 

INY 

Buffer  pointer  to  next  byte 

DE21 

A6 

82 

LDX 

$82 

Get  current  channel  number 

DE23 

B5 

CI 

LDA 

$C1,X 

Get  #  of  applicable  file  bytes 

DE25 

AA 

TAX 

from  table  and 

DE2  6 

CA 

DEX 

correct  it 

DE27 

8A 

TXA 

(including  0) 

DE28 

91 

94 

STA 

($94) ,Y 

Write  number  to  buffer 

DE2A 

60 

RTS 

Return  from  this  subroutine 
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[DDFD/DE0C/DE19/E1B2/E2E2]  Set  current  buffer's  pointer  to  zero 


DE2B 

20 

93  DF 

JSR 

$DF93 

Get  buffer  number  and 

DE2E 

OA 

ASL 

A 

double  it  (pointer  table  works 

DE2F 

AA 

TAX 

with  2-byte  values) 

DE30 

B5 

9A 

LDA 

$9A,X 

Get  hi-byte  of  buffer  address  and 

DE32 

85 

95 

STA 

$95 

send  to  buffer  pointer 

DE34 

A9 

00 

LDA 

#$00 

Set  low-byte  to  start-of- 

DE36 

85 

94 

STA 

$94 

buf fer 

DE38 

AO 

00 

LDY 

#$00 

Reset  index  pointer  to  beginning 

DE3A 

60 

RTS 

Return  from  this  subroutine 

[C5E8/C634/D48D/D6F4/D937/D987] 

Get  current  track  and  sector  of  current  job 

DE3B    20  EB  DO      JSR  $D0EB  Get  channel  #  of  2ndary  address 


[D9F5/DCA6/DD5A/E2D0/E3E0/E824/E840/F11E] 
Get  track  and  sector  of  current  job 


DE3E 

20 

93 

DF 

JSR 

$DF93 

Determine  corresponding  buffer  # 

DE41 

85 

F9 

STA 

$F9 

and  save  as  current  buffer 

DE43 

OA 

ASL 

A 

Double  buffer  #  (track/sector 

DE44 

A8 

TAY 

table  works  with  2-byte  values) 

DE45 

B9 

06 

00 

LDA 

$0006, Y 

Get  track  number  of  current  job  & 

DE48 

85 

80 

STA 

$80 

save  as  current  track  number 

DE4A 

B9 

07 

00 

LDA 

$0007, Y 

Get  concurrent  sector  number  & 

DE4D 

85 

81 

STA 

$81 

take  on  as  current  sector 

DE4F 

60 

RTS 

Return  from  this  subroutine 

[E4A6/DE57:CAA9,CF5A,E057,E065,E075/DE5E:C0BB,CAC3,DD81,DDF6,E047,E3B3] 
[E3D4 , E4ED/DE6C : DD67 , E42D/DE73 : DC92 ] 
Give  jobcodes  to  jobloop 


DE50 

A9 

90 

LDA 

#$90 

Setjobcode  for 

DE52 

8D 

4D 

02 

STA 

$024D 

'write  sector' 

DE55 

DO 

28 

BNE 

$DE7F 

Jump  to  $DE7F 

DE575 

A9 

80 

LDA 

#$80 

Set  ' read  sector ' 

DE59 

8D 

4D 

02 

STA 

$024D 

jobcode 

DE5C 

DO 

21 

BNE 

$DE7F 

Jump  to  $DE7F 

DE5E8 

A9 

90 

LDA 

#$90 

Set  'write  sector' 

DE60 

8D 

4D 

02 

STA 

$024D 

jobcode 

DE63 

DO 

26 

BNE 

$DE8B 

Jump  to  $DE7F 

DE65 

A9 

80 

LDA 

#$80 

Set  jobcode  to  read 

DE67 

8D 

4D 

02 

STA 

$024D 

sector 

DE6A 

DO 

IF 

BNE 

$DE8B 

Jump  to  $DE7F 

DE6C2 

A9 

90 

LDA 

#$90 

Set  'write  sector' 

DE6E 

8D 

4D 

02 

STA 

$024D 

jobcode 

DE71 

DO 

02 

BNE 

$DE75 

Jump  to  $DE7F 

DE731 

A9 

80 

LDA 

#$80 

Set  'read  sector' 
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DE75 

8D 

4D 

02 

STA 

$024D 

jobcode 

DE78 

A6 

82 

LDX 

$82 

Get  current  channel  number 

DE7A 

B5 

CD 

LDA 

$CD,X 

Find  out  number  of  third  buffer 

DE7C 

AA 

TAX 

and  save  it  down 

DE7D 

10 

13 

BPL 

$DE92 

Is  buffer  used? 

DE7F2 

20 

DO 

D6 

JSR 

$D6D0 

NO— Track  &  sector  to  job  loop 

DE82 

20 

93 

DF 

JSR 

$DF93 

Get  number  of  current  buffer  and 

DE85 

AA 

TAX 

save  it  down 

DE86 

A5 

7F 

LDA 

$7F 

Get  number  of  current  disk  drive 

DE88 

9D 

5B 

02 

STA 

$025B,X 

and  assign  buffer 

DE8B2 

20 

15 

El 

JSR 

$E115 

Clear  'buffer  changed'  flag 

DE8E 

20 

93 

DF 

JSR 

$DF93 

Get  current  buffer  number  &  save 

DE91 

AA 

TAX 

it  down 

DE921 

4C 

06 

D5 

JMP 

$D506 

Test  parameters;  execute  job 

[DA34/E03F/E.06B] 

Parameters  of  next  sector  set  by  onhand  linked  bytes 


DE95 

A9 

00 

LDA 

#$00 

Reset  current  buffer  pointer  to 

DE97 

20 

C8 

D4 

JSR 

$D4C8 

start-of -buffer 

DE9A 

20 

37 

Dl 

JSR 

$D137 

Get  byte  from  buffer  and 

DE9D 

85 

80 

STA 

$80 

take  on  as  current  track  number 

DE9F 

20 

37 

Dl 

JSR 

$D137 

Get  byte  from  buffer  and  set  as 

DEA2 

85 

81 

STA 

$81 

current  sector  number 

DEA4 

60 

RTS 

Return  from  this  subroutine 

[E467] 

Copy  file  from  buffer  to  another  buffer 

(Accumulator  must  contain  #  of  bytes;  Y  the  source  buffers  number; 


X  the 

destination  buffer  number) 

DEA5 

48 

PHA 

Save  number  of  bytes  to  be  copied 

DEA6 

A9 

00 

LDA 

#$00 

Clear  low-bytes  of 

DEA8 

85 

6F 

STA 

$6F 

both  buffer 

DEAA 

85 

71 

STA 

$71 

pointers 

DEAC 

B9 

E0  FE 

LDA 

$FEE0,Y 

Set  hi-byte  of  buffer  address  of 

DEAF 

85 

70 

STA 

$70 

source  buffer 

DEB1 

BD 

E0  FE 

LDA 

$FEE0,X 

Set  hi-byte  of  buffer  address  of 

DEB4 

85 

72 

STA 

$72 

destination  buffer 

DEB  6 

68 

PLA 

Get  #  of  bytes  to  be  transferred 

DEB7 

A8 

TAY 

again  and  save 

DEB8 

88 

DEY 

Initialize  pointer 

DEB91 

Bl 

6F 

LDA 

($6F) ,Y 

Read  byte  from  source  buffer  and 

DEBB 

91 

71 

STA 

($71), Y 

transfer  to  destination  buffer 

DEBD 

88 

DEY 

Set  buffer  pointer  to  next  byte 

DEBE 

10 

F9 

BPL 

$DEB9 

All  data  transferred? 

DEC0 

60 

RTS 

YES— Return  from  this  subroutine 
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[DD1A/E45B] 

Clear  buffer  with  $00  (Number 

DEC1     A8  TAY 

DEC2     B9  EO  FE  LDA  $FEE0,Y 

DEC5     85  70  STA  $70 

DEC 7     A9  00  LDA  #$00 

DEC 9     85  6F  STA  $6F 

DECB     A8  TAY 

DECC1  91  6F  STA  ($6F),Y 

DECE     C8  I NY 

DECF     DO  FB  BNE  $DECC 

DED1     60  RTS 


in  A) 

Save  buffer  number 

Get  hi-byte  of  buffer  address  and 

define  in  pointer 

Set  low-byte  of  pointer  to  the 

start-of -buffer 

Clear  buffer  with  value  of  buffer 
number 

Buffer  pointer  to  next  position 
Entire  buffer  cleared? 
YES-Return  from  this  subroutine 


[DF66/E1CB] 

Get  number  of  current  side-sector 


DED2 

A9 

00 

LDA 

#$00 

Get  buffer  address  and  set  in 

DED4 

20 

DC  DE 

JSR 

$DEDC 

pointers  $94/$95 

DED7 

AO 

02 

LDY 

#$02 

Choose  position  in  buffer 

DED9 

Bl 

94 

LDA 

($94), Y 

Get  #  of  side-sector  from  sector 

DEDB 

60 

RTS 

Return  from  this  subroutine 

[DED4/DEEA/E41E/E46C] 

Set  buffer  pointers  $94/$95  to  any  position  in  buffer 


DEDC 

85 

94 

STA 

$94 

Save  desired  position  in  buffer 

DEDE 

A6 

82 

LDX 

$82 

Get  current  channel  number  and 

DEE0 

B5 

CD 

LDA 

$CD,X 

establish  preassigned  3rd  buffer; 

DEE2 

AA 

TAX 

save  buffer  number 

DEE3 

BD 

E0  FE 

LDA 

$FEE0,X 

Get  high-byte  of  buffer  address 

DEE  6 

85 

95 

STA 

$95 

and  set  in  pointer 

DEE  8 

60 

RTS 

Return  from  this  subroutine 

[DD33/DD57/DF14/E1FF/E35A/E3F4] 

Set  buffer  pointer 

DEE  9 

48 

PHA 

Save  desired  position  in  buffer 

DEEA 

20 

DC  DE 

JSR 

$DEDC 

Set  buffer  pointer 

DEED 

48 

PHA 

Save  high-byte  of  buffer  address 

DEEE 

8A 

TXA 

Get  current  buffr  number  &  double 

DEEF 

OA 

ASL 

A 

it  (table  contains 

DEF0 

AA 

TAX 

2 -byte  values) 

DEF1 

68 

PLA 

Get  hi-byte  of  buffer  address  and 

DEF2 

95 

9A 

STA 

$9A,X 

set  in  buffer  address  table 

DEF4 

68 

PLA 

Get  position  in  buffer  &  enter  in 

DEF5 

95 

99 

STA 

$99, X 

table 

DEF7 

60 

RTS 

Return  from  this  subroutine 
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[E258/E43C] 

Read  side-sector  in  buffer  and  set  pointers 


DEF8 

20 

66 

DF 

JSR 

$DF66 

Test  status  of  side-sectors 

DEFB 

30 

OE 

BMI 

$DF0B 

Does  a  side-sector  exist? 

DEFD 

50 

13 

BVC 

$DF12 

YES-Is  side-sector  in  buffer? 

DEFF 

A6 

82 

LDX 

$82 

NO-Get  current  channel  number 

DF01 

B5 

CD 

LDA 

$CD,X 

Determine  pre-arranged  buffer  # 

DF03 

20 

IB 

DF 

JSR 

$DF1B 

Read  side-sector  into  buffer 

DF06 

20 

66 

DF 

JSR 

$DF66 

Test  status  again 

DF09 

10 

07 

BPL 

$DF12 

Everything  runnng  with  no  errors? 

DFOB1 

20 

CB 

El 

JSR 

$E1CB 

NO— Search  for  end  of  rel.  file 

DFOE 

2C 

CE 

FE 

BIT 

$FECE 

Set  N  and  V  Processor  flags 

DF11 

60 

RTS 

Return  from  this  subroutine 

DF122 

A5 

D6 

LDA 

$D6 

Get  position  in  side-sector  and 

DF14 

20 

E9 

DE 

JSR 

$DEE9 

set  buffer  pointer 

DF17 

2C 

CD 

FE 

BIT 

$FECD 

Clear  all  flags 

DF1A 

60 

RTS 

Return  from  this  subroutine 

[DF03/E1EC/E4D6] 

Read  sector  (buffer  pointer  to  current  buffr  must  turn  according  to 
track  &  sector  parameters  of  linked  bytes) 


DF1B 

85 

F9 

STA 

$F9 

Save  buffer  number 

DF1D 

A9 

80 

LDA 

#$80 

Set  1  read  sector '  jobode 

DF1F 

DO 

04 

BNE 

$DF25 

Jump  to  $DF25 

DF21 

85 

F9 

STA 

$F9 

Save  current  buffer  number 

DF23 

A9 

90 

LDA 

#$90 

Set  'write  sector'   jobcode  and 

DF251 

48 

PHA 

note  jobcode 

DF2  6 

B5 

EC 

LDA 

$EC,X 

Get  filetype  of  channel, determine 

DF2  8 

29 

01 

AND 

#$01 

disk  drive  chosen 

DF2A 

85 

7F 

STA 

$7F 

Take  on  as  current  drive  number 

DF2C 

68 

PLA 

Get  jobcode  again  and 

DF2D 

05 

7F 

ORA 

$7F 

combine  with  drive  number 

DF2F 

8D 

4D 

02 

STA 

$024D 

Save  jobcode 

DF32 

Bl 

94 

LDA 

($94) ,Y 

Read  &  store  number  of 

DF34 

85 

80 

STA 

$80 

next  sector  from  buffer 

DF36 

C8 

I  NY 

Set  buffer  pointer  to  next  byte 

DF37 

Bl 

94 

LDA 

($94) ,Y 

Get  sector  number  from  buffer  and 

DF39 

85 

81 

STA 

$81 

take  it  over 

DF3B 

A5 

F9 

LDA 

$F9 

Current  buffer  number 

DF3D 

20 

D3 

D6 

JSR 

$D6D3 

Track/sector  params  to  jobloop 

DF4  0 

A6 

F9 

LDX 

$F9 

Get  current  buffer  number 

DF42 

4C 

93 

D5 

JMP 

$D593 

Execute  job 
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[E3E9/E40F/E418] 

Set  side-sector  pointer 

DF45    A6  82  LDX  $82  Current  channel  number 

DF47     B5  CD  LDA  $CD,X  Get  number  of  preassigned  buffer 

DF4  9    4C  EB  D4      JMP  $D4EB  Set  buffer  pointer 


[DF52/Jump  to  DF51/DF5C  in  DB48/DF4E/DF57/E381/DF51 :DB48] 
Calculate  number  of  sectors  in  a  relative  file 


DF4C 

A9 

78 

LDA 

#$78 

Add  number  of  sector  pointers 

DF4E 

20 

5C 

DF 

JSR 

$DF5C 

side-  sector  to  pointer 

DF511 

CA 

DEX 

Set  next  side-sector  number 

DF52 

10 

F8 

BPL 

$DF4C 

All  side-sectors  considered? 

DF54 

A5 

72 

LDA 

$72 

YES— Divide  number  of  linked 

DF56 

4A 

LSR 

A 

bytes  by  2 

DF57 

20 

5C 

DF 

JSR 

$DF5C 

Add 

DF5A 

A5 

73 

LDA 

$73 

number  of  side-sectors 

DF5C2 

18 

CLC 

Initialize  addition 

DF5D 

65 

70 

ADC 

$70 

Add  value 

DF5F 

85 

70 

STA 

$70 

to  counter 

DF61 

90 

02 

BCC 

$DF65 

Found  a  transfer? 

DF63 

E6 

71 

INC 

$71 

YES-Correct  high-byte 

DF651 

60 

RTS 

Return  from  this  subroutine 

[DEF8/DF06] 

Test  status  of  a  side-sector 


DF66 

20 

D2 

DE 

JSR 

$DED2 

Get  #  of  side-sectors  from  buffer 

DF69 

C5 

D5 

CMP 

$D5 

Compare  w/sector  being  searched 

DF6B 

DO 

0E 

BNE 

$DF7B 

Is  correct  side-sector  in  buffer? 

DF6D 

A4 

D6 

LDY 

$D6 

YES-Get  pointer  in  buffer 

DF6F 

Bl 

94 

LDA 

($94), Y 

Get  track  number  of  record 

DF71 

F0 

04 

BEQ 

$DF77 

ist  record  applied? 

DF73 

2C 

CD 

FE 

BIT 

$FECD 

YES-Clear  error  flags 

DF76 

60 

RTS 

Return  from  this  subroutine 

DF771 

2C 

CF 

FE 

BIT 

$FECF 

Set  'no  record'  flag 

DF7A 

60 

RTS 

Return  from  this  subroutine 

DF7B1 

A5 

D5 

LDA 

$D5 

Get  #  of  side-sector  searched 

DF7D 

C9 

06 

CMP 

#$06 

Compare  with  largest  side-sector 

DF7F 

B0 

OA 

BCS 

$DF8B 

Is  number  in  allowable  range? 

DF81 

OA 

ASL 

A 

YES— Double  side-sector  number  and 

DF82 

A8 

TAY 

save  it 

DF83 

A9 

04 

LDA 

#$04 

Set  buffer  number  and 

DF85 

85 

94 

STA 

$94 

store  it 

DF87 

Bl 

94 

LDA 

($94) , Y 

Get  track  number  of  side-sector 
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DF89    DO  04  BNE  $DF8F  Is  track  set? 

DF8B1  2C  DO  FE  BIT  $FED0  NO-Set  error  flag 

DF8E    60  RTS  Return  from  this  subroutine 

DF8F1  2C  CE  FE  BIT  $FECE  Set  'Sector  not  in  buffer'  flag 

DF92     60  RTS  Return  from  this  subroutine 


[CAB7/CDEC/CF6F/CFF2/D0CC/D12F/D1D3/D324/D44D/D4CA/D4E8/D4F8/D6D0/D75E] 
[DBC3/DDAB/DE2B/DE3E/DE82/DE8E/E07F/E457/E4D1/ECB3/ECDC/ED0D/ED32/ED4  6] 
[EEF4] 

Determine    number  of  current  buffer 


DF93 

A6 

82 

LDX 

$82 

Get  number  of  current  channel 

DF95 

B5 

A7 

LDA 

$A7,X 

Test  buffer  layout 

DF97 

10 

02 

BPL 

$DF9B 

1st  buffer  reserved? 

DF99 

B5 

AE 

LDA 

$AE,X 

Get  number  of  second 

DF9B 

29 

BF 

AND 

#$BF 

buffer 

DF9D 

60 

RTS 

Return  from  this  subroutine 

[DDF1/E042/E10A/E115/E4B1] 
Get  current  buffer  status 


DF9E 

A6 

82 

LDX 

$82 

Get  number  of  present  channel  and 

DFA0 

8E 

57  02 

STX 

$0257 

save  it 

DFA3 

B5 

A7 

LDA 

$A7,X 

Get  buffer  number 

DFA5 

10 

09 

BPL 

$DFB0 

Is  buffer  reserved? 

DFA7 

8A 

TXA 

YES— Get  channel  number  again 

DFA8 

18 

CLC 

and  convert  and  save  as 

DFA9 

69 

07 

ADC 

#$07 

number  for  access  to 

DFAB 

8D 

57  02 

STA 

$0257 

2nd  buffer 

DFAE 

B5 

AE 

LDA 

$AE,X 

Get  buffer  status  and  test 

DFB01 

85 

70 

STA 

$70 

Save  status 

DFB2 

29 

IF 

AND 

#$1F 

Mask  out  flags 

DFB4 

24 

70 

BIT 

$70 

Is  buffer  active? 

DFB6 

60 

RTS 

Return  from  this  subroutine 

[CF21/CF7E] 

Test  whether  buffer  is  free 
DFB7     A6  82  LDX  $82 

DFB9     B5  A7  LDA  $A7,X 

DFBB     30  02  BMI  $DFBF 

DFBD     B5  AE  LDA  $AE,X 


DFBF1  C9  FF 
DFC1  60 


CMP  #$FF 
RTS 


Current  channel  number 

Get  appropriate  buffer  number 

Is  buffer  reserved? 

YES— Test  buffer  status 

Compare  w/' buffer  active'  value 

Return  from  this  subroutine 
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[CF2E/CF88] 

Activate  current  buffer   (2-buffer  operation) 


DFC2 

A6 

82 

LDX 

$82 

Get  current  channel  number 

DFC4 

09 

80 

ORA 

#$80 

Set  'buffer  inactive'  flag 

DFC6 

B4 

A7 

LDY 

$A7,X 

Get  number  of  suitable  buffer 

DFC8 

10 

03 

BPL 

$DFCD 

Is  1st  buffer  reserved? 

DFCA 

95 

A7 

STA 

$A7,X 

NO-Activate  1st  buffer 

DFCC 

60 

RTS 

Return  from  this  subroutine 

DFCD1 

95 

AE 

STA 

$AE,X 

Assign  #  for  2nd  buffr  of  channel 

DFCF 

60 

RTS 

Return  from  this  subroutine 

[E153/E009:E291] 

Write 

record  of 

a  relative  file 

DFDO 

A9 

20 

LDA 

#$20 

Clear  'record  full' 

DFD2 

20 

9D 

DD 

JSR 

$DD9D 

flag 

DFD5 

A9 

80 

LDA 

#$80 

Flag  for  last  byte  (EOI) 

DFD7 

20 

A6 

DD 

JSR 

$DDA6 

Test  flag 

DFDA 

DO 

41 

BNE 

$701D 

Last  byte  been  received? 

DFDC 

A6 

82 

LDX 

$82 

NO-Get  current  channel  number  and 

DFDE 

F6 

B5 

INC 

$B5,X 

increment    recordd  number 

DFEO 

DO 

02 

BNE 

$DFE4 

Is  a  transfer  imminent? 

DFE2 

F6 

BB 

INC 

$BB,X 

YES-Correct  high-byte 

DFE41 

A6 

82 

LDX 

$82 

Get  current  channel  number 

DFE6 

B5 

CI 

LDA 

$C1,X 

Get  pointer  to  position  on  buffer 

DFE8 

FO 

2E 

BEQ 

$7018 

Pointer  set? 

DFEA 

20 

E8 

D4 

JSR 

$D4E8 

YES-Get  buffer  pointer  again 

DFED 

A6 

82 

LDX 

$82 

Get  current  channel  number  and 

DFEF 

D5 

CI 

CMP 

$C1,X 

compare  buffr  ptr  w/record  pointr 

DFF1 

90 

03 

BCC 

$DFF6 

Is  buffer  pointer<record  pointer? 

DFF3 

20 

3C 

EO 

JSR 

$E03C 

NO— Write  record  to  buffer 

DFF61 

A6 

82 

LDX 

$82 

Current  channel  number 

DFF8 

B5 

CI 

LDA 

$C1,X 

Get  corresp.  pointer  to  record  & 

DFFA 

20 

C8 

D4 

JSR 

$D4C8 

set  corresponding  buffer  pointer 

DFFD 

Al 

99 

LDA 

($99,X) 

Get  filebyte  from  buffer 

DFFF 

85 

85 

STA 

$85 

and  save  it 

E001 

A9 

20 

LDA 

#$20 

Clear  'record  full' 

E003 

20 

9D 

DD 

JSR 

$DD9D 

flag 

E006 

20 

04 

E3 

JSR 

$E304 

Add  record  length  to  buffr  pointr 

E0091 

48 

PHA 

Save  new  pointer  value 

EOOA 

90 

28 

BCC 

$E034 

Record  still  pass  in  curnt  sectr? 

EOOC 

A9 

00 

LDA 

#$00 

NO— Set  position  pointer  and  get 

EOOE 

20 

F6 

D4 

JSR 

$D4F6 

byte  (track  number)   from  buffer 

E011 

DO 

21 

BNE 

$E034 

Is  there  another  fileblock  ahead? 

E013 

68 

PLA 

NO-Get  new  buffer  pointer, compare 

E014 

C9 

02 

CMP 

#$02 

with  value  for  file  start 

E016 

FO 

12 

BEQ 

$E02A 

Is  the  new  buffer  empty? 
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E0181 

A9 

80 

LDA 

#$80 

NC—Set  flag  to  last  byte 

E01A 

20 

97 

DD 

JSR 

$DD97 

(EOI) 

E01D1 

20 

2F 

Dl 

JSR 

$D12F 

Determine  buffer  &  channel  number 

E020 

B5 

99 

LDA 

$99, X 

Get  lo-byte  of  buffer  pointer  & 

E022 

99 

44 

02 

STA 

$0244 , Y 

save  as  last  character 

E025 

A9 

OD 

LDA 

#$0D 

Send  <RETURN> 

E027 

85 

85 

STA 

$85 

as  output 

E029 

60 

RTS 

Return  from  thi,s  subroutine 

E02A^ 

20 

35 

EO 

JSR 

$E035 

Set  pointer  to  last  character 

E02D 

A6 

82 

LDX 

$82 

Number  of  current  channel 

E02F 

A9 

00 

LDA 

#$00 

Clear  pointer  to 

E031 

95 

CI 

STA 

$C1,X 

next  record 

E033 

60 

RTS 

Return  from  this  subroutine 

[E00A/E011] 

Set 

pointer  to  last 

character 

E034 

68 

PLA 

Pointer  to  start  of  next  record 

E0351 

A6 

82 

LDX 

$82 

Get  current  channel  number  S  save 

E037 

95 

CI 

STA 

$C1,X 

pointer 

E039 

4C 

6E 

El 

JMP 

$E16E 

Set  pointer  to  last  character 

[DFF3/E0A7/E135]   Prepare  sector  of  record 


E03C 

20 

D3 

Dl 

JSR 

$D1D3 

Determine  drive  chosen 

E03F 

20 

95 

DE 

JSR 

$DE95 

Track/sector  of  next  block 

E042 

20 

9E 

DF 

JSR 

$DF9E 

Test  buffer  status 

E045 

50 

16 

BVC 

$E05D 

Buffer  contents  been  changed? 

E047 

20 

5E 

DE 

JSR 

$DE5E 

YES-Write  buffer  to  diskette 

E04A 

20 

IE 

CF 

JSR 

$CF1E 

Adjust  new  buffer 

E04D 

A9 

02 

LDA 

#$02 

Set  buffer  pointer  to  beginning 

E04F 

20 

C8 

D4 

JSR 

$D4C8 

OF  file  range 

E052 

20 

AB 

DD 

JSR 

$DDAB 

Test  last  job  for  writing 

E055 

DO 

24 

BNE 

$E07B 

Sector  already  been  written  on? 

E057 

20 

57 

DE 

JSR 

$DE57 

YES-Put  sector  back  into  buffer 

E05A 

4C 

99 

D5 

JMP 

$D599 

&  wait  til  job  has  been  executed 

E05D1 

20 

IE 

CF 

JSR 

$CF1E 

Adjust  new  buffer 

E060 

20 

AB 

DD 

JSR 

$DDAB 

Test  last  job  for  writing 

E063 

DO 

06 

BNE 

$E06B 

Sector  previously  used  f/writing? 

E065 

20 

57 

DE 

JSR 

$DE57 

YES— Read  sector  from  disk  &  wait 

E068 

20 

99 

D5 

JSR 

$D599 

until  job  has    been  executed 

E06B1 

20 

95 

DE 

JSR 

$DE95 

Track  and  sector  of  next  block 

E06E 

A5 

80 

LDA 

$80 

Get  number  of  next  track 

E070 

F0 

09 

BEQ 

$E07B 

Another  sector  available? 

E072 

20 

IE 

CF 

JSR 

$CF1E 

YES-Re-apply  buffer 

E075 

20 

57 

DE 

JSR 

$DE57 

Read  sector  from  diskette 

E078 

20 

IE 

CF 

JSR 

$CF1E 

and  apply  new  buffer 

E07B2 

60 

RTS 

Return  from  this  subroutine 
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[E0B4/E0FE) 

Write 

a  char,  of 

a  record  into 

buffer 

E07C 

20 

05 

El 

JSR 

$E105 

Set  'buffer  altered'  flag 

E07F 

20 

93 

DF 

JSR 

$DF93 

Get  number  of  current  buffer 

E082 

OA 

ASL 

A 

and  double  it   (buffr  pointr  table 

E083 

AA 

TAX 

works  with  2-byte  values) 

E084 

A5 

85 

LDA 

$85 

Get  byte  to  be  transferred 

E086 

81 

99 

STA 

($99,X) 

and  write  in  buffer 

E088 

B4 

99 

LDY 

$99, X 

Get  buffer  pointer  (lo-byte)S  set 

E08A 

C8 

INY 

to  next  position 

E08B 

DO 

09 

BNE 

$E096 

Reached  end  of  buffer? 

E08D 

A4 

82 

LDY 

$82 

YES— Get  present  channel  number  & 

E08F 

B9 

CI 

00 

LDA 

$00C1, Y 

pointer  to  next  record 

E092 

FO 

OA 

BEQ 

$E09E 

Pointer  set? 

E094 

AO 

02 

LDY 

#$02 

YES— Set  buffer  pointer  to  start 

E0961 

98 

TYA 

of  filerange 

E097 

A4 

82 

LDY 

$82 

Get  current  channel  number 

E099 

D9 

CI 

00 

CMP 

$00C1, Y 

Compare  buffer-  S  record  pointers 

E09C 

DO 

05 

BNE 

$E0A3 

Record  pointr  at  start-of-buf f er? 

E09E-1- 

A9 

20 

LDA 

#$20 

YES-Set  'record  full' 

EOAO 

4C 

97 

DD 

JMP 

$DD97 

flag 

E0A31 

F6 

99 

INC 

$99, X 

Turn  buffer  pointer  to  next  byte 

E0A5 

DO 

03 

BNE 

$E0AA 

Reached  end  of  buffer? 

E0A7 

20 

3C 

EO 

JSR 

$E03C 

YES— Write  sector  to  diskette 

EOAA1 

60 

RTS 

Return  from  this  subroutine 

[CFCB] 

Write 

record  to 

data 

buffer 

EOAB 

A9 

AO 

LDA 

#$A0 

Test  flags  for  'last  byte' (EOI)  & 

EOAD 

20 

A6 

DD 

JSR 

$DDA6 

'record  full' 

EOBO 

DO 

27 

BNE 

$E0D9 

Is  there  a  flag  set? 

EOB21 

A5 

85 

LDA 

$85 

NO-Get  byte  from  input  register  & 

E0B4 

20 

7C 

EO 

JSR 

$E07C 

write  to  record 

EOB7 

A5 

F8 

LDA 

$F8 

Test  for  'last  byte*    (EOI)  flag 

EOB9 

FO 

OD 

BEQ 

$E0C8 

Was  that  the  last  byte? 

EOBB 

60 

RTS 

YES— Return  from  this  subroutine 

EOBC1 

A9 

20 

LDA 

#$20 

Test  for  'record  full' 

EOBE 

20 

A6 

DD 

JSR 

$DDA6 

flag 

EOC1 

FO 

05 

BEQ 

$E0C8 

Is  record  already  written  full? 

E0C3 

A9 

51 

LDA 

#$51 

YES-Set  error  flag 

E0C5 

8D 

6C 

02 

STA 

$026C 

for  '51  overflow  in  record' 

E0C82 

20 

F3 

EO 

JSR 

$E0F3 

Fill  rest  of  record  with  nulls 

EOCB 

20 

53 

El 

JSR 

$E153 

Get  next  record 

EOCE 

AD 

6C 

02 

LDA 

$02  6C 

Check  for  error  flag 

EOD1 

FO 

03 

BEQ 

$E0D6 

Encountered  an  error? 

E0D3 

4C 

C8 

CI 

JMP 

$C1C8 

YES— Display  error  message 
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E0D61 

4C 

BC 

E6 

JMP 

$E6BC 

Prepare  'Ok'  message 

E0D91 

29 

80 

AND 

#$80 

Test  flag  for  'last  byte'  (EOI) 

EODB 

DO 

05 

BNE 

$E0E2 

Is  flag  set? 

EODD 

A5 

F8 

LDA 

$F8 

NO-Test  EOI  from  serial  bus 

EODF 

FO 

DB 

BEQ 

$EOBC 

Is  flag  set? 

EOE1 

60 

RTS 

YES— Return  from  this  subroutine 

E0E21 

A5 

85 

LDA 

$85 

Get  byte  from  input  register; 

E0E4 

48 

PHA 

save  it 

E0E5 

20 

1C 

E3 

JSR 

$E31C 

Develop  relative  file 

E0E8 

68 

PLA 

Set  back  byte  and 

E0E9 

85 

85 

STA 

$85 

save  it 

EOEB 

A9 

80 

LDA 

#$80 

Clear  'last  byte  in  file'  (EOI) 

EOED 

20 

9D 

DD 

JSR 

$DD9D 

flag 

EOFO 

4C 

B2 

EO 

JMP 

$E0B2 

Write  record  further  in  buffer 

[E0C8/E101] 

Fill  rest  of  record  with  empty  bytes 


E0F3 
E0F5 
E0F8 
E0FA 
E0FC 
E0FE 
E101 
E1041 


A9  20 
20  A6  DD 
DO  OA 
00 
85 

7C  EO 
4C  F3  EO 
60 


A9 
85 
20 


LDA  #$20 
JSR  $DDA6 
BNE  $E104 
LDA  #$00 
STA  $85 
JSR  $E07C 
JMP  $E0F3 
RTS 


Test  for  'record  full' 
flag 

Is  entire  record  filled? 
Set  value  for 
null  bytes 

Write  byte  in  record 

Fill  in  next  byte 

Return  from  this  subroutine 


[DE09/E07C] 

Set  flag  for  'buffer  data  altered' 


E105 

A9 

40 

LDA 

#$40 

Set  flag  for  'sector 

E107 

20 

97 

DD 

JSR 

$DD97 

altered' 

E10A 

20 

9E 

DF 

JSR 

$DF9E 

Get  buffer  status 

E10D 

09 

40 

ORA 

#$40 

Flag  for  'buffer  altered' 

E10F 

AE 

57 

02 

LDX 

$0257 

#  of  channel+7   (points  to  $AE) 

E112 

95 

A7 

STA 

$A7,X 

Set  buffer  status  anew 

E114 

60 

RTS 

Return  from  this  subroutine 

[DE8B] 

Clear 

'buffer 

data  altered'  flag 

E115 

20  9E  DF 

JSR  $DF9E 

E118 

29  BF 

AND  #$BF 

E11A 

AE  57  02 

LDX  $0257 

E11D 

95  A7 

STA  $A7,X 

E11F 

60 

RTS 

Get  buffer  status 
and  combine  with  flag 
Channel  number  for  2nd  buffer 
Set  buffer  status  again  in  table 
Return  from  this  subroutine 
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[D3B1/E138:E294] 


Get  byte 

from  record 

E120 

A9 

80 

LDA 

#$80 

Check  flag  for 

E122 

20 

A6 

DD 

JSR 

$DDA6 

■last  byte'  (EOI) 

E125 

DO 

37 

BNE 

$E15E 

Is  it  last  byte  of  the  record? 

E127 

20 

2F 

Dl 

JSR 

$D12F 

NO— Initialize  buffer  pointer 

E12A 

B5 

99 

LDA 

$99, X 

Get  buffer  pointer  and  check  with 

E12C 

D9 

44 

02 

CMP 

$0244, Y 

end  position  of  record 

E12F 

F0 

22 

BEQ 

$E153 

reached  the  end  of  record? 

E131 

F6 

99 

INC 

$99, X 

NO— Buffer  pointer  to  next  byte 

E133 

DO 

06 

BNE 

$E13B 

Is  the  data  buffer  full? 

E135 

20 

3C 

EO 

JSR 

$E03C 

YES— Write  sector;  get  next  one 

E1381 

20 

2F 

Dl 

JSR 

$D12F 

Initialize  buffer  pointer 

E13B1 

Al 

99 

LDA 

($99,X) 

Get  byte  from  data  buffer 

E13D1 

99 

3E 

02 

STA 

$023E,Y 

and  save  it 

E140 

A9 

89 

LDA 

#$89 

Flag  for  read/write/EOI 

E142 

99 

F2 

00 

STA 

$00F2,Y 

set  in  channel  status 

E145 

B5 

99 

LDA 

$99, X 

Get  lo-byte  of  buffer  pointer  and 

E147 

D9 

44 

02 

CMP 

$0244, Y 

compare  w/value  for  end  of  record 

E14A 

FO 

01 

BEQ 

$E14D 

Has  entire  record  been  read? 

E14C 

60 

RTS 

NO— Return  from  this  subroutine 

E14D1 

A9 

81 

LDA 

#$81 

Set  read/write  flag  in 

E14F 

99 

F2 

00 

STA 

$00F2, Y 

channel  status 

E152 

60 

RTS 

Return  from  this  subroutineE14A  F0 

[DCA3/E0CB/E12F] 
Get  record  and  output  it 
E153     20  DO  DF      JSR  $DFD0 
E156     20  2F  Dl       JSR  $D12F 
E159    A5  85  LDA  $85 

E15B     4C  3D  El       JMP  $E13D 


[E125/E262/E26F] 


Error 

happens 

E15E 

A6  82 

LDX 

$82 

Get  current  channel  #  and 

E160 

A9  0D 

LDA 

#$0D 

conclude  output 

E162 

9D  3E  02 

STA 

$023E,X 

with  <RET0RN> 

E165 

A9  81 

LDA 

#$81 

Set  channel  status 

E167 

95  F2 

STA 

$F2,X 

back  again 

E169 

A9  50 

LDA 

#$50 

Display  '50  Record 

E16B 

20  C8  CI 

JSR 

$C1C8 

Not  Present'  error  message 

Get  next  record 

Determine  buffer-  and  channel  # 
Get  byte  and  prepare 
for  output 
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[E039] 

Set  pointer  to  last  character  of  record 


E16E 

A6 

82 

LDX 

$82 

Number  of  present  channel 

E170 

B5 

CI 

LDA 

$C1,X 

Pointer  to  start  of  next  record 

E172 

85 

87 

STA 

$87 

— get  and  save 

E174 

C6 

87 

DEC 

$87 

Correct  pointer (incl.0) &  compare 

E176 

C9 

02 

CMP 

#$02 

with  value  for  start -of-file 

E178 

DO 

04 

BNE 

$E17E 

Pointer  at  start  of  buffer? 

E17A 

A9 

FF 

LDA 

#$FF 

YES— Set  pointr  to  end  of  buffr  & 

E17C 

85 

87 

STA 

$87 

save  it 

E17E1 

B5 

C7 

LDA 

$C7,X 

Get  record  length  and 

E180 

85 

88 

STA 

$88 

save  it 

E182 

20 

E8 

D4 

JSR 

$D4E8 

Set  current  buffer  pointer 

E185 

A6 

82 

LDX 

$82 

Get  number  of  present  channel 

E187 

C5 

87 

CMP 

$87 

Compare  buffer-  w/record  pointer 

E189 

90 

19 

BCC 

$E1A4 

Is  the  buffer  pointer  larger? 

E18B 

F0 

17 

BEQ 

$E1A4 

YES— Are  both  pointers  equal? 

E18D 

20 

IE 

CF 

JSR 

$CF1E 

NO— Apply  new  buffer 

E190 

20 

B2 

El 

JSR 

$E1B2 

Look  for  end  of  record 

E193 

90 

08 

BCC 

$E19D 

Find  it? 

E195 

A6 

82 

LDX 

$82 

NO— Get  current  channel  number  and 

E197 

9D 

44 

02 

STA 

$0244, X 

save  pointer 

E19A 

4C 

IE 

CF 

JMP 

$CF1E 

Apply  new  buffer  and  end 

E19D1 

20 

IE 

CF 

JSR 

$CF1E 

Apply  new  buffer 

E1A0 

A9 

FF 

LDA 

#$FF 

Set  record  pointer  to  end 

E1A2 

85 

87 

STA 

$87 

of  buffer 

E1A42 

20 

B2 

El 

JSR 

$E1B2 

Search  for  end  of  record 

E1A7 

B0 

03 

BCS 

$E1AC 

EEnd  found? 

E1A9 

20 

E8 

D4 

JSR 

$D4E8 

YES— Set  current  buffer  pointer 

E1AC1 

A6 

82 

LDX 

$82 

Get  number  of  matching  channel  & 

E1AE 

9D 

44 

02 

STA 

$0244, X 

save  end  position  of  records 

E1B1 

60 

RTS 

Return  from  this  subroutine 

[E190/E1A4] 
Search  for  end 
E1B2     20  2B  DE 
E1B5     A4  87 
E1B71  Bl  94 
E1B9     DO  0D 
E1BB  88 
E1BC    CO  02 
E1BE     90  04 
E1C0     C6  88 
E1C2     DO  F3 


of  record 
JSR  $DE2B 
LDY  $87 
LDA  ($94), Y 
BNE  $E1C8 
DEY 

CPY  #$02 
BCC  $E1C4 
DEC  $88 
BNE  $E1B7 


Set  pointer  to  buffer  start 
Get  current  record  pointer 
Read  byte  from  record 
Byte  =  empty  byte? 
YES— Move  buffr  pntr  to  next  byte, 
compare  with  buffer  begin,  value 
Reached  start  of  buffer? 
NO— Decrement  record  length 
Entire  record  range  searched? 
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E1C4X  C6  88 


E1C6 
E1C7 


18 
60 


E1C8X  98 


E1C9 
E1CA 


38 
60 


DEC  $88 

CLC 

RTS 

TYA 

SEC 

RTS 


YES— Correct  record  pointer 
Set  'end  found'  flag 
Return  from  this  subroutine 
Get  current  buffer  position 
set  'end  not  found'  flag 
Return  from  this  subroutine 


[CA56/CA69/DB32/DF0B/E31F] 
Search  for  end  of  relative  file 


E1CB 

20 

D2 

DE 

JSR 

$DED2 

Get  number  of  current  side— sector 

E1CE 

85 

D5 

STA 

$D5 

and  save  it 

E1D0 

A9 

04 

LDA 

#$04 

Reset  buffer  pointer  to 

E1D2 

85 

94 

STA 

$94 

becfinnincr  of  sector 

E1D4 

AO 

OA 

LDY 

#$0A 

Poi_ntr  to  trak  of  last  sidessctor 

E1D6 

DO 

04 

BNE 

$E1DC 

Jump  to  $E1DC 

E1D8^- 

88 

DEY 

Set  buffer  oointr  to  track  #  of 

E1D9 

88 

DEY 

pr6C6di.ncr  side— sect or 

E1DA 

30 

26 

BMI 

$E202 

No  more  side— sectors  on  hand1^ 

EIDC^" 

Bl 

94 

LDA 

(394)  Y 

NO — Get  track   #  of  side-sector 

E1DE 

F0 

F8 

BEQ 

$E1D8 

T  Q    Qprf  O T     laid  filIT 

FIFO 

Qfi 

1  In 

VTi1  ^  T1  ran  cmi  f     c  i  Ho-oo /-•■♦-  f\ y- 

E1E1 

4A 

LSR 

riimhpr 

E1E2 

C5 

PMP 

E1E4 

F0 

09 

BEQ 

SF1  FF 

Trtont- 1       1  "> 
xuciiu  J.v^ax  • 

E1E6 

85 

D5 

STA 

$D5 

Llv    O  uVC     llcw     S>  _Ll_lC     oCwL.Ui-     11  UltUkJC;  J. 

E1E8 

A6 

82 

LDX 

$82 

E1EA 

B5 

CD 

LDA 

$CD,  X 

Determine  sector  buffer  and 

E1EC 

20 

IB 

DF 

JSR 

$DF1B 

read  sector 

E1EF1 

AO 

00 

LDY 

#$00 

Reset  buffer  pointer  to  begin,  of 

E1F1 

84 

94 

STY 

$94 

sector 

E1F3 

Bl 

94 

LDA 

($94) ,Y 

Get  track  of  next  sector 

E1F5 

DO 

OB 

BNE 

$E202 

No  more  side-sectors? 

E1F7 

C8 

INY 

YES— Set  pointer  to  next  position 

E1F8 

Bl 

94 

LDA 

($94) ,Y 

Get  #  of  applicable  filebytes 

E1FA 

A8 

TAY 

and  save  them 

E1FB 

88 

DEY 

Set  pointer  to  linked  bytes  of 

E1FC 

84 

D6 

STY 

$D6 

last  record's  sector 

E1FE 

98 

TYA 

and  save  it 

E1FF 

4C 

E9 

DE 

JMP 

$DEE9 

Set  buffr  pointr  to  this  position 

E2021 

A9 

67 

LDA 

#$67 

Error  message — 

E204 

20 

45 

E6 

JSR 

$E645 

•67  Illegal  Track  Or  Sector1 
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[Jump  to  routine  at  C14  6] 
Record  command  routine  ('P') 


t  o  a  o 

O  A 

zu 

-Q  -3 
Dj 

fO 

Cz 

JSR 

$C2B3 

t  o  a  a 

an 
AU 

A  1 

U  1 

AO 

t  nA 
JjUA 

6  A  O  A1 

$Uz  Ul 

t  o  An 

£iZ  UU 

Q  C 

Q  0 

CPA 

o  1A 

too 

on 

£.  U 

TTJ 

nA 
uu 

JoK 

s>UUiliD 

TO  1  O 

QA 

yu 

A  C 

oCC 

$E2  iy 

DTI  < 

A  Q 

Ay 

O  A 

/  U 

LDA 

TP  1  T 

O  A 

C8 

CI 

JSR 

$C1C8 

DO  1  ft! 

A  ft 

Ay 

A  A 

AO 

LDA 

#$A0 

E21B 

O  A 

9D 

DD 

JSR 

5DD9D 

E21E 

20 

25 

Dl 

JSR 

$D125 

E221 

F0 

05 

BEQ 

$E228 

E223 

A9 

64 

LDA 

#$64 

£22  5 

20 

C8 

CI 

JSR 

$C1C8 

TO  O  O  X 

t  na 
LDA 

$EC,  X 

TO  O  A 

o  a 

^y 

a  i 

Ul 

Avin 
AND 

#  $01 

OJ 

O  T 
ft 

CT1  A 
b  1A 

6  OT 

$  /r 

TO  OT 

an 
AU 

A  0 

uz 

AO 
Ut 

t  na 

*  AO  AO 
$UZ  UZ 

,3  J. 

ac 

de: 
03 

oln 

enc  Y 

iro  to. 

an 
AU 

a  o. 

AO 
U«& 

t  na 
JjUA 

t  AO  A*3 

do's  c 

yo 

DD 

o  1A 

9DD,  A 

a  £ 
ad 

ft*? 

t  nv 

JjUA 

Coo 
■?  o«£ 

to  o.  a 

Ay 

ft  Q 

o  y 

t  na 

JjUA 

it  <  ft  Q 

T O  Of"" 

yo 

TO 

era 
oXA 

ft  T  0  V 

TOOT 

an 
AU 

A  A 
U  ft 

AO 
UZ 

t  na 
JjUA 

C  AO  A4 
$UZ  Ufl 

TO  /I  1 

l!  0 

1  A 

10 

«t  T O  CO 

to  yi  o 

OQ 
JO 

TO  A  A 

T  Q 

01 

en/-* 

*ft  A  1 

w$Ul 

Tift 

r  U 

Uo 

T3TO 

TO  A  Q 

n  c 

^MJr 

$L-  /  /  A 

TO  A  A 

GA 

yu 

A  O 

u  / 

J3^U 

6PO  CO 

$J1jZ  jj 

E24C 

A  Q 

Ay 

C  T 

ol 

t  na 
JjUA 

ff$Ol 

TO  A  T 

on 

ou 

uz 

OlA 

9  UZ 

E251 

A9 

00 

LDA 

IMA 

#$00 

E2533 

85 

D4 

STA 

$D4 

E255 

20 

0E 

CE 

JSR 

$CE0E 

E258 

20 

F8 

DE 

JSR 

$DEF8 

E25B 

50 

08 

BVC 

$E265 

E25D 

A9 

80 

LDA 

#$80 

E25F 

20 

97 

DD 

JSR 

$DD97 

E2  62 

4C 

5E 

El 

JMP 

$E15E 

Set  command  string  pointer 

Get  2nd  command  char  from  buffer 

and  set  up  as  secondary  address 

Open  read  channel 

Has  a  free  channel  been  found? 

NO— Error  message — 

•70  No  Channel' 

Clear  EOI 

flags 

Get  filetype  and  test  it  out 

Is  there  a  relative  file? 

NO— Error  message — 

•64  File  Type  Mismatch1 

Get  channel  flag  and 

take  on  chosen  disk  drive 

as  current  drive 

Get  3rd  char  from  input  buffer  & 
set  as  low-byte  of  record  number 
Get  high-byte  of  record  number  & 
take  it  up 

Get  number  of  present  channel 

Set  read/write/EOI  flag 

in  channel  status 

Get  5th  char  from  input  buffer 

No  instructions? 

NO— Take  up  position  in  record 

and  test  for  pointer=l 

Pointer  set  to  start  of  record? 

NO-Compare  with  record  length 

Is  position  legal? 

NO— Store  '51  Overflow  In  Record' 

in  error  flag 

Set  position  pointer  to  beginning 
of  record 

Calculate  position  of  record 
Read  in  corresponding  side-sector 
Side-sector  read  without  errors? 
NO-Set  'last  byte'  (EOI) 
flag 

Error— '50  Record  Not  Present' 
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E2  651 

20 

75 

E2 

JSR 

$E275 

Read  record  searched  for 

E268 

A9 

80 

LDA 

#$80 

Test  for  'last  byte' 

E2  6A 

20 

A6 

DD 

JSR 

$DDA6 

flag 

E26D 

F0 

03 

BEQ 

$E272 

Record  not  onhand? 

E26F 

4C 

5E 

El 

JMP 

$E15E 

YES— Error— ' 50  Record  Not  Present' 

E2721 

4C 

94 

CI 

JMP 

$C194 

'Ok'  message  prepared 

[E265/E441] 

Read  record 

into 

buffer 

vol 

£.  \J 

E2 

$E2  9C 

Read  sector  containing  record 

1  ft 

m 

LDA 

$D7 

Transfer  position  in  record  to 

WOTS 

I*,  o 

TQP 

current  buffer  pointer 

E27D 

Ab 

LUX 

Present  channel  number 

E27F 

B5 

C7 

LDA 

$C7,X 

Determne  record  length  &  subtract 

E281 

38 

SEC 

current  position  in  data  field 

E282 

E5 

D4 

SBC 

$D4 

from  record  length 

E284 

BO 

03 

BCS 

$E289 

Pointer  still  in  field? 

E286 

4C 

02 

E2 

JMP 

$E202 

YES— '67  Illegal  Track  or  Sector' 

E2891 

18 

CLC 

Figure  position  of  desired  bytes 

E28A 

65 

D7 

ADC 

$D7 

in  record 

E28C 

90 

03 

BCC 

$E291 

Byte  in  next  file  sector? 

E28E 

69 

01 

ADC 

#$01 

YES— Set  to  start  position  and  set 

E290 

38 

SEC 

flag  for  next  sector 

E2911 

20 

09 

E0 

JSR 

$E009 

Set  pointer  for  next  record 

E2  94 

4C 

38 

El 

JMP 

$E138 

Get  byte  from  record 

E2  97 

A9 

51 

LDA 

#$51 

Error  message — 

E299 

20 

C8 

CI 

JSR 

$C1C8 

•51  Overflow  In  Record' 

[CA6C/E322/E275] 

Read  record  sector  contained  in  buffer 


E29C 

A5 

94 

LDA 

$94 

Retain  current  buffer  pointer  in 

E2  9E 

85 

89 

STA 

$89 

temporary  storage 

E2A0 

A5 

95 

LDA 

$95 

in  addresses 

E2A2 

85 

8A 

STA 

$8A 

$89/$8A 

E2A4 

20 

DO 

E2 

JSR 

$E2D0 

Check  buffer  for  sector 

E2A7 

DO 

01 

BNE 

$E2AA 

Is  the  sector  in  buffer? 

E2A9 

60 

RTS 

YES— Return  from  this  subroutine 

E2AA1 

20 

Fl 

DD 

JSR 

$DDF1 

Write  buffer  contents  to  diskette 

E2AD 

20 

OC 

DE 

JSR 

$DE0C 

Track  /sector  of  next  block 

E2B0 

A5 

80 

LDA 

$80 

Get  track  number  of  next  sector 

E2B2 

F0 

0E 

BEQ 

$E2C2 

More  sectors  onhand? 

E2B4 

20 

D3 

E2 

JSR 

$E2D3 

YES-Test  buffer  for  sector 

E2B7 

DO 

06 

BNE 

$E2BF 

Is  sector  already  in  buffer? 

E2B9 

20 

IE 

CF 

JSR 

$CF1E 

YES-Provide  new  buffer 

E2BC 

4C 

DA 

D2 

JMP 

$D2DA 

Free  up  all  inactive  buffers 

E2BF1 

20 

DA 

D2 

JSR 

$D2DA 

Free  up  all  inactive  buffers 
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E2C21 

AO 

00 

LDY 

#$00 

Initialize  buffer  pointer 

E2C4 

Bl 

89 

LDA 

($89)  ,Y 

Get  track  number  from  side-sector 

L.  b 

o  c 
85 

80 

STA 

$80 

and  take  as  current  track  no. 

E2C8 

C8 

I  NY 

Buffer  pointer  to  next  byte 

E2C9 

Bl 

89 

LDA 

($89)  ,Y 

Get  number  of  file  sector  and 

E2CB 

85 

81 

STA 

$81 

store  it 

E2CD 

4C 

AF 

DO 

JMP 

$D0AF 

Read  sector  in  buffer 

[E2A4] 

Test  to  see 

whether  sector  is 

already  in  buffer 

E2D0 

20 

3E 

DE 

JSR 

$DE3E 

Get  track/sector  of  last  job 

E2D31 

AO 

00 

LDY 

#$00 

Initialize  buffer  pointer 

E2D5 

Bl 

89 

LDA 

($89)  ,  Y 

Look  for  track  from  side-sector  & 

E2D7 

C5 

80 

CMP 

$80 

compare  with  last  read  value 

E2D9 

F0 

01 

BEQ 

$E2DC 

Identical? 

E2DB 

60 

RTS 

NO— Return  from  this  subroutine 

E2DC1 

C8 

INY 

Set  buffer  pointer  &  sector  # 

E2DD 

Bl 

89 

LDA 

($89)  ,  Y 

Get  #  of  sector  being  searched  & 

E2DF 

C5 

81 

CMP 

$81 

compare  with  current  sector 

E2E1 

60 

RTS 

Return  from  this  subroutine 

[DD7B/E3C2/E3CE] 

Employ  new  record  in 

sector 

E2E2 

20 

2B 

DE 

JSR 

$DE2B 

Set  current  buffer  address 

E2E5 

AO 

02 

LDY 

#$02 

Pointer  to  begin,  of  file  range 

E2E7 

A9 

00 

LDA 

#$00 

Sector  clear  value 

E2E91 

91 

94 

STA 

($94) ,Y 

Write  empty  byte  to  buffer 

E2EB 

C8 

INY 

Set  buffer  pointer  to  next  byte 

E2EC 

DO 

FB 

BNE 

$E2E9 

Entire  buffer  filled? 

E2EE 

20 

04 

E3 

JSR 

$E304 

YES— Get  position  of  next  record  & 

E2F11 

95 

CI 

STA 

$C1,X 

save  it 

E2F3 

A8 

TAY 

Take  value  as  buffer  pointer 

E2F4 

A9 

FF 

LDA 

#$FF 

Value  for  opening  record  — 

E2F6 

91 

94 

STA 

($94) ,Y 

write  to  buffer 

E2F8 

20 

04 

E3 

JSR 

$E304 

Calculate  position  of  next  record 

E2FB 

90 

F4 

BCC 

$E2F1 

Record  still  have  room  ? 

E2FD 

DO 

04 

BNE 

$E303 

NO— Record  passed  in  sector? 

E2FF 

A9 

00 

LDA 

#$00 

YES— Setposition  of  next  record  to 

E301 

95 

CI 

STA 

$C1,X 

start  of  next  sector 

E3031 

60 

RTS 

Return  from  this  subroutine 
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[E006/E2EE/E2F8] 

Calculate  position  of  new  record  in  sector 


E304 

A6 

82 

LDX 

$82 

Get  current  channel  number 

E306 

B5 

CI 

LDA 

$C1,X 

and  corresponding  record  pointer 

E308 

38 

SEC 

Set  'no  more  records'  flag 

E309 

FO 

0D 

BEQ 

$E318 

Fill  in  an  old  record? 

E30B 

18 

CLC 

NC—Add  record  length  to 

E30C 

75 

C7 

ADC 

$C7,X 

current  position 

E30E 

90 

OB 

BCC 

$E31B 

Record  run  to  next  sector? 

E310 

DO 

06 

BNE 

$E318 

YES-Record  fill  entire  sector? 

E312 

A9 

02 

LDA 

#$02 

YES— Pointr  to  start  of  new  sector 

E314 

2C 

CC  FE 

BIT 

$FECC 

Set  'still  another  sector'  flag 

E317 

60 

RTS 

Return  from  this  subroutine 

E3182 

69 

01 

ADC 

#$01 

Pointr  to  begin,  of  next  record 

E31A 

38 

SEC 

Set  'no  more  sectors'  flag 

E31B1 

60 

RTS 

Return  from  this  subroutine 

[E0E5/E33B:CA85] 

Insert  new  records  in  relative 


E31C 

20 

D3 

Dl 

JSR 

$D1D3 

E31F 

20 

CB 

El 

JSR 

$E1CB 

E322 

20 

9C 

E2 

JSR 

$E29C 

E325 

20 

7B 

CF 

JSR 

$CF7B 

E328 

A5 

D6 

LDA 

$D6 

E32A 

85 

87 

STA 

$87 

E32C 

A5 

D5 

LDA 

$D5 

E32E 

85 

86 

STA 

$86 

E330 

A9 

00 

LDA 

#$00 

E332 

85 

88 

STA 

$88 

E334 

A9 

00 

LDA 

#$00 

E336 

85 

D4 

STA 

$D4 

E338 

20 

0E 

CE 

JSR 

$CE0E 

E33B1 

20 

4D 

EF 

JSR 

$EF4D 

E33E 

A4 

82 

LDY 

$82 

E340 

B6 

C7 

LDX 

$C7,Y 

E342 

CA 

DEX 

E343 

8A 

TXA 

E344 

18 

CLC 

E345 

65 

D7 

ADC 

$D7 

E347 

90 

OC 

BCC 

$E355 

E349 

E6 

D6 

INC 

$D6 

E34B 

E6 

D6 

INC 

$D6 

E34D 

DO 

06 

BNE 

$E355 

E34F 

E6 

D5 

INC 

$D5 

E351 

A9 

10 

LDA 

#$10 

E353 

85 

D6 

STA 

$D6 

Get  number  of  drive  chosen 
Get  position  of  last  record 
Read  side-sector  and  records 
Open  new  buffer 
Retain  pointer  to  file  block 
in  side-sector 

Temporarily  store  pointer  of 
current  side-sector 
Clear  'only  one  block' 
flag 

Clear  pointer  of  position 
of  record 

Calc.  side-sector  of  fileblock 
Get  number  of  blocks  free 
Determine  #  off  current  channels 
Get  corresponding  record  length  & 
correct  it 
(includes  0)  and 
add  to  current 
buffer  pointer 

Any  new  buffer  pointer  in  sector? 
NO— Pointr  in  sidesector  to  track/ 
sector  number  of  next  fileblock 
Pointr  still  in  curr .sides-ector? 
NO— Go  to  next  side-sector 
Buffer  pointr  to  begin,  of  track/ 
sector  pointer  of  fileblock 
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E355^ 

A5 

R7 

t  na 

Liun. 

6QT 
90  / 

Old  buffer  pointer  set  to  next 

F1S7 

1  R 
X  o 

sector  rile 

E358 

D  J 

AUL. 

Aft  no 

(track/ sector) 

E35A 

20 

F  Q 

HP 

JoK 

Set  buffer  pointer 

E35D 

AS 

ns 

XjDA 

Get  #  of  current  side-sectors  and 

F1SF 

UD 

/"■MT3 

it  ft  r»  c 

compare  with  maximum  value 

E361 

90 

OS 

Legal  number? 

E363^ 

A9 

52 

t  na 

CO 

NO— Error  — — 

E365 

20 

C8 

PI 

.TQP 

9l-XL.O 

ICO        TP  4     T                fll  M  H         T     A  mm  mm  —  1 

rile  Too  Large' 

A5 

D6 

t  na 

JUL/A 

Get  current  position  in 

E36A 

38 

O  CjV_. 

side- sect or 

E36B 

E5 

87 

qrp 

ft  ft  T 

Subtract  last  side— sector  pointer 

E36D 

BO 

0? 

*?£j  J  /  £ 

New  value  in  preceding  sector? 

E36F 

pq 

flF 

eon 

Aft  ftU« 

YES— Observe  linking  bytes  at 

E371 

18 

PT.P 

start  or  siae— sector  ana 

HjO  I  £. 

PR 

OJ 

/  £. 

o  1A 

save  new  value 

AO 

n  s 

LDA 

9Do 

Get  current  side-sector  number  & 

E37  6 

E5 

ft  fi 

COP 

ft  ft  ^ 
900 

and  remove  last  number 

E378 

85 

73 

O  1 1\ 

9  '  O 

Save  new  value 

E37A 

A2 

00 

its.  no. 

Clear  temporary  memory 

E37C 

O  D 

7fi 

C  TV 

ft  1  f\ 
9  /  U 

of  number  of  blocks 

E37E 

86 

71 

QTY 

ft71 

free 

E380 

AA 

J.  A  A 

Side-sector  number  0 

E381 

SI 

ur 

TQD 

Calculate  #  of  blocks  needed  by 

E384 

A5 

71 

T.na 

9  '  X 

ana  noxa  it  (nign— byte) 

E386 

DO 

07 

RNF 

DHL 

ftTV^ftt? 
yCiJ  or 

wuniDer  or  dxocks  <  ^oo? 

E388 

A6 

70 

t  ny 

9  '  w 

VT7C     Taof      1  /m  •  Uw4-n 

iijo—  lest  xow— oyte 

E38A 

CA 

L/CtA 

of  amount  of  blocks 

E38B 

DO 

02 

DIM  Hi 

ftipo  ft-p 
9ii*  J  or 

Just  1  block (side— sector) laidout? 

E38D 

Ffi 

o  o 

TVTp 

XLNL. 

ft  Q  Q 
90O 

Set  'just  one  block'  flag 

E38F^ 

CD 

73 

02 

PMP 
^-i.  iir 

ft  ri9 1  ^ 

Compare  w/  number  of  blocks  free 

E392 

90 

09 

RPP 

ftF  7  can 

9uO 

Any  room  left  on  the  diskette? 

E394 

DO 

CD 

BNE 

y  £j  J  D  J 

»u  ftny  rues  pas I,  on  ulSK  r 

E396 

AD 

72 

02 

LDA 

$0272 

i£io  ^ornpare     ±o— oyues  or  necess  • 

E399 

C5 

70 

CMP 

$70 

■dxocjvs  wit n  nuiuDer  o r  r ree  diocks 

E39B 

90 

C6 

rpp 

9cj  J  Dj 

rue  >  capacity? 

E39D''' 

A9 

01 

T.na 

iJL/A 

nu— ourter  pointer  to  sector  # 

E39F 

20 

FK 

U4 

9Uflr  0 

Get  byte  from  buffer 

E3A2 

18 

Increment  pointer  to  current 

E3A3 

69 

01 

ann 

ALA* 

Jt  ft  m 
1F9  v  X 

filebyte  in  current  sector 

F"3  &  S 

AO 

LDX 

$82 

Get  channel  number 

E3A7 

95 

CI 

STA 

$C1,X 

Save  pointer  to  filebyte 

E3A9 

20 

IE 

Fl 

JSR 

$F11E 

Get  next  free  sector  from  BAM 

E3AC 

20 

FD 

DD 

JSR 

$DDFD 

Linking  bytes  for  next  sector 

E3AF 

A5 

88 

LDA 

$88 

Flag  for  'only  one  block' 

E3B1 

DO 

15 

BNE 

$E3C8 

set? 
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E3B3 

20 

5E  DE 

JSR  $DE5E 

NO-Write  sector  to  diskette 

E3B6^ 

20 

IE  CF 

JSR  $CF1E 

Changee  buffer 

E3B9 

20 

DO  D6 

JSR  $D6D0 

Track/sector  to  job  loop 

E3BC 

20 

IE  Fl 

JSR  $F11E 

Look  for  next  free  block  in  BAM 

E3BF 

20 

FD  DD 

JSR  $DDFD 

Params  of  next  block  in  buffer 

E3C2 

20 

E2  E2 

JSR  $E2E2 

Employ  new  record 

E3C5 

4C 

D4  E3 

JMP  $E3D4 

Write  sector  to  diskette 

£308^ 

20 

IE  CF 

JSR  $CF1E 

Change  buffer 

E3CB 

20 

DO  D6 

JSR  $D6D0 

Track/sector  to  job  loop 

E3CE 

20 

E2  E2 

JSR  $E2E2 

Use  new  record 

E3D1 

20 

19  DE 

JSR  $DE19 

Identify  last  sector 

E3D4-1 

20 

5E  DE 

JSR  $DE5E 

Write  sector  to  diskette 

E3D7 

20 

OC  DE 

JSR  $DE0C 

Track/sector  from  linking  bytes 

E3DA 

A5 

80 

LDA  $80 

Get  next  track  number  and 

E3DC 

48 

PHA 

save  it 

E3DD 

A5 

81 

LDA  $81 

Retain  next 

E3DF 

48 

PHA 

sector  number 

E3E0 

20 

3E  DE 

JSR  $DE3E 

Get  track/sector  of  last  job 

E3E3 

A5 

81 

LDA  $81 

Save  last  sector 

E3E5 

48 

PHA 

number 

E3E6 

A5 

80 

LDA  $80 

Retain  number  of  last 

E3E8 

48 

PHA 

sector 

E3E9 

20 

45  DF 

JSR  $DF45 

Set  buffr  pointr  f /side-sector  & 

E3EC 

AA 

TAX 

save  low-byte 

E3ED 

DO 

OA 

BNE  $E3F9 

Pointer  at  buffer  start? 

E3EF 

20 

4E  E4 

JSR  $E44E 

YES— Open  new  side-sector 

E3F2 

A9 

10 

LDA  #$10 

Buffr  pointr  to  begin,  of  pointer 

E3F4 

20 

E9  DE 

JSR  $DEE9 

of  file  sectors 

E3F7 

E6 

86 

INC  $86 

Increment  side-sector  number 

E3F91 

68 

PLA 

Get  track  of  last  sector  and 

E3FA 

20 

8D  DD 

JSR  $DD8D 

enter    in  side-sector 

E3FD 

68 

PLA 

Get  sector  number  and  take 

E3FE 

20 

8D  DD 

JSR  $DD8D 

byte  in  side-sector 

E401 

68 

PLA 

Get  current  sector  number 

E402 

85 

81 

STA  $81 

and  store  it 

E404 

68 

PLA 

Get  current  track  number  and 

E405 

85 

80 

STA  $80 

store  it 

E407 

F0 

OF 

BEQ  $E418 

Last  block? 

E409 

A5 

86 

LDA  $86 

NO— Compare  current  side-sector  # 

E40B 

C5 

D5 

CMP  $D5 

with  the  last  one 

E40D 

DO 

A7 

BNE  $E3B6 

Changed? 

E40F 

20 

45  DF 

JSR  $DF45 

YES— Position  buffer  pointer  and 

E412 

C5 

D6 

CMP  $D6 

compare  with  side-sector  pointer 

E414 

90 

AO 

BCC  $E3B6 

Is  buffer  pointer  less? 

E416 

F0 

BO 

BEQ  $E3C8 

NO-Is  it  equal? 

ROM -221 


Abacus  Software 


1571  Internals 


E4181 

20 

45 

DF 

JSR 

$DF45 

— P     Q  ^  t  i  rtn    hllff  or              nfor  anH 

E41B 

48 

PHA 

<; a Vf>    a  c    pnHi  nrr 

o a  V  ^  CLS9 

E41C 

A9 

00 

LDA 

#$00 

Reset  buffer*  ooi  rttpr 

E41E 

20 

DC 

DE 

JSR 

$DEDC 

to  zero 

E421 

A9 

00 

LDA 

#$00 

Q           huff  or    r>r\  n  n"t~or       4-  x-s 

E423 

A8 

TAY 

hocH  nni  nrr  n  f    oort  nr 

E424 

91 

94 

STA 

($94) , Y 

Set    fl  acr  to    1  a  Qt"    hi  nclr    n  n   huff  or 

E426 

C8 

INY 

^pt"    hllf  for    rn"!  n  nfor    +- 1-»    novf-    Vn  r4-  ^ 

<jxs\.  uuj.  Lei        j. 1 1 1. e x.    lo  riuXt  oyt,e 

E427 

68 

PLA 

Qpf    rifti  fltor    T"  O    onH  anH 

E428 

38 

SEC 

Hpf  rpnipnl' 

E429 

E9 

01 

SBC 

#$01 

by  one 

E42B 

91 

94 

STA 

($94)  Y 

Pol  lrhPT — nnmKor   r\ f   rrorNH   hi^f  oo 

E42D 

20 

6C 

DE 

JSR 

$DE6C 

Writf5    <;pr1"fir  tr>  Hi  QVoffo 

E430 

20 

99 

D5 

JSR 

$D599 

and   tptit"    f  m~    wr 1 1  o  orror 

E433 

20 

F4 

EE 

JSR 

$EEF4 

Put     eppf  r\Y~    n  n  Ro.M 

E436 

20 

0E 

CE 

JSR 

$CE0E 

E439 

20 

IE 

CF 

JSR 

$CF1E 

flpt"    flnnfhor   huff  or 

E43C 

20 

F8 

DE 

JSR 

$DEF8 

Ph  Pflf    q  i  Hp-cp(-t"nr 

E43F 

70 

03 

BVS 

$E444 

Is  correct  side-sector  in  buffer? 

E441 

4C 

75 

E2 

JMP 

$E275 

YES— Record  pointer  reset;  end 

E4441 

A9 

80 

LDA 

#$80 

Rpeof     f  "l  1  or  vno 

E446 

20 

97 

DD 

JSR 

$DD97 

nm  ntor    =i  n  H    f  1  arrc 

E449 

A9 

50 

LDA 

#$50 

E44B 

20 

C8 

CI 

JSR 

$C1C8 

[E3EF] 

Prepare  new 

side' 

-sector 

E44E 

20 

IE 

Fl 

JSR 

$F11E 

L/clcillllJlc    ilCAL     lice  UIOCK 

E451 

20 

IE 

CF 

JSR 

$CF1E 

fhrtncp    hnf for 

E454 

20 

Fl 

DD 

JSR 

$DDF1 

rvLXLe  previous  sia.e~secxor 

E457 

20 

93 

DF 

JSR 

$DF93 

f** O "t"            1      ^ /-%  >—      n  1 1  i^Un  -w- 

oc l.  uui  ier  nuniusr 

E45A 

48 

PHA 

aJlU    aaVc  It 

E45B 

20 

CI 

DE 

JSR 

$DEC1 

Clear  f i 1p  hiiffor 

E45E 

A6 

82 

LDX 

$82 

Channel  number 

E460 

B5 

CD 

LDA 

$CD,X 

TaV  P    fh^nnpl     mimhor  fr\r 

E462 

A8 

TAY 

sicie"~sector 

E4  63 

68 

PLA 

from  stark   and  cavp  in 

J»  ^  Will      *J      O^JX      uli KX      O  CI  V  w      _1_  1 1 

E464 

AA 

TAX 

X/Y—  recristere 

E4  65 

A9 

10 

LDA 

#$10 

Take   16  bvts  of  orevioQ  QiHeQortr 

E4  67 

20 

A5 

DE 

JSR 

$DEA5 

into   cu TT«n t   hn f for 

E4  6A 

A9 

00 

LDA 

#$00 

Rll  f  f  pr   nni  nt  or  va  1  no 

J-J  W  X  X      X      ^ruXJlL-Cl  value 

E4  6C 

20 

DC 

DE 

JSR 

$DEDC 

Dpeot*     hnf  for    r>  r>  i  nrar 
RcocL    UULicL  pulIlLcx 

E4  6F 

AO 

02 

LDY 

#$02 

Take  buffr  of  previos  side-sector 

E471 

Bl 

94 

LDA 

($94), Y 

and  get  side-sector  number 

E473 

48 

PHA 

Save  number  of  last  side-sector 

E474 

A9 

00 

LDA 

#$00 

Turn  buffr  pointer  to  buffr  for 

E476 

20 

C8 

D4 

JSR 

$D4C8 

new  side-sector  and  set  back 
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E479 

68 

PLA 

Get  number  of  last  side-sector 

E47A 

18 

CLC 

Increase  by  one 

E47B 

69 

01 

ADC  #$01 

and  store 

E47D 

91 

94 

STA  ($94), Y 

as  new  number 

E47F 

OA 

ASL  A 

Double  value 

E480 

69 

04 

ADC  #$04 

and  add  4 

E482 

85 

89 

STA  $89 

Set  track/sector  pointer 

E484 

A8 

TAY 

and  save  it; 

E485 

38 

SEC 

from  that,  compute 

E486 

E9 

02 

SBC  #$02 

the  pointer  to 

E488 

85 

8A 

STA  $8A 

the  previous  side-sector 

E48A 

A5 

80 

LDA  $80 

Save 

E48C 

85 

87 

STA  $87 

track  number 

E48E 

91 

94 

STA  ($94), Y 

Write  to  current  buffer 

E490 

C8 

I  NY 

Set  buffer  pointer  to  next  uyi-e 

E4  91 

A5 

81 

LDA  $81 

Store  sector  number 

E4  93 

85 

88 

STA  $88 

and  take  into 

E4  95 

91 

94 

STA  ($94) , Y 

current-  ourier 

E497 

AO 

00 

LDY  #$00 

Set  JDurrer  pointer  to 

E499 

98 

TYA 

beginning  of  sector 

E4  9A 

91 

94 

STA  ($94), Y 

Flag  for  last  side— sector 

E4  9C 

C8 

INY 

Set  buffer  pointer  to  next  byte 

E49D 

A9 

11 

LDA  #$11 

Set  number  of  good  bytes  to 

E49F 

91 

94 

STA  ($94), Y 

sector  (17) 

E4A1 

A9 

10 

LDA  #$10 

Put  buffer  pointer 

E4A3 

20 

C8 

D4 

JSR  $D4C8 

to  position  16 

E4A6 

20 

50 

DE 

JSR  $DE50 

Write  sector  to  diskette 

E4A9 

20 

99 

D5 

JSR  $D599 

Wait  f/messge  frm  diskcontroller 

E4AC 

A6 

82 

LDX  $82 

Set  current  channel  number 

E4AE 

B5 

CD 

LDA  $CD,X 

Get  #  of  buffer  to  side-sector 

E4B0 

48 

PHA 

and  save  it  down 

E4B1 

20 

9E 

DF 

JSR  $DF9E 

Get  buffer  number 

E4B4 

A6 

82 

LDX  $82 

E4B6 

95 

CD 

STA  $CD,X 

save  as  tniro  ouirer 

E4B8 

68 

PLA 

Buffer  number  for  side— sector 

E4B9 

AE 

57 

02 

LDX  $0257 

Pntr  to  last  active  me  Duiiei 

E4BC 

95 

A7 

STA  $A7,X 

Lay  out  buffer 

E4BE 

A9 

00 

LDA  #$00 

Reset  buffer  pointer 

E4C0 

20 

C8 

D4 

JSR  $D4C8 

to  zero 

E4C3 

AO 

00 

LDY  #$00 

Buffer  pointer  to  start-or-secior 

E4C5 

A5 

80 

LDA  $80 

Take  track  number  into 

E4C7 

91 

94 

STA  ($94), Y 

rile  burrer 

E4C9 

C8 

INY 

Set  pointer  to  next  character 

E4CA 

A5 

81 

LDA  $81 

Take  buffer  number 

E4CC 

91 

94 

STA  ($94), Y 

into  the  buffer 

E4CE 

4C 

DE 

E4 

JMP  $E4DE 

Write  side-sector  to  diskette 

E4D1 

1  20 

93 

DF 

JSR  $DF93 

Determine  current  buffer  number 
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E4D4 

A6 

82 

LDX 

Current  channel  number 

E4D6 

20 

IB 

DF 

JSR 

$DF1B 

neaa  next  siae-sector  trom  disk 

E4D9 

A9 

00 

LDA 

If  V  <J  \J 

Reset  buffer  pointer 

E4DB 

20 

C8 

D4 

JSR 

$D4C8 

lo  zero 

E4DE1 

C6 

8A 

DEC 

$8A 

E4E0 

C6 

8A 

DEC 

$8A 

acLcuL  numocr 

E4E2 

A4 

89 

LDY 

$89 

outir  pntr  ror  tracjc/sector  pos . 

E4E4 

A5 

87 

LDA 

$87 

nilLC     L.  L  auK  JlUmUcI 

E4E6 

91 

94 

STA 

($94) . Y 

tct  the*   f  ■!  lo  huff or 

E4E8 

C8 

1NY 

oet  ourrer  pointer  to  next  byte 

E4E9 

A5 

88 

LDA 

yOO 

Get  sector  number  and  take 

E4EB 

91 

94 

STA 

lu  ljic  ouixer 

E4ED 

20 

5E 

DE 

JSR 

$DE5E 

Write  side-sector  to  diskette 

E4F0 

20 

99 

D5 

JSR 

$D599 

Wait  f/messge  frm  diskcontroller 

E4F3 

A4 

8A 

LDY 

$8A 

Get  side-sector  number  and 

E4F5 

CO 

03 

CPY 

#$03 

test  it 

E4F7 

BO 

D8 

BCS 

$E4D1 

Greater  than  3? 

E4F9 

4C 

IE 

CF 

JMP 

$CF1E 

NO-Choose  another  buffer 

The  first  byte  is  the  error  number  in  BCD-Code.  Next  follows  the 
text  of  the  error  msg.  The  start  and  ending  of  these  text  strings 
are  indicated  by  bit7  in  the  first    &  last  byte  set  to  1.  Some 
values  are  set  up  as  short  codes.  The  most  significant  byte-half  of 
these  values  is  0.    They  are  handled  like  error  messages. 


E4FC 
E4FD 

00 
AO 

4F 

CB 

■ok' 

E500 
E506 

20 
D2 

21 
45 

22 
41 

23 
44 

24 
89 

27 

'read  error' 

E50B 
E50C 

52 
83 

20 

54 

4F 

4F 

20 

4C 

41 

52 

47 

•file  too  large' 
C5 

E517 
E518 

50 
8B 

06 

20 

50 

52 

45 

53 

45 

4E 

D4 

'record  not  present' 

E522 
E523 

51 
CF 

56 

45 

52 

46 

4C 

4F 

57 

20 

49 

'overflow  in  record' 
4E  8B 

E52F 
E531 

25 
8A 

28 
89 

'write  error' 

E533 
E534 

26 
8A 

20 

50 

52 

4F 

54 

45 

43 

54 

20 

'write  protect  on' 
4F  CE 
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E540  29  'disk  id  mismatch' 

E541  88  20  49  44  85 


Eo4b   JU  o± 
E54B  D3  59 

■ao  Ta 
4E  54 

"3  A 

41 

58 

89 

i 

E553  8A  03 

84 

i 

write  file  ooen 1 

boob  bo 
E557  83  20 

45  58 

49 

53 

54 

D3 

t 

flip    PY1  Qt  <?  ' 

E55F  64 
E560  83  20 

54  59 

50 

45 

85 

i 

1  lie     L.  j  r        IHX  SIIICI  l»  ^  Jl 

E567  65 
E568  CE  4F 

20  42 

4C 

4F 

43 

CB 

i 

no       1  t*^f*V  ' 

IlvJ  U-HJV-A 

Eo  /  0   b  b  b  / 
E572  C9  4C 

4C  45 

47 

41 

4C 

20 

54 

i 

52 

i  1  1  pnal    [""rack  or  sector  1 

illegal    l,j_civ-»/^    v  j_  jc^uwi. 

41  43  4B  20  4F  52  20  53  45  43  54 

Hj0O7  bl 

E58A  83  06 

84 

! 

'filp  not  ooen 1 

T? con   "jo   a o 
E58F  83  06 

87 

1 

'■file  not"  "Found1 

eo^z  ui 
E593  83  53 

20  53 

43 

52 

41 

54 

43 

48 

i  f i lps  scratched1 
45  C4 

E5A0  CE  4F 

20  43 

48 

41 

4E 

4E 

45 

CC 

'no  rhanripl  ' 

hjOAA    /  X 
E5AB  C4  4  9 

52  89 

E5AF  72 
E5B0  88  20 

46  55 

4C 

CC 

'disk  full' 

E5B6  73 
E5B7  C3  4  2 

4D  20 

44 

4F 

53 

20 

56 

33 

'cbm  dos  v3.0  1571' 
2E  30  20  31  35  37  Bl 

E5C8  74 
E5C9  C4  52 

49  56 

45 

06 

20 

52 

45 

41 

'drive  not  ready' 
44  D9 
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Often-used  words  and  their  short  codes  : 


E5D5 
E5D6 

09 
C5 

52 

52 

4F 

D2 

'error ' 

E5DB 
E5DC 

OA 
D7 

52 

49 

54 

C5 

•write' 

E5E1 
E5E2 

03 
C6 

49 

4C 

C5 

•file' 

E5E6 
E5E7 

04 
CF 

50 

45 

CE 

•  open ' 

E5EB 
E5EC 

05 
CD 

49 

53 

4D 

41 

54  43  C8 

'mismatch' 

E5F4 
E5F5 

06 
CE 

4F 

D4 

■not' 

E5F8 
E5F9 

07 
C6 

4F 

55 

4E 

C4 

'  found' 

E5FE 
E5FF 

08 
C4 

49 

53 

CB 

'disk' 

E603 
E604 

0B 
D2 

45 

43 

4F 

52 

C4 

'record' 

[8391/91AA/A47B/A6CB/BF63/C8EC/D641/E60D:A9D2] 
Error  message  output 

(A  must  contain  error  no.;  X  the  buffer  number) 


E60A 

4C 

B9  A9 

JMP 

$A9B9 

1571  mode  observed 

E60D 

8A 

TXA 

Double  buffer 

E60E 

OA 

ASL 

A 

number  and  set 

E60F 

AA 

TAX 

as  pointer  on  disk  controller 

E610 

B5 

06 

LDA 

$06, X 

Get  track  #  from  disk  controller 

E612 

85 

80 

STA 

$80 

and  store  it 

E614 

B5 

07 

LDA 

$07, X 

Get  sector  number  and 

E616 

85 

81 

STA 

$81 

store  it 

E618 

68 

PLA 

Get  error  number  ready  again 

E619 

29 

OF 

AND 

#$0F 

Is  the  error  number 

E61B 

F0 

08 

BEQ 

$E625 

15  or  greater? 

E61D 

C9 

OF 

CMP 

#$0F 

YES— Is  it  equal  to 

E61F 

DO 

06 

BNE 

$E627 

error  number  15? 

E621 

A9 

74 

LDA 

#$74 

YES— Internal  #  of  error  message 

E623 

DO 

08 

BNE 

$E62D 

Jump  to  $E62D 
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E6251 

A9 

06 

LDA 

#$06 

LOnVciL    cilUI  llUHUJci 

E6271 

09 

20 

ORA 

#$20 

lor  i6au  error  emu  tuitcui. 

E629 

AA 

TAX 

for  error 

E62A 

CA 

DEX 

u  duic 

E62B 

CA 

fRPD  codecs  1 

E62C 

8A 

TXA 

AC^C  CI  I-      11  U  il  lUG  J. 

E62D^" 

48 

rhA 

R<ai~ai  n  prror  number 

E62E 

AD 

2A 

Uz 

ilDA 

Number  of  command  begin  executed 

E631 

C9 

00 

CMP 

fnrrmarp  w*it"h  'validate1  command 

E633 

DO 

0*4  4 

Identical'' 

E635 

A9 

FF 

LDA 

If  9t  * 

V1TC  TViean    pi  par 

E637 

8D 

era 
Sin 

command  number  and 

E63A 

68 

PLA 

return  an  error  number 

E63B 

20 

C7 

E6 

JSR 

$E6C7 

Put  error  message  in 

E63E 

20 

42 

DO 

JSR 

$D042 

Initialize  -  command  execute 

E641 

4C 

48 

E6 

JMP 

$E648 

Activate  error  messages 

E6441 

68 

PLA 

Get  back  error  number 

[A582/A9F5/CD2E/D54F/D577/DC03/E204/E829/F1DC/F1F7/F248] 
Prepare  error  message 

E645    20  C7  E6      JSR  $E6C7  Produce  error  message  in  buffer 


[A4AA/D021/E641/F01F] 
Activate  error  message 


E648 

20 

BD 

CI 

JSR 

$C1BD 

E64B 

A9 

00 

LDA 

#$00 

E64D 

8D 

F9 

02 

STA 

$02F9 

E650 

20 

2C 

CI 

JSR 

$C12C 

E653 

20 

DA 

D4 

JSR 

$D4DA 

E656 

A9 

00 

LDA 

#$00 

E658 

85 

A3 

STA 

$A3 

E65A 

A2 

45 

LDX 

#$45 

E65C 

9A 

TXS 

E65D 

A5 

84 

LDA 

$84 

E65F 

29 

OF 

AND 

#$0F 

E661 

85 

83 

STA 

$83 

E663 

C9 

OF 

CMP 

#$0F 

E665 

F0 

31 

BEQ 

$E698 

E667 

78 

SEI 

E668 

A5 

79 

LDA 

$79 

E66A 

DO 

1C 

BNE 

$E688 

E66C 

A5 

7A 

LDA 

$7A 

E66E 

DO 

10 

BNE 

$E680 

E670 

A6 

83 

LDX 

$83 

E672 

BD 

2B 

02 

LDA 

$022B,X 

E675 

C9 

FF 

CMP 

#$FF 

E677 

F0 

IF 

BEQ 

$E698 

Clr  input  buffer  f/command  string 

Write  back  to  BAM  by  hindering 

flag  setting 

LED  blinks 

Close  channel 

Reset  pointer  to  position 

in  command  string 

Reset 

stack  pointer 
Find  out  standard 
secondary  address  and 
save  it  down 
Compare  with  channel  15 
Is  it  the  command  channel? 
NO-Disable  disk  controller 
'Listen  found' 
flag  active? 

NO— What  above  the  'Talk  found' 
flag? 

NO-Get  secondary  address  and 

test  appropriate 

channel  status 

Is  the  channel  active? 
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E679 

29 

OF 

AND 

#$0F 

'icy  Lnannei  numDer  ana 

E67B 

85 

82 

STA 

$82 

5»tL/£e  1L 

E67D 

4C 

8E 

E6 

JMP 

SE68F 

tor  a  waii,  loop 

E6801 

20 

EB 

DO 

JSR 

SD0EB 

«et  cnannei  numDer 

E683 

EA 

NOP 

E684 

EA 

NOP 

lKesu.LT.ing  irom  modification] 

E685 

EA 

NOP 

t  rff    1  t>41     DOM  1 

E686 

DO 

06 

BNE 

$E68E 

U  UIII£J     UU     P  Hi  DO  111 

E6881 

20 

07 

Dl 

JSR 

$D107 

wet  write  cnannei 

E68B 

EA 

NOP 

IT1  mrtt"  \  /      r*  y^s  #^ 

E68C 

EA 

NOP 

Luue  to  moairication J 

E68D 

EA 

NOP 

[of  1541  ROM] 

E68E'' 

20 

25 

Dl 

JSR 

$D125 

Determine  current  filetype 

E691 

C9 

04 

CMP 

#S04 

lest  ror  relative  rile 

E693 

BO 

03 

BCS 

$E698 

-Lo  it  s  relative  rue/ 

E695 

20 

27 

D2 

JSR 

$D227 

NO — Frpp    liri    a  1  1     (-"hannoT  e  -F^-v- 
c              uy    all    L>UaIlll€lS  lot 

E6985 

4C 

6B 

83 

JMP 

$836B 

^•uiiuuajiu   wall  loop 

[E6EA/E6F4] 

Convert  a  binary  number  to  a  BCD 

E69B 

AA 

TAX 

E69C 

A9 

00 

LDA 

#$00 

C  f> +■     a  foil  mil  1  a^Ar  har<V 

E69E 

F8 

SED 

i *-»i- 1. vjx         see  Ljiapter  /•i>oj 

E69F1 

E0 

00 

CPX 

#$00 

P  rp    V\-i  nar*\7    ira  1  ha    anH  A 
wnijk-'a  i.  c    JJ.LJieii.jr    VqIUc    altU  KJ 

E6A1 

F0 

07 

BEQ 

$E6AA 

Identical? 

E6A3 

18 

CLC 

Get  addition  ready 

E6A4 

69 

01 

ADC 

#$01 

nuu   A    Ifllucs    1  in 

E6A6 

CA 

DEX 

U\*U  UIUUC 

E6A7 

4C 

9F 

E6 

JMP 

$E69F 

fount"    iiri  nni"  i  1  Y=D 

E6AA1 

D8 

CLD 

Turn   off  dprim^l  mnri^ 

[E6D1] 

Convert  BCD 

number  into  two  ASCII 

E6AB 

AA 

TAX 

Save  BCD  value 

E6AC 

4A 

LSR 

A 

Isolate  most  sicrnif  i  cant 

E6AD 

4A 

LSR 

A 

nibble;   first  diait 

E6AE 

4A 

LSR 

A 

E6AF 

4A 

LSR 

A 

BCD  number 

E6B0 

20 

B4 

E6 

JSR 

$E6B4 

——convert  to    ASCXX  value 

E6B3 

8A 

TXA 

lact  ui iijinai   value  again  ana 

E6B41 

29 

OF 

AND 

#$0F 

isolate  2nd  BCD  number 

E6B6 

09 

30 

ORA 

#$30 

Convert  to  ASCII  and  write 

E6B8 

91 

A5 

STA 

($A5) ,Y 

in  current  buffer 

E6BA 

C8 

INY 

Pointer  to  next  byte  in  buffer 

E6BB 

60 

RTS 

Return  from  this  subroutine 
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[C150/E0D6] 

Prepare  '00  OK'  error  message 

E6BC    20  23  CI  JSR  $C123               Reset  error  flags 

E6BF    A9  00  LDA  #$00                 Error  number    for' OK' 


[D24A/EBD7] 

Output  error  message  with  track  &  sector  =0 

E6C1    AO  00            LDY  #$00  Track  number  and 

E6C3     84  80            STY  $80  Sector  number 

E6C5     84  81            STY  $81  cleared 


[C1A7/E63B/E645/EFCB] 


Produce  error  mes 

sage 

in  buffer 

E6C7 

AO 

00 

LDY 

#$00 

E6C9 

A2 

D5 

LDX 

#$D5 

E6CB 

86 

A5 

STX 

$A5 

E6CD 

A2 

02 

LDX 

#$02 

E6CF 

86 

A6 

STX 

$A6 

E6D1 

20 

AB 

E6 

JSR 

$E6AB 

E6D4 

A9 

2C 

LDA 

#$2C 

E6D6 

91 

A5 

STA 

($A5),Y 

E6D8 

C8 

INY 

E6D9 

AD 

D5 

02 

LDA 

$02D5 

E6DC 

8D 

43 

02 

STA 

$0243 

E6DF 

8A 

TXA 

E6E0 

20 

06 

E7 

JSR 

$E706 

E6E3 

A9 

2C 

LDA 

#$2C 

E6E5 

91 

A5 

STA 

($A5),Y 

E6E7 

C8 

INY 

E6E8 

A5 

80 

LDA 

$80 

E6EA 

20 

9B 

E6 

JSR 

$E69B 

E6ED 

A9 

2C 

LDA 

#$2C 

E6EF 

91 

A5 

STA 

($A5),Y 

E6F1 

C8 

INY 

E6F2 

A5 

81 

LDA 

$81 

E6F4 

20 

9B 

E6 

JSR 

$E69B 

E6F7 

88 

DEY 

E6F8 

98 

TYA 

E6F9 

18 

CLC 

E6FA 

69 

D5 

ADC 

#$D5 

E6FC 

8D 

49 

02 

STA 

$0249 

E6FF 

E6 

A5 

INC 

$A5 

E701 

A9 

88 

LDA 

#$88 

E703 

85 

F7 

STA 

$F7 

E705 

60 

RTS 

(number  in  accumulator) 

Set  pointer  to  position  in  buffer 

Save  buffer  address  of 

error  message  buffer  ($02D5)  in 

pointers 

$A5/$A6 

Write  error  number  in  buffer 

Take  up  comma  (,)  after 

error  number  in  buffer 

Set  buffer  pointer  to  next  byte 

Copy  first  digit  of  error  number 

into  output  register 

Repeat  error  number 

Write  error  in  text  form 

to  buffer,  and  set  in 

trailing  comma 

Set  buffer  pointer  to  next  byte 
Convert  track  number  where  error 
occurd  into  ASCII;put  into  buffer 
Set  comma (,)   into  buffer 
as  separating  character 
Buffer  pointer  to  next  byte 
Convert  sector  number  where  error 
occurd  into  ASCII/put  into  buffer 
Calculate  length 
of  error  message 
in  buffer  and 
save 
it  down 

Buffer  ptr.    ($A5/$A6)  to  2nd  char 
Set  'ready  for  output' 
flag  and 

return  from  this  subroutine 
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[E6E0/E75F] 


error 

message  in  text 

Ej  1  \J  O 

AA 

1  ft  A 

E7  07 

A5 

86 

t  na 

48 

p  wa 

Jr  lift 

Ei  /  Uft 

A5 

87 

t  na 

Ej  f 

48 

p  Ha 

Jr  rift 

Ei  (  UJJ 

AQ 

ft:? 

FP 

t  na 

JL  /  ur 

Q  C 

P  £ 
o  o 

olA 

toe 

DTI  1 

JL  f  XI 

ft  j 

Ej*1 

t  na 
IiUft 

1F9Ej4 

c> '  X  J 

oo 

07 

0  / 

<P  7 
yo  r 

Ei  /  ±3 

Oft 

•pva 
J.  AA 

TT7  1  C 
EW  1  O 

a*? 
ft^ 

uu 

t  r\  v 
LUX 

4  6  n  Pi 

PT1  ol 

L/io 

pi 

P  £ 
0  0 

PNTD 

( ybb,  A 

t?  7 1  a 

E>  f  1A 

r  u 

0  1 

DEj<m? 

Ei  f  J.L. 

4  P 

T  O 

d  u  a 
rnft 

Ei  f  J.U 

<£  U 

7  R 

T?7 

TOD 

9C<  /  /O 

E*  /  U 

Oft 

uo 

5hi  1  £  / 

n  o  o  1 

Ej  /  <1Z 

/  O 

E>7 
Ej  / 

9E*  /  /O 

Ej  /  ^  O 

cut 

f  D 

9 Ei  /  Z<L 

a  r 

ftO 

P7 

t  na 
JjJJft 

Cot 

Ej  /  y 

PQ 

Ei  O 

pmd 

Ej  /  <£Ei 

fiP 
U  O 

RPP 

9Ej  f  JO 

DO 

OA 

OLMEj 

-?Ej  fO? 

Ej  f  *£  E 

A9 

OA 

T.na 

IiUft 

*sna 

ff  9<Jft 

Ej  /  O  J. 

C5 

Pfi 

PMP 

<^p 

1?7  O  "3 
Ei  /  JO 

fid 

"RPP 

yEi  '  0  y 

rtT  o  c  1 
E>  f  Jj 

68 

pt.a 

F7 

Ej  (  O  D 

4P 

1  fi 
X  O 

Ej  / 

.TMP 

^F71  P 
vEj  /  J.O 

177  "3 

68 

pt.a 

Jr  Lift 

Ei  /  Oft 

dp 

F7 
Ei  f 

TMP 

6i?7  /  n 

h>Ei  ' 

F7"5r\2 
Ej  /  OL> 

£.  \) 

£7 

F7 

E>  1 

*;i?7  <^7 

S>Ej  ID/ 

Ei  /  4  U 

r  a 

DPP 

<fc  177  *5n 
S>Ei  /  JU 

1P7  /5  O  1 
Ej  /  4 

O  *a 

Ej  f 

.TQP 
UOtx 

9Ej  /  o4 

T?7  d  R 
Ei  r  fi  0 

20 

67 

E7 

JSR 

$E767 

E74  8 

90 

F8 

BCC 

$E742 

E74A 

20 

54 

E7 

JSR 

$E754 

E74D1 

68 

PLA 

E74E 

85 

87 

STA 

$87 

E750 

68 

PLA 

E751 

85 

86 

STA 

$86 

E753 

60 

RTS 

to  error  buffer 
Save  error  number 
The  value  which  will  be  used  in 
temporary  storage  will  be 
retained,  since  this 
address  is  needed  for  the  routine 
Sett  address  for 
beginning  of  text 
table  ($E4FC)  into 
pointers  $86/$87 
Get  error  number  again 
Initialize  buffer  pointer 
Compare  number  with  text  table 
Identical? 

NO— Save  error  number 
Increment  buffer  pointer 
Jump  to  $E727 
Increment  buffer  pointer 
Jump  to  $E727 

Get  high-byte  of  text  pointer; 

test  for  end  value 

Reached  the  end  of  the  table? 

YES— Same  memory  page  reached? 

YES-Compare  lo-byte  of  textpointr 

with  end  value 

Reached  end  of  error  table? 

YES— Repeat  error  number 

Search  for  error  number 

Get  error  numbe  again 

End 

Get  byte  from  error  text 

Start-flag  set? 

YES-Write  char,  to  buffer 

Get  byte  from  error  text 

Is  end  flag  set? 

YES— Write  character  into  buffer 

Get  zeropage  value  again  and 

get  original 

value 

ready  again 

Return  from  this  subroutine 
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[E742/E74A] 

Write  ASCII  character  into  buffer 

Non-ASCII  characters  will  be  interpreted  as  error  numbers 


E754 

C9 

20 

CMP 

#$20 

Compare  with  space 

E756 

BO 

OB 

BCS 

$E763 

Is  character  >  space? 

E758 

AA 

TAX 

NO— Save  char .  as  error  number  and 

E759 

A9 

20 

LDA 

#$20 

write  space  into 

E75B 

91 

A5 

STA 

($A5) ,Y 

current  buffer  position 

E75D 

C8 

INY 

Set  buffer  pointer  to  next  char  & 

E75E 

8A 

TXA 

get  error  number  again 

E75F 

20 

06  E7 

JSR 

$E706 

Error  message  text  to  buffer 

E7  62 

60 

RTS 

Return  from  this  subroutine 

E7631 

91 

A5 

STA 

($A5),Y 

Write  ASCII  char  to  buffer  and 

E765 

C8 

INY 

set  buffr  pointr  to  next  position 

E766 

60 

RTS 

Return  from  this  subroutine 

[E73D/E745] 

Get  a  character  of  error  text  from  the  text  table 

E767    E6  86  INC  $86  Text  pointer  to  next  character 

E769    DO  02  BNE  $E76D  Has  a  transfer  occurred  ? 

E76B    E6  87  INC  $87  YES-Correct  high-byte 

E76D2  Al  86  LDA  ($86, X)  Get  character  from  text  table 

E76F    OA  ASL  A  Bit7  in  carry 

E770    Al  86  LDA  ($86, X)  Get  original  char  one  more  time 

E772    29  7F  AND  #$7F  Bit7  masked 

E774     60  RTS  Return  from  this  subroutine 


[E71D/E722] 

Get  current  byte  from  table 

E775    20  6D  E7  JSR  $E76D  Get  character  from  table 

E778    E6  86  INC  $86  Text  pointer  turns  to  next  byte 

E77A    DO  02  BNE  $E77E  Has  there  been  a  transfer? 

E77C    E6  87  INC  $87  YES-Correct  high-byte 

E77E1  60  RTS  Return  from  this  subroutine 
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[Not  used  in  1571  DOS] 

E77F     60  RTS 

E780     60  RTS 

E781     EA  . . .  NOP 

E7A1     . . .  EA  NOP 

E7A2     60  RTS 


Earlier  1541  ROM  vrsions  had 
an  Autoboot  routine  here 
Eventual  jump  in  ths  routine 
is  caught  and  ended  here  by 
the  1571  drive 


[Jump  through  routine  C146] 

Routine  for  S-Command  [AUTOSTART  program] 


E7A3 

20 

FE 

A5 

JSR 

$A5FE 

Patch    (=CORRECTTONn    for   1  R71 

E7A6 

EA 

NOP 

IHU    U^/Cl  aLXUItf     lll(JUJ..L  X*?U  lOI 

E7A7 

EA 

NOP 

E7A8 

20 

58 

F2 

JSR 

$F258 

E7AB 

AD 

78 

02 

LDA 

V  'J  Z.  1  o 

No*  of  filenames  marked  for 

E7AE 

48 

PHA 

E7AF 

A9 

01 

LDA 

#$01 

T.lTnit"     WO  T"  V    1"  r\ 

E7B1 

8D 

78 

02 

STA 

$0278 

First  file 

E7B4 

A9 

FF 

LDA 

#$FF 

Entry  flag 

E7B6 

85 

86 

STA 

$86 

Clea  re>d 

E7B8 

20 

4F 

C4 

JSR 

$C44F 

TiDolc    in   H"i  TPpt  nru/f  i  1  <»   c»  n  t~  r\r 

U«UJ\      X41                                     V  /  XXXV5     CUL>L  V 

E7BB 

AD 

80 

02 

LDA 

$0280 

Flag/search  result  (track  #) 

E7BE 

DO 

05 

BNE 

$E7C5 

File  entry  found? 

E7C0 

A9 

39 

LDA 

#$39 

Error  message 

E7C2 

20 

C8 

CI 

JSR 

$C1C8 

"39  file  not  found"  displayd 

E7C51 

68 

PLA 

Number  of  f ilenamp^  rerjf^artad 

E7C6 

8D 

78 

02 

STA 

$0278 

and  reset 

E7C9 

AD 

80 

02 

LDA 

$0280 

Track  of  first  file  sector 

E7CC 

85 

80 

STA 

$80 

transferred 

E7CE 

AD 

85 

02 

LDA 

$0285 

First  sector  number 

E7D1 

85 

81 

STA 

$81 

transferred 

E7D3 

A9 

03 

LDA 

#$03 

Identifier  for  USR  data 

E7D5 

20 

77 

D4 

JSR 

$D477 

oofinsd;   first  sector  read  in 

E7D81 

A9 

00 

LDA 

#$00 

Check  sum 

E7DA 

85 

87 

STA 

$87 

Clear 

E7DC 

20 

39 

E8 

JSR 

$E839 

Get  starting  memory  address 

E7DF 

85 

88 

STA 

$88 

from  buffer 

E7E1 

20 

4B 

E8 

JSR 

$E84B 

and  put  into  point  $88/89; 

E7E4 

20 

39 

E8 

JSR 

$E839 

Compare  this 

E7E7 

85 

89 

STA 

$89 

value  with 

E7E9 

20 

4B 

E8 

JSR 

$E84B 

Checksum 

E7EC 

A5 

86 

LDA 

$86 

Flag/"Starting  address  read" 

E7EE 

F0 

OA 

BEQ 

$E7FA 

set  ? 

E7F0 

A5 

88 

LDA 

$88 

No,  note  starting  address 

E7F2 

48 

PHA 

Low  byte  and 

E7F3 

A5 

89 

LDA 

$89 

Note  starting  address 

E7F5 

48 

PHA 

Low  byte 

E7F6 

A9 

00 

LDA 

#$00 

Set  flag  for  "Starting 
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E7F8 

85 

86 

STA 

$86 

address  read" 

E7FA^ 

20 

39 

E8 

JSR 

$E839 

No.  of  data  bytes  following 

E7FD 

85 

8A 

STA 

$8A 

Gotten  from  buffer  and  noted 

E  IF F 

20 

4B 

E8 

JSR 

$E84B 

Initialize  checksum 

E802^ 

20 

39 

E8 

JSR 

$E839 

Get  data  byte  from  Buffer 

E805 

AO 

00 

LDY 

#$00 

Initialze  memory  pointer 

E807 

91 

88 

STA ($88) ,  Y 

and  store  byte 

Hjou  y 

A  X3 
HD 

TOD 

4  T?  Q  A  n 

Byte  taken  in  checksum 

AO 

O  O 

Be 

LDA 

too 

Memory  address   (low  byte) 

E80E 

18 

The  address  at  which  data  is 

T"i  r\  r\  T-i 

E80F 

69 

01 

AUv* 

1F9UI 

stored  should  be  incremented 

E811 

85 

88 

Coo 
poo 

by  one 

E813 

90 

02 

tool  T 

Anything  being  transferred? 

E815 

E6 

89 

TWO 

INC 

903 

Yes,  correct  high  byte 

E817^" 

C6 

8A 

P  On 

Counter/total  #  data  bytes 

E819 

DO 

E7 

PCjOU^ 

All  bytes  in  memory? 

E81B 

20 

35 

CA 

TOD 

Yes,  get  checksum  f/  Buffer 

E81E 

A5 

85 

LDA 

$85 

Compare  checksum 

E820 

C5 

87 

CMP 

$87 

with  value  reached 

E822 

F0 

08 

BEQ 

$E82C 

Identical  ? 

E82  4 

20 

3E 

DE 

JSR 

$DE3E 

Get  track  and  sector 

ZjOZ  1 

Ay 

C  A 
OU 

LDA 

#$50 

Error  message 

E829 

20 

45 

E6 

JSR 

$E645 

"50  record  not  presenf'displayed 

E82C^" 

A5 

F8 

LDA 

$F8 

Flag  for  get  EOI   (last  char) 

E82E 

DO 

A8 

BNE 

$E7D8 

Has  last  char,  been  used? 

E830 

68 

PLA 

Yes,  repeat  starting  address 

E831 

85 

89 

STA 

$89 

of  program, , 

E833 

68 

PLA 

and  put  into 

E834 

85 

88 

STA 

$88 

pointers  $88/$89 

E836 

6C 

88 

00 

JMP($0088) 

Jump  to  prg  via  this  pointer 

[E7DC/E7E4/E7FA/E802] 
Get  byte  from  buffer 


E839 

20 

35 

CA 

JSR 

$CA35 

Get  byte  from  sector 

E83C 

A5 

F8 

LDA 

$F8 

Test  EOI  flag 

E83E 

DO 

08 

BNE 

$E848 

Was  that  the  last  character? 

E840 

20 

3E 

DE 

JSR 

$DE3E 

Yes,  set  track  and  sector 

E843 

A9 

51 

LDA 

#$51 

Error  message 

E845 

20 

45 

E6 

JSR 

$E645 

"51  Overflow  in  record"displayed 

E8481 

A5 

85 

LDA 

$85 

Get  last  character 

E84A 

60 

RTS 

Back  to  original  routine 
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[E7E1/E7E9/E7FF/E809] 
Implement  checksum 
E84B     18  CLC 
E84C     65  87  ADC  $87 

E84E     69  00  ADC  #$00 

E850     85  87  STA  $87 

E852     60  RTS 


Add  new  byte 

to  pre-existng  vals  ADDIEREN 
Calculate  overflow 
And  note  new  checksum  value 
Return  from  subroutine 


[9DC1] 

Capture  flag  (ATN)  from  serial  bus  set 

E853    AD  01  18        LDA  $1801  [ERROR;  Descr.  in  7.1.3] 

E856    A9  01             LDA  #$01  Flag  set  for 

E858     85  7C             STA  $7C  "ATN  Receive" 

E85A      60                 RTS  Return  from  subroutine 


[A7BD/EA56/EA68] 
Routine/controlling  serial  bus 


E85B 

78 

SEI 

Disable  bus/disk  controller 

E85C 

A9 

00 

LDA 

#$00 

Clear  flags  with  zero: 

E85E 

85 

7C 

STA 

$7C 

Set  flags  for  "ATN  RECEIVE" 

E860 

85 

79 

STA 

$79 

Flag  for  listen 

E862 

85 

7A 

STA 

$7A 

Flag  for  talk 

E864 

A2 

45 

LDX 

#$45 

Set  new 

E866 

9A 

TXS 

stack  pointer 

E867 

A9 

80 

LDA 

#$80 

Clear  flags  w/$80  (BIT7  active) : 

E869 

85 

F8 

STA 

$F8 

Flag  /  EOI   (End  of  Transfer) 

E86B 

85 

7D 

STA 

$7D 

Flag  for  ATN  mode 

E86D 

20 

B7 

E9 

JSR 

$E9B7 

Clock  set  to  high 

E870 

20 

A5 

E9 

JSR 

$E9A5 

Data  lines  set  to  low 

E873 

AD 

00 

18 

LDA 

$1800 

Get  bus  control  register 

E876 

09 

10 

ORA 

#$10 

ATN  request  cleared 

E878 

8D 

00 

18 

STA 

$1800 

and  given  on  bus 

E87B1 

AD 

00 

18 

LDA 

$1800 

Bus  status  repeated 

E87E 

10 

57 

BPL 

$E8D7 

Is  ATN  SET? 

E880 

29 

04 

AND 

#$04 

No,  mask  clock  line 

E882 

DO 

F7 

BNE 

$E87B 

Is  clock  set  ? 

E8841 

20 

C9 

E9 

JSR 

$E9C9 

Yes,  readin  commnd  word  from 

E887 

C9 

3F 

CMP 

#$3F 

bus  and  compare  with  UNLIST 

E889 

DO 

06 

BNE 

$E891 

Identical  ? 

E88B 

A9 

00 

LDA 

#$00 

Yes,  clear  flag  for 

E88D 

85 

79 

STA 

$79 

LISTEN 

E88F 

F0 

71 

BEQ 

$E902 

Jump  back  to  $E902 

E8911 

C9 

5F 

CMP 

#$5F 

Compare  with  ONTALK 

E893 

DO 

06 

BNE 

$E89B 

Identical  ? 

E895 

A9 

00 

LDA 

#$00 

Yes,  clear  flag  for 

E897 

85 

7A 

STA 

$7A 

TALK 

E899 

F0 

67 

BEQ 

$E902 

Jump  back  to  $E902 
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E89B1 

C5 

78 

CMP 

$78 

E89D 

DO 

OA 

BNE 

$E8A9 

E89F 

A9 

01 

LDA 

#$01 

E8A1 

85 

7A 

STA 

$7A 

E8A3 

A9 

00 

LDA 

#$00 

E8A5 

85 

79 

STA 

$79 

E8A7 

FO 

29 

BEQ 

$E8D2 

E8A91 

C5 

77 

CMP 

$77 

E8AB 

DO 

OA 

BNE 

$E8B7 

E8AD 

A9 

01 

LDA 

#$01 

E8AF 

85 

79 

STA 

$79 

E8B1 

A9 

00 

LDA 

#$00 

E8B3 

85 

7A 

STA 

$7A 

E8B5 

FO 

IB 

BEQ 

$E8D2 

E8B7 

AA 

TAX 

E8B8 

29 

60 

AND 

#$60 

E8BA 

C9 

60 

CMP 

#$60 

E8BC 

DO 

3F 

BNE 

$E8FD 

E8BE 

8A 

TXA 

E8BF 

85 

84 

STA 

$84 

E8C1 

29 

OF 

AND 

#$0F 

E8C3 

85 

83 

STA 

$83 

E8C5 

A5 

84 

LDA 

$84 

E8C7 

29 

FO 

AND 

#$F0 

E8C9 

C9 

EO 

CMP 

#$E0 

E8CB 

DO 

35 

BNE 

$E902 

E8CD 

58 

CLI 

E8CE 

20 

CO 

DA 

JSR 

$DAC0 

E8D1 

78 

SEI 

E8D22 

2C 

00 

18 

BIT 

$1800 

E8D5 

30 

AD 

BMI 

$E884 

E8D73 

A9 

00 

LDA 

#$00 

E8D9 

85 

7D 

STA 

$7D 

E8DB 

AD 

00 

18 

LDA 

$1800 

E8DE 

29 

EF 

AND 

#$EF 

E8E0 

8D 

00 

18 

STA 

$1800 

E8E3 

A5 

79 

LDA 

$79 

E8E5 

FO 

06 

BEQ 

$E8ED 

E8E7 

20 

2E 

EA 

JSR 

$EA2E 

E8EA 

4C 

6B 

83 

JMP 

$836B 

E8ED1 

A5 

7A 

LDA 

$7A 

E8EF 

FO 

09 

BEQ 

$E8FA 

E8F1 

20 

9C 

E9 

JSR 

$E99C 

E8F4 

20 

AE 

E9 

JSR 

$E9AE 

Talk  address  label 

Should  talk  addr  be  recevng? 

Yes,  set  flag  for 

TALK 

Flag  for  LISTEN 
cleared 

Jump  back  to  $E8D2 
LISTEN  address  label 
Listen  addr  be  receiving? 
Yes,   set  flag  for 
LISTEN 

Flag  for  TALK 
cleared 

Jump  back  to  $E8D2 
Note  command 
Isolate  command  bits 
for  testing 
Identical  ? 
Yes,  repeat  and  note 
command  word 

Set  up  proper  channel  number 
and  save  it 
Repeat  command  word 
Combine  address  bits 
Compare  with  CLOSE  command 
Identical  ? 

Yes,  enable  disk  controller 
Close  call 

Disable  disk/bus  controller 

Check  ATN  bit 

ATN  active?;  if  so,  wait 

No, 

Clear  flag  for  command  mode 

Bus  control  register 

Clear  ATN 

and  send  over  bus 

Flag  for  LISTEN 

Flag  set? 

Data  from  bus  put  to  buffer 

Wait  for  next  command  word 

Flag  for  TALK 

active? 

Data  set  high 

Clock  set  low 


ROM-235 


Abacus  Software 


1571  Internals 


E8F7 

20 

09 

E9 

JSR 

$E909 

E8FA1 

4C 

4E 

EA 

JMP 

$EA4E 

E8FD1 

A9 

10 

LDA 

#$10 

E8FF 

8D 

00 

18 

STA 

$1800 

E9024 

2C 

00 

18 

BIT 

$1800 

E905 

10 

DO 

BPL 

$E8D7 

E907 

30 

F9 

BMI 

$E902 

[E8F7] 

Data  sent  after  talk  call 


E909 

78 

SEI 

E90A 

20 

EB 

DO 

JSR 

$D0EB 

E90D 

BO 

06 

BCS 

$E915 

E90F1 

A6 

82 

LDX 

$82 

E911 

B5 

F2 

LDA 

$F2,X 

E913 

30 

01 

BMI 

$E916 

E9151 

60 

RTS 

E9161 

20 

59 

EA 

JSR 

$EA59 

E919 

20 

CO 

E9 

JSR 

$E9C0 

E91C 

29 

01 

AND 

#$01 

E91E 

08 

PHP 

E91F 

20 

B7 

E9 

JSR 

$E9B7 

E922 

28 

PLP 

E923 

FO 

12 

BEQ 

$E937 

E9251 

20 

59 

EA 

JSR 

$EA59 

E928 

20 

CO 

E9 

JSR 

$E9C0 

E92B 

29 

01 

AND 

#$01 

E92D 

DO 

F6 

BNE 

$E925 

E92F 

A6 

82 

LDX 

$82 

E931 

B5 

F2 

LDA 

$F2,X 

E933 

29 

08 

AND 

#$08 

E935 

DO 

14 

BNE 

$E94B 

E9372 

20 

59 

EA 

JSR 

$EA59 

E93A 

20 

CO 

E9 

JSR 

$E9C0 

E93D 

29 

01 

AND 

#$01 

E93F 

DO 

F6 

BNE 

$E937 

E9411 

20 

59 

EA 

JSR 

$EA59 

E944 

20 

CO 

E9 

JSR 

$E9C0 

E947 

29 

01 

AND 

#$01 

E949 

FO 

F6 

BEQ 

$E941 

E94B2 

20 

AE 

E9 

JSR 

$E9AE 

E94E 

20 

59 

EA 

JSR 

$EA59 

E951 

20 

CO 

E9 

JSR 

$E9C0 

E954 

29 

01 

AND 

#$01 

E956 

DO 

F3 

BNE 

$E94B 

E958 

A9 

08 

LDA 

#$08 

E95A 

85 

98 

STA 

$98 

Buffer  data  sent  over  bus 

Wait  for  next  command  word 

No  TALK  or  LIST  commands 

Data  lines  reset 

Check  ATN 

Is  ATN  reset? 

No,  wait  until  command  end 


Disable  disk  controller 

Look  for  free  channel  and  open 

Is  there  a  free  channel? 

Yes,  get  current  channel  number 

and  corresponding  status 

Is  channel  set  to  read? 

No,  return  from  subroutine 

ATN-Line  test 

Read  value  from  bus  register 
and  get  data  entry 
Note  state  of  data  line 
Clock  output  set  to  low 
Get  data  line  status  again 
Was  data  set  ? 

Yes,  test  for  ATN  command  mode 

Get  value  from  bus  register 

Isolate  data  line 

Wait  until  data  is  set  to  low 

Number  of  internal  channels 

Get  appropriate  status 

and  test  flag  for  EOI 

Last  character  been  sent? 

Yes,  test  for  ATN  mode 

Get  value  from  bus  register 

and  test  data  line 

Wait  until  data  is  low 

Test,  for  ATN  command  mode 

Get  value  from  bus  register 

and  isolate  data  line 

Wait  until  data  input  is  high 

Clock  output  set  high 

Test  for  ATN  mode 

Get  value  from  bus  register 

and  analyze  data 

Wait  until  data  is  set  low 

Set  number  of  bits  per  byte 

in  counter 
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E95C1 

20 

CO 

E9 

JSR 

$E9C0 

Get  value  from  bus  register 

E95F 

29 

01 

AND 

#$01 

and  test  data  line 

E961 

DO 

36 

BNE 

$E999 

Is  data  low? 

E963 

A6 

82 

LDX 

$82 

Yes,  current  channel  number 

E965 

BD 

3E 

02 

LDA 

$023E,X 

Get  corresponding  data  byte 

E968 

6A 

ROR 

A 

and  save  first  bit  in  carry 

E969 

9D 

3E 

02 

STA 

$023E,X 

Note  remainder 

E96C 

BO 

05 

BCS 

$E973 

Is  bit  =1  ? 

E96E 

20 

A5 

E9 

JSR 

$E9A5 

No,  data  line  is  set  high 

E971 

DO 

03 

BNE 

$E976 

Jump  back  to  $E976 

E9731 

20 

9C 

E9 

SR 

$E99C 

Data  line  set  to  low 

E9761 

20 

B7 

E9 

JSR 

$E9B7 

Clock  line  set  to  low 

E979 

A5 

23 

LDA 

$23 

Test  flag  for  bus  mode 

E97B 

DO 

03 

BNE 

$E980 

Is  bus  in  1540  mode  ? 

E97D 

20 

F3 

FE 

JSR 

$FEF3 

No,  4 2 -Cycle  time  delay 

E9801 

20 

FB 

FE 

JSR 

$FEFB 

Data  set  low.  Clock  set  high 

E983 

C6 

98 

DEC 

$98 

Number  of  bits  to  be  sent 

E985 

DO 

D5 

BNE 

$E95C 

Is  byte  already  sent? 

E9871 

20 

59 

EA 

JSR 

$EA59 

Yes,  test  for  ATN  mode 

E98A 

20 

CO 

E9 

JSR 

$E9C0 

Get  value  from  bus  register 

E98D 

29 

01 

AND 

#$01 

and  check  data  line 

E98F 

FO 

F6 

BEQ 

$E987 

Is  data  set? 

E991 

58 

CLI 

Yes— Enable  disk  controller 

E992 

20 

AA 

D3 

JSR 

$D3AA 

Get  next  data  byte  from  Buffer 

E995 

78 

SEI 

Disable  disk  controller  again 

E996 

4C 

OF 

E9 

JMP 

$E90F 

and  sent  over  bus 

E9991 

4C 

4E 

EA 

JMP 

$EA4E 

Wait  for  next  command 

[817B/82  91/82D8/8300/E8F1/E973/E9D7/E9FA/FEFE] 
Data  line  on  low  set 

E99C    AD  00  18     LDA  $1800  Read  bus  control  register 

E99F    29  FD  AND  #$FD  Clear  bit  for 

E9A1     8D  00  18    STA  $1800  data  line 

E9A4     60  RTS  Return  from  subroutine 


[80E6/828C/82F8/833C/E870/E96E/E9F2/EA28] 
Data  line  on  high  set 

E9A5    AD  00  18    LDA  $1800  Get  bus  control  register 

E9A8     09  02  ORA  #$02  and  set  bit  for 

E9AA    8D  00  18     STA  $1800  data  line 

E9AD     60  RTS  Return  from  subroutine 
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Clock  line  set  high 
[817E/822C/E8F4/E94B/FEFB] 
E9AE     AD  00  18     LDA  $1800 
E9B1     09  08  ORA  #$08 

E9B3  8D  00  18  STA  $1800 
E9B6     60  RTS 


Get  bus  control  register 
and  set  bit  for  clock 
Line 

Return  from  subroutine 


Clock  line  set  low 

[80E3/8200/829E/8438/E86D/E91F/E976] 

E9B7    AD  00  18    LDA  $1800  Get  bus  control  register 

E9BA    29  F7  AND  #$F7  and  clear  bit  for 

E9BC    8D  00  18    STA  $1800  clock  line 

E9BF    60  RTS  Return  from  subroutine 


Values  read  from  bus 

[819C/81FA/8209/821B/8225/8232/827A/82B5/82D1/82EF/8306/8331/E919/E928] 

[E93A/E944/E951/E95C/E98A/E9C6/E9D0/E9E9/EA00/EA1D] 

E9C0    AD  00  18    LDA  $1800  Get  control  register 

E9C3  CD  00  18    CMP  $1800  Get  it  again  and  compare  with 

E9C6    DO  F8  BNE  $E9C0  last  value;  values  constant? 

E9C8     60  RTS  Yes,   return  from  subroutine 


Data  received  after  listen  call 
[E884/EA44] 


E9C9 

A9 

08 

LDA 

#$08 

Number  of  bits  per  data  byte 

E9CB 

85 

98 

STA 

$98 

Initialize  counter 

E9CD1 

20 

59 

EA 

JSR 

$EA59 

ATN  test 

E9D0 

20 

CO 

E9 

JSR 

$E9C0 

Get  bus  control  register 

E9D3 

29 

04 

AND 

#$04 

and  test  clock  line 

E9D5 

DO 

F6 

BNE 

$E9CD 

Clock  active? 

E9D7 

20 

9C 

E9 

JSR 

$E99C 

Yes,  activate  data  line 

E9DA 

A9 

01 

LDA 

#$01 

[ERROR-see  7.1.4] 

E9DC 

4C 

20 

FF 

JMP 

$FF20 

Wait  til  data    is  low;  timer  set 

E9DF1 

20 

59 

EA 

JSR 

$EA59 

ATN  test 

E9E2 

AD 

0D 

18 

LDA 

$180D 

Get  interrupt  flags 

E9E5 

29 

40 

AND 

#$40 

and  test  flag  for  timerl 

E9E7 

DO 

09 

BNE 

$E9F2 

Is  timer  running? 

E9E9 

20 

CO 

E9 

JSR 

$E9C0 

No,  get  value  from  bus  register 

E9EC 

29 

04 

AND 

#$04 

Isolate  clock  input 

E9EE 

F0 

EF 

BEQ 

$E9DF 

Is  clock  set? 

E9F0 

DO 

19 

BNE 

$EA0B 

Yes,   jump  back  to  $EA0B 

E9F21 

20 

A5 

E9 

JSR 

$E9A5 

Data  line  set  high 

E9F5 

A2 

OA 

LDX 

#$0A 

Delay  counter  set 

E9F71 

CA 

DEX 

Delay  of  51  Cycles 

E9F8 

DO 

FD 

BNE 

$E9F7 

Is  delay  running? 

E9FA 

20 

9C 

E9 

JSR 

$E99C 

Yes,  data  set  low 

E9FD1 

20 

59 

EA 

JSR 

$EA59 

Test  bus  for  ATN  command 
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EAOO 

20 

CO 

E9 

JSR 

$E9C0 

Get  bus  control  register 

EA03 

29 

04 

AND 

#$04 

Test  clock  line 

EA05 

FO 

F6 

BEQ 

$E9FD 

Clock  set? 

EA07 

A9 

00 

LDA 

#$00 

Yes,  end  of  file 

EA09 

85 

F8 

STA 

$F8 

EOI  flag  set 

EAOB3 

AD 

00 

18 

LDA 

$1800 

Get  control  register  again 

EAOE 

49 

01 

EOR 

#$01 

Correct  data  bits  of  original 

EA10 

4A 

LSR 

A 

value,  and  put  in  carry 

EA11 

29 

02 

AND 

#$02 

Test  clock  line  (set  by  LSR) 

EA13 

DO 

F6 

BNE 

$EA0B 

Clock  set,  file  in  order? 

EA15 

EA 

NOP 

Yes,  empty  register 

EA16 

EA 

NOP 

(Can't  be  used  for  your 

EA17 

EA 

NOP 

own  data) 

EA18 

66 

85 

ROR 

$85 

Move  data  bits  into  temp,  buffer 

EA1A1 

20 

59 

EA 

JSR 

$EA59 

Test  ATN 

EA1D 

20 

CO 

E9 

JSR 

$E9C0 

Read  bus  control  register 

EA20 

29 

04 

AND 

#$04 

Test  clock  line 

EA22 

FO 

F6 

BEQ 

$EA1A 

Is  clock  set? 

EA2  4 

C6 

98 

DEC 

$98 

Yes, counter  set  from  #  data  bits 

EA26 

DO 

E3 

BNE 

$EA0B 

8  bits  read  yet? 

EA28 

20 

A5 

E9 

JSR 

$E9A5 

Yes,  set  data  line  to  low 

EA2B 

A5 

85 

LDA 

$85 

Data  byte  taken 

EA2D 

60 

RTS 

Return  from  subroutine 

[EA4B/E8E7] 

Data  taken  from  bus  and  put  into  current  buffer 


EA2E 

78 

SEI 

Disable  disk  controller 

EA2F 

20 

07 

Dl 

JSR 

$D107 

Write  channel  laid  out 

EA32 

B0 

05 

BCS 

$EA39 

Found  a  free  channel? 

EA34 

B5 

F2 

LDA 

$F2,X 

Yes,  read  proper  channel  status 

EA36 

6A 

ROR 

A 

Is  the  channel 

EA37 

B0 

0B 

BCS 

$EA44 

active? 

EA391 

A5 

84 

LDA 

$84 

Yes,  get  secondary  address 

EA3B 

29 

F0 

AND 

#$F0 

and  isolate  command  bits 

EA3D 

C9 

F0 

CMP 

#$F0 

Compare  with  OPEN  command 

EA3F 

F0 

03 

BEQ 

$EA4  4 

Identical? 

EA41 

4C 

4E 

EA 

JMP 

$EA4E 

No,  wait  for  next  command 

EA4  42 

20 

C9 

E9 

JSR 

$E9C9 

Get  byte  from  bus 

EA4  7 

58 

CLI 

Enable  disk  controller  again 

EA48 

20 

B7 

CF 

JSR 

$CFB7 

Data  byte  transferred  frm  buffer 

EA4B 

4C 

2E 

EA 

JMP 

$EA2E 

Get  next  byte 

EA4E3 

A9 

00 

LDA 

#$00 

Bus  control  register 

EA50 

8D 

00 

18 

STA 

$1800 

Reset 

EA53 

4C 

6B 

83 

JMP 

$836B 

Wait  for  next  command 

Unused  prg.  area  from  1541  DOS 
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Test  if  command  has  been  transferred 

[8199/81F7/8206/8218/8222/822F/82B2/82CE/82E5/8303/832E/8425/85F6] 
[869D/8E14/E916/E925/E937/E941/E94E/E987/E9CD/E9DF/E9FD/EA1A] 


EA59 

A5 

7D 

LDA 

$7D 

Flag  for    "ATN  active" 

EA5B 

FO 

06 

BEQ 

$EA63 

ATN  set  ? 

EA5D 

AD 

00 

18 

LDA 

$1800 

Yes,  current  status  of  ATN  line 

EA60 

10 

09 

BPL 

$EA6B 

Is  ATN  also  set? 

EA621 

60 

RTS 

Yes,  return  from  subroutine 

EA631 

AD 

00 

18 

LDA 

$1800 

Get  current  ATN  status 

EA66 

10 

FA 

BPL 

$EA62 

Is  ATN  still  set? 

EA68 

4C 

B3 

A7 

JMP 

$A7B3 

Yes,  get  command  from  bus 

EA6B1 

4C 

AC 

A9 

JMP 

$A9AC 

ATN  reset 

[EAB5/EABE/EAC4] 

Hardware  error  message  (Infinite  loop)  —LED  blinking 
EA6E    A2  00  LDX  #$00 

EA70     2C  A6  6F     .BYTE  $2C  Jmp  to  next  2  bytes  (bit  command) 


[92B7/EB1F] 

RAM  or  ROM  error  (TEST  and  CHECKSUM) 


EA71 

A6 

6F 

LDX 

$6F 

EA73 

9A 

TXS 

EA741 

BA 

TSX 

EA751 

A9 

08 

LDA 

#$08 

EA77 

0D 

00 

1C 

ORA 

$1C00 

EA7A 

4C 

EA 

FE 

JMP 

$FEEA 

EA7D 

98 

TYA 

EA7E1 

18 

CLC 

EA7F1 

69 

01 

ADC 

#$01 

EA81 

DO 

FC 

BNE 

$EA7F 

EA83 

88 

DEY 

EA84 

DO 

F8 

BNE 

$EA7E 

EA86 

AD 

00 

1C 

LDA 

$1C00 

EA89 

29 

F7 

AND 

#$F7 

EA8B 

8D 

00 

1C 

STA 

$1C00 

EA8E1 

98 

TYA 

EA8F1 

18 

CLC 

EA901 

69 

01 

ADC 

#$01 

EA92 

DO 

FC 

BNE 

$EA90 

EA94 

88 

DEY 

EA95 

DO 

F8 

BNE 

$EA8F 

EA97 

CA 

DEX 

EA98 

10 

DB 

BPL 

$EA75 

EA9A 

E0 

FC 

CPX 

#$FC 

EA9C 

DO 

F0 

BNE 

$EA8E 

EA9E 

F0 

D4 

BEQ 

$EA74 

Get  blink  counter 

and  note  it 

Get  blink  value  again 

LED  bit  (bit  3)  set 

in  disk  controller  register  and 

LED  activated;  more  at  $EA7D 

(0)  counter  routine 

initialized 

Delay  counter 

for  approximately  0.3  /  0.1  sec 

after  1  or  2  Mhz  time 

Is  time  running? 

Yes,  get  control  register 

and  combine  bit  for 

"LED  on" 

(0)     counter  routine 

intialized 

Delay  counter 

For  approximately  0.3  /  0.1  sec 
after  1  OR  2  Mhz  time 
Is  timer  on? 
Blink  counter 
still  blinking? 

No,  wait  approximately  1/0.5  sec 
Time  running? 

Yes,  blink  again  before  starting 
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[89EC/Jump  over  system  vector/  FFFC] 
1571  Reset  jump 


RAM  and  ROM  test 


EAAO 

78 

SEI 

Disable  bus/disk  controller 

EAA1 

D8 

CLD 

Arithmetic  mode  set  for  binary 

EAA2 

A2 

66 

LDX 

#$66 

Value  for  DDRA 

EAA4 

4C 

10  FF 

JMP 

$FF10 

VIA'S  initialized;    iumo  to  SEAA7 

EAA7 

E8 

INX 

[ERROR— see  7.1,4] 

EAA8 

AO 

00 

LDY 

#$00 

Initialize  offset  counter 

EAAA 

A2 

00 

LDX 

#$00 

Set  pointer  to  zeropage  area 

EAAC1 

8A 

TXA 

Write  number  of  memorv  cells 

EAAD 

95 

00 

STA 

$00, X 

Into  memory  cells 

EAAF 

E8 

INX 

Pi  ClC     next"     ITIPlTIOrU     f^p  1  1 

EABO 

DO 

FA 

BNE 

$EAAC 

$100  address  reached'' 

EAB21 

8A 

TXA 

Yes.    coirioare  value  of  meinorv 

EAB3 

D5 

00 

CMP 

$00, X 

location  with  this  value 

EAB5 

DO 

B7 

BNE 

$EA6E 

Both  identical? 

EAB71 

F6 

00 

INC 

$00,  X 

Yes,  increase  memory  location 

EAB9 

C8 

INY 

Offset     mem  address  contents — ^et 

v  -L.  ^  a«?  w  w            111  Will      d\JLV>LH  W  <9  £3       V#*  V>  11  k,  W  11  L  ij       O  W  w 

EABA 

DO 

FB 

BNE 

$EAB7 

All  values  tested  set ? 

EABC 

D5 

00 

CMP 

$00, X 

Yes,   comp  with  memory 

EABE 

DO 

AE 

BNE 

$EA6E 

Identical? 

EACO 

94 

00 

STY 

$00, X 

Yes.    clear  memorv  lofarn  with  0 

■L       &  /       w  ^  w  GL<L      111^7111  V/  J-  V       -1-          CL  Oil      ¥V      1m*  1 L  \J 

EAC2 

B5 

00 

LDA 

$00, X 

Get  contents  again 

EAC4 

DO 

A8 

BNE 

$EA6E 

Was  clear  in  order? 

EAC6 

E8 

INX 

Yes,  pick  next  memory  location 

EAC7 

DO 

E9 

BNE 

$EAB2 

Reached  $100  yet? 

EAC9 

E6 

6F 

INC 

$6F 

Yes,  incremt  error  blink  counter 

EACB 

A2 

80 

LDX 

#$80 

Starting  address  of 

EACD 

86 

76 

STX 

$76 

Operating  system  ROM 

EACF 

A9 

00 

LDA 

#$00 

Set  to  $8000  in  cointers  57^/76 

EAD1 

85 

75 

STA 

$75 

Set 

EAD3 

AO 

02 

LDY 

#$02 

Ignore  checksum  bytes 

EAD5 

18 

CLC 

ROM  pointer  set 

EAD61 

E6 

76 

INC 

$76 

To  next  memory  page 

EAD81 

71 

75 

ADC 

($75) , Y 

ROM  value  for  CHECKSUM 

EADA 

C8 

INY 

ruj.iiLei   uurjicQ  to  nexx*  oyL6 

EADB 

DO 

FB 

BNE 

$EAD8 

Whole  memory  page  considered? 

EADD 

CA 

DEX 

Yes,  #  of  ROM  memory  pages 

EADE 

DO 

F6 

BNE 

$EAD6 

Entire  ROM  checked? 

EAEO 

69 

FF 

ADC 

#$FF 

Yes,  calculate  checksum  value 

EAE2 

85 

76 

STA 

$76 

and  note  result 

EAE4 

DO 

39 

BNE 

$EB1F 

Is  error  on  hand? 

EAE6 

EA 

NOP 

No,  empty  space 

EAE7 

EA 

NOP 

resulting  from  modification 

EAE8 

EA 

NOP 

of  1541 
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EAE9 

EA 

NOP 

ROM 

EAEA 

A9 

01 

LDA 

#$01 

Pick 

EAEC 

85 

76 

STA 

$76 

memory  page  1 

EAEE 

E6 

6F 

INC 

$6F 

Page  #  set  in  blink  counter 

EAFO 

A2 

07 

LDX 

#$07 

Number  of  RAM  pages 

EAF22 

98 

TYA 

Clear  value (Memory  #) 

EAF3 

18 

CLC 

Compute  #  of 

EAF4 

65 

76 

ADC 

$76 

memory  pages  and 

EAF6 

91 

75 

STA 

($75) ,Y 

write  to  memory 

EAF8 

C8 

INY 

Set  pointer  to  next  byte 

EAF9 

DO 

F7 

BNE 

$EAF2 

Entire  memory  page  cleared? 

EAFB 

E6 

76 

INC 

$76 

Yes,  set  pointer  to  next  page 

EAFD 

CA 

DEX 

Number  of  RAM  pages 

EAFE 

DO 

F2 

BNE 

$EAF2 

Whole  RAM  cleared  already? 

EBOO 

A2 

07 

LDX 

#$07 

Yes,  #  of  RAM  pages 

EB021 

C6 

76 

DEC 

$76 

RAM  pointer  to  preceding  page 

EB041 

88 

DEY 

Number  of  pages  yet  to  be  tested 

EB05 

98 

TYA 

Get  position  # 

EB0  6 

18 

CLC 

and 

EB07 

65 

76 

ADC 

$76 

calculate  page  #— 

EB09 

Dl 

75 

CMP 

($75) ,Y 

compare  with  clear  value 

EBOB 

DO 

12 

BNE 

$EB1F 

Is  memory  location  right? 

EBOD 

49 

FF 

EOR 

#$FF 

Yes,  change  values  of  all  bits 

EBOF 

91 

75 

STA 

($75) ,Y 

And  test  for  other  valences 

EB11 

51 

75 

EOR 

($75) ,Y 

Test  result 

EB13 

91 

75 

STA 

($75) ,Y 

and  clear  memory  cell  (0) 

EB15 

DO 

08 

BNE 

$EB1F 

Was  test  successful? 

EB17 

98 

TYA 

Yes,  set  processr  figs  fr  Y-value 

EB18 

DO 

EA 

BNE 

$EB04 

End  of  memory  page? 

EB1A 

CA 

DEX 

Yes,  pick  next  page 

EB1B 

DO 

E5 

BNE  $EB02 

Entire  RAM  tested  yet? 

EB1D 

FO 

03 

BEQ 

$EB22 

Yes,   jump  to  $EB22 

EB1F3 

4C 

71 

EA  JMP 

$EA71 

Hardware  error  display 

[EB1D/EB25:A7C4] 
Initialize  zeropage 
EB22  4C  CO  A7  JMP  $A7C0 


EB25 

AD 

00 

1C 

LDA 

$1C00 

EB28 

29 

F7 

AND 

#$F7 

EB2A 

8D 

00 

1C 

STA 

$1C00 

EB2D 

A9 

01 

LDA 

#$03 

EB2F 

8D 

oc 

18 

STA 

$180C 

EB32 

A9 

82 

LDA 

#$82 

EB34 

8D 

0D 

18 

STA 

$180D 

EB37 

8D 

0E 

18 

STA 

$180E 

EB3A 

AD 

00 

18 

LDA 

$1800 

EB3D 

29 

60 

AND 

#$60 

Stack  set  to  $0100-$0145 

Get  disk  drive  control  register 

and  switch  off  disk 

Drive  LED 

CA1   (ATN)  triggered  positive  S 
CA2   (WP)  to  negative 
"Interupt  from  CA1  active" 
Flag  cleared 
and  activated 

Hardwr-dependent  determination 
of  device  address 
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EB3F 

OA 

ASL 

A 

gott©n,  and  th©  two  sign if i— 

EB40 

2A 

ROL 

A 

cant  bits  5  and.  6 

EB41 

2A 

ROL 

A 

shifted  to  positions 

EB42 

2A 

ROL 

A 

0  and  1 

EB43 

09 

48 

ORA 

#$48 

Device  #  for  talker  operation 

EB45 

85 

78 

STA 

$78 

generated  and  stored 

EB47 

49 

60 

EOR 

#$60 

Device  #  for  listener  operation 

EB4  9 

85 

77 

STA 

$77 

created  and  set 

EB4B 

A2 

00 

LDX 

#$00 

pointer  to  buffer  pointer 

EB4D 

AO 

00 

LDY 

#$00 

High  byte  table  pointer 

EB4F1 

A9 

00 

LDA 

#$00 

Low  byte  value 

EB51 

95 

99 

STA 

$99, X 

Clear  buffer  pointer  low  byte 

EB53 

E8 

INX 

Set  high  byte  pointer 

EB54 

B9 

EO 

FE 

LDA 

$FEE0, Y 

Get  buffer  address  (high  byte) 

EB57 

95 

99 

STA 

$99, X 

and  put  in  pointer 

EB59 

E8 

INX 

Pointer  to  next  buffer  pointer 

EB5A 

C8 

INY 

Pointer  to  next  high  byte 

EB5B 

CO 

05 

CPY 

#$05 

Buffer  # 

EB5D 

DO 

FO 

BNE 

$EB4F 

All  buffer  addresses  laid  out? 

EB5F 

A9 

00 

LDA 

#$00 

Yes,  low  byte  of  input  buffer 

EB61 

95 

99 

STA 

$99, X 

pointer 

EB63 

E8 

INX 

High  byte  pointer 

EB64 

A9 

02 

LDA 

#$02 

Turn  buffer  pointer  to 

EB66 

95 

99 

STA 

$99, X 

address  $200 

EB68 

E8 

INX 

Pointer  to  next  byte 

EB69 

A9 

D5 

LDA 

#$D5 

Low  byte  of  error  buffer 

EB6B 

95 

99 

STA 

$99, X 

set 

EB6D 

E8 

INX 

Turn  pointer  to  next  byte 

EB6E 

A9 

02 

LDA 

#$02 

Error  message  buffer  turned  to 

EB70 

95 

99 

STA 

$99, X 

address  $02D5 

EB72 

A9 

FF 

LDA 

#$FF 

"Channel  free"  value 

EB74 

A2 

12 

LDX 

#$12 

No.   of  secondarv  addresses    fl  9) 

EB761 

9D 

2B 

02 

STA 

$022B,X 

Free  channel 

EB79 

CA 

DEX 

Next  secondary  address 

EB7A 

10 

FA 

BPL 

$EB76 

Entire  table  used  up? 

EB7C 

A2 

05 

LDX 

#$05 

Yes,  #  of  internal  channels  (6) 

EB7E1 

95 

A7 

STA 

$A7,X 

1.  Buffer  freed 

EB80 

95 

AE 

STA 

$AE,X 

2.  Buffer  freed 

EB82 

95 

CD 

STA 

$CD,X 

3.  Buffer  freed 

EB84 

CA 

DEX 

Set  next  channel 

EB85 

10 

F7 

BPL 

$EB7E 

All  channels  considered? 

EB87 

A9 

05 

LDA 

#$05 

Yes,  assign  input  buffer 

EB89 

85 

AB 

STA 

$AB 

to  channel  4 

EB8B 

A9 

06 

LDA 

#$06 

Assign  ERROR  buffer 

EB8D 

85 

AC 

STA 

$AC 

to  channel  5 

EB8F 

A9 

FF 

LDA 

#$FF 

Value/"No  buffer  allotted" 

EB91 

85 

AD 

STA 

$AD 

in  channel  6  (1st  buffer 

ROM-243 


Abacus  Software  1571  Internals 


EB93 

bo 

ta  /I 

CP  ft 
Ol  A 

CiriU    ZI1U  XJUi.i.t2I.^ 

EB95 

TV  Q 

Ay 

uo 

JjUA 

f  9UO 

OcOUIlUdL  y     dUUL  cob     J.u  icflUo 

boy  / 

on 
OU 

On 

UZ 

oln 

S>V6  OD 

^>     <u>11CL111i^  J-  *J 

Hj-byA 

A  Q 

Ay 

fl  4 
O  fl 

JjUA 

^prnnHarv  flfidrp«5S   15  to  channel  4 

17  T5  Qp 

on 
ou 

*3  a 

no 

UZ 

Oln 

$023A 

f  "^1" at* ii  *5  *  WRTTE  channel  onlv) 

a  q 

Ay 

ni? 

t  na 

JjUA 

ffyvl; 

pi  ane   -FriT*  rhannpl    lavout  arranQed 

kJoAl 

on 

o  o 

no 
uz 

CTa 

wJlaililc  J.0    w    J    1 1  ecu 

EBA4 

ft  Q 

Ay 

t  r\  a 
JjUA 

f  9U1 

C  XoL^     LUI         ni  1LC          Lai lilC  J. 

Q  C 
OJ 

£  D 

Oln 

<Ffi 

9"  0 

Qpf    "PrtT*     h annpl  4 

iDAo 

Ay 

t  na 

JjUn 

f  voo 

Plao/"Read  channel/no  EOI" 

EBAA 

Oln 

or  » 

LcAC 

Ay 

t?  n 

t  na 

JjUA 

TT  P  Hj  Vj 

in  arre  cot-  t* o  buffer  lavout 

EBAE 

8D 

4F 

Uz 

C""p  TV 

olA 

9  UZ  fir 

\o€l.    UJ.L- OeL    UUllCi  f 

EBB1 

A9 

FF 

LDA 

#5FF 

T3 1 1  ^  ^  v"  0   n  —  / 
Duiier s 

EBB3 

on 
oD 

OU 

Uz 

CPU 

OlA 

9  UZOU 

f  rooH  111^ 
HccU 

EBB  6 

Ay 

U  1 

t  na 
JjUA 

Jt^  ni 
#9  u  1 

My"  i  +■  c>— r^yi^ii-  oct"    n  n1"  r*h 

EBB  8 

o  c 
oo 

era 
olA 

6*1  r» 

auauuo  J — Lay 

EBBA 

Q  K 

OJ 

1U 

OlA 

Mn 

^1 parpH 

o  n 
z  u 

DO 

r>n 

U  Ox\ 

$CB63 

Jmp  table  pointer/Switch  commands 

ilitirSr 

on 
zu 

va 

£  A 

U  Oi\ 

ov^Jii£  n 

lni.tii.aljLze  buffer  channel  table 

zu 

fl  0 
OZ 

DP 

r  r 

O  Ox\ 

Activate  disk  controller  routine 

EBC5 

a  q 

Ay 

ZZ 

t  na 

JjUA 

1f9^  ^ 

Pointer  to  NMI  or  SWITCH 

OJ 

DO 

Oln 

9  DO 

command  between  1541  and  1540 

ao 
Ay 

t  na 

1f  9£jD 

in  $65/$66  set 

EBCB 

b  o 

era 

O  1A 

y  OD 

•in  SEB22 

JLJ3UU 

Ay 

U  O 

t  na 

Sector  pawning"  ( 6) 

Oj 

D  J? 

STA 

$69 

determined 

EBDl 

ft  Q 

Ay 

f\  K 

UO 

t  na 
JjUA 

#6n  ^ 
it  9UO 

NumVi^r  nf  rpader  searches  bv 

EBD3 

o  c~. 
OO 

DA 

OlA 

<  £a 

9  Oft 

orrnr    o^t"    to  S 

EBD5 

Ay 

/J 

t  na 
JjUA 

f  9  '  J 

UVj'O    ^  WW'S  J-     ™jy   *it~  J*  ^  aye 

EBD7 

20 

CI 

E6 

JSR 

$E6C1 

"73  CBM  DOS  V3.0  1571"displayed 

EBDA 

A9 

00 

LDA 

#$00 

Bus  lines 

EBDC 

8D 

00 

18 

STA 

$1800 

reset 

EBDF 

A9 

1A 

LDA 

#$1A 

Input/output  layout  %00011010 

EBE1 

8D 

02 

18 

STA 

$1802 

determined 

EBE4 

20 

86 

A7 

JSR 

$A786 

CIA  6526  initialized 

[836E/E8EA/EA53] 

Wait  loop  for  command  recognition 


EBE7 

58 

CLI 

Enable  bus/disk  controller 

EBE8 

AD 

00 

18 

LDA 

$1800 

Get  bus  control  register 

EBEB 

29 

E5 

AND 

#$E5 

and  clear  all  outputs 

EBED 

8D 

00 

18 

STA 

$1800 

and  set  bus  to  output  status 

EBF0 

AD 

55 

02 

LDA 

$0255 

Flag/ "Command  received" 

EBF3 

F0 

OA 

BEQ 

$EBFF 

set? 

EBF5 

A9 

00 

LDA 

#$00 

Yes,  command  flag 

EBF7 

8D 

55 

02 

STA 

$0255 

cleared 
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EBFA 

EA 

NOP 

vt\jr    j,  jl  uni  muulL  lCaClun 

EBFB 

EA 

NOP 

of    1541  ROM 

EBFC 

4C 

1C 

A6 

JMP 

$A61C 

V-VJilUUCLllVa     J.JLSjJ(l     WvKiJtT  •  CACCUtCU 

[A628/EBF3/EC9B] 

Wait 

for 

command 

EBFF 

58 

CLI 

Enable  bus/disk  pontrnl i pr 

ECOO 

A5 

7C 

LDA 

$7C 

EC02 

FO 

03 

BEQ 

$EC07 

set? 

EC04 

4C 

94 

A6 

JMP 

$A694 

Yes— 

EC071 

58 

CLI 

EjJ  1  aiJXC    UjLdJv/ UUo    oUilLLUllcI  a.ycLXIi 

ECO  8 

A9 

OE 

LDA 

#$0E 

Largest  secondary  address  for 

EC  OA 

85 

72 

STA 

$72 

files  available 

ECOC 

A9 

00 

LDA 

#$00 

Out  standi  n n    inh   r*on nfpr 

ECOE 

85 

6F 

STA 

$6F 

cl  ^AT*aH    f  nr    Hi  elf    Hrl  vo  anH 

ECIO 

85 

70 

STA 

$70 

disk  drive  1 

EC121 

A6 

72 

LDX 

$72 

Gpt    sprrinHa t v  flfiHrocQ 

EC14 

BD 

2B 

02 

LDA 

$022B,X 

and   phc»f  1c   fnTTP^nonHi  nrr  rhannol 

Bllw     VillC^A      ^vj.  J.  CO^/UJlUXll^      wi 1CL1 1  lid 

EC17 

C9 

FF 

CMP 

#$FF 

status  11  free"  value 

EC19 

FO 

10 

BEQ 

$EC2B 

Is  channel  free? 

EC1B 

29 

3F 

AND 

#$3F 

No.    oet  and  notp  #  of   1  n- 

EC1D 

85 

82 

STA 

$82 

ternal   channel  s  al  1ot~t^ri 

EC1F 

20 

93 

DF 

JSR 

$DF93 

Get  and  note 

EC22 

AA 

TAX 

buffer  # 

EC23 

BD 

5B 

02 

LDA 

$025B,X 

Job  code  of  buff£»T"  d^tf*rmi  ne>H 

EC26 

29 

01 

AND 

#$01 

and  last— used  d"i  sV  Hriup 

EC28 

AA 

TAX 

noted 

EC29 

F6 

6F 

INC 

$6F,X 

Increment  #  of  jobs 

EC2B1 

C6 

72 

DEC 

$72 

Next   secondarv  addrp«;<5 

EC2D 

10 

E3 

BPL 

$EC12 

EC2F 

AO 

04 

LDY 

#$04 

Yes     bnffpr  # 

EC311 

B9 

00 

00 

LDA 

$0000, Y 

L>     UUilCI       J  UXJ     w  UUC 

EC34 

10 

05 

BPL 

$EC3B 

Is   "lob  in  Drocess' 

EC36 

29 

01 

AND 

#$01 

Yes.   cret  and  note  di  sic  dri  vp 

EC38 

AA 

TAX 

number 

EC39 

F6 

6F 

INC 

$6F,  X 

InCT^mpnt"    #   nf  inhQ 

X>  Al  w  X.  wlllCl  1  L      Tr       v  X.         1  wX^  o 

EC3B1 

88 

DEY 

UlUUSC    IlcAL  UUilcL 

EC3C 

10 

F3 

BPL 

$EC31 

nil    J  Wo    Lea  L.6U.  • 

EC3E 

78 

SEI 

irjo  jjisaoxe  ous / uisk  controller 

EC3F 

AD 

00 

1C 

LDA 

$1C00 

L.     UJLoA.    CUHLlOl     17 ey  jLS  tci 

EC42 

29 

F7 

AND 

#$F7 

Til**.n    rp  QCsl"     anr)    ma  c  V  ftonQTaf 

EC44 

48 

PHA 

For  "LED  OUT"  noted 

EC45 

A5 

7F 

LDA 

$7F 

Current  drive 

EC47 

85 

86 

STA 

$86 

Note  current  disk 

EC4  9 

A9 

00 

LDA 

#$00 

drive  0 

EC4B 

85 

7F 

STA 

$7F 

chosen 

EC4D 

A5 

6F 

LDA 

$6F 

Number  of  jobs  for  drive  0 
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EC4F 

F0 

OB 

BEQ 

$EC5C 

Are  any  jobs  accomplished? 

EC51 

A5 

1C 

LDA 

$1C 

Yes,  flag  for  write-protect  light 

EC53 

F0 

03 

BEQ 

$EC58 

Should  diskette  be  initialized? 

EC55 

20 

13 

D3 

JSR 

$D313 

Diskette  initialization 

•ppc  p  1 

68 

PLA 

Get  mask  for  drive  control  again. 

08 

ORA 

#608 

Irvvo 

Switch  LED  and  save 

EC5B 

48 

PHA 

again 

EC5C^" 

E6 

7F 

INC 

$7F 

Choose  drive  1 

EC5E 

A5 

70 

LDA 

$70 

Drive  1  job  counter 

EC  60 

F0 

0B 

BEQ 

$EC6D 

Are  drive  1  jobs  done? 

EC  62 

A5 

ID 

LDA 

$1D 

Yes, write-protect  flag  for  drivel 

F0 

03 

BEQ 

$EC69 

Diskette  change  found? 

20 

13 

D3 

JSR 

$D313 

Close  all  drive  channels 

68 

PLA 

Bring  back  drive  control  mask 

EC  6  A 

09 

00 

ORA 

#$00 

and  set  LED  for  drive  1 

EC6C 

48 

PHA 

—note  again 

EC6D1 

A5 

86 

LDA 

$86 

Call  back  and  take  up 

EC6F 

85 

7F 

STA 

$7F 

Current  disk  drive 

EC71 

68 

PLA 

Get  disk  control  mask 

LED  error 

blinking 

control 

EC72 

AE 

6C 

02 

LDX 

$026C 

Test  error  flag 

EC75 

F0 

21 

BEQ 

$EC98 

Set? 

EC77 

AD 

00 

1C 

LDA 

$1C00 

Yes,  get  control  register 

EC7A 

E0 

80 

CPX 

#$80 

Test  blink  phase  counter 

EC7C 

DO 

03 

BNE 

$EC81 

timer  reset? 

EC7E 

4C 

8B 

EC 

JMP 

$EC8B 

No,  go  on 

EC811 

AE 

05 

18 

LDX 

$1805 

High  byte  of  timer  1 

EC84 

30 

12 

BMI 

$EC98 

Is  counter  running? 

EC8  6 

A2 

AO 

LDX 

#$A0 

Yes,  high  byte 

EC88 

8E 

05 

18 

STX 

$1805 

reset 

EC8B1 

CE 

6C 

02 

DEC 

$026C 

Blink  counter  decremented 

EC8E 

DO 

08 

BNE 

$EC98 

Is  counter  running? 

EC90 

4D 

6D 

02 

EOR 

$026D 

LED  switched 

EC  93 

A2 

10 

LDX 

#$10 

Blink  counter  0.4/  0.2  sec 

EC95 

8E 

6C 

02 

STX 

$026C 

Delay  set 

EC983 

8D 

00 

1C 

STA 

$1C00 

LED  controlled 

EC9B 

4C 

FF 

EB 

JMP 

$EBFF 

Blink  some  more 

ROM- 246 


Abacus  Software 


1571  Internals 


[DAA7] 

Directory  for  'Load  "$'"sets  up  directory  to  load  as  BASIC  program 


Ay 

00 

LDA 

JL  £  A  A 

#500 

Set  zero  as  current 

O  J 

STA 

too 

2ndary  address (load  channel) 

re  a  o 

a  a 
Ay 

A  1 

t  n  a 

Jl  *  A  1 

Look  for  read  channel  and 

Bp*  * 

o  a 
zO 

t?  o 

ILZ 

Dl 

JSR 

$D1E2 

set  pointer  position  in  appro- 

EjCA f 

Ay 

A  A 

uu 

t  n  a 

■ft  6  A  A 
If  $00 

priate  buffer 

a  q 

c  q 

L,  o 

T\A 

Wi 

TOO 

$D4C8 

Reset  buffer  to  null 

£jCAL 

Ab 

OZ 

LDX 

coo 
$82 

Number  of  channels  found 

ilA-AiL 

Ay 

A  A 

oo 

LDA 

ft  i?  A  A 

#500 

Clear  pointer  to  end  of  buffer 

ECBO 

9D 

44 

02 

STA 

$0244, X 

entrance 

ECB3 

20 

93 

DF 

JSR 

$DF93 

Get  and  note  number  of 

AA 

TAX 

buffers  chosen 

ECB7 

AO 

7F 

LDA 

$7F 

Get  current  drive  #  and 

ECB9 

9D 

5B 

02 

STA 

$025B,X 

arrange  drive  table  buffer 

a  o 
AS? 

A  1 
01 

LDA 

JL    r»  i 
#501 

starting  address  of  "Imagi 

hCBE 

o  a 
zU 

Fl 

CF 

JSR 

5CFF1 

ary"  BASIC  program  ($0401) 

a  o 

Ay 

A  A 
04 

LDA 

JL  *  rt  a 

#504 

written  to 

ECC3 

20 

Fl 

CF 

JSR 

$CFF1 

current  buffer 

ECC6 

A9 

01 

LDA 

#$01 

Two  fillbytes  as  placeholder 

ECC8 

20 

Fl 

CF 

JSR 

$CFF1 

for  the  bASIC  line  pointer  to 

ECCB 

20 

Fl 

CF 

JSR 

$CFF1 

write  to  the  buffer 

AD 

/z 

02 

LDA 

$0272 

Get  drive  number,  and  put  in 

Oft 

ZU 

Fl 

CF 

JSR 

$CFF1 

buffer  as  low  byte  of  the  line 

ECD4 

A9 

00 

LDA 

#$00 

number;  the  high  byte 

O  A 

Fl 

CF 

JSR 

$CFF1 

is  set  to  null 

ECD9 

20 

5  9 

ED 

JSR 

$ED59 

Transfer  disk  name  to  buffer 

ECDC 

50 
t  *j 

L/C 

U  OK 

pJJr  yj 

Get  the  number  of  the  current 

UA 

ACT 

Abb 

A 

buffer,  double,  and 

A  A 
AA 

T  A  V 
1AX 

decremt  pointer  from  current 

ECE1 

D6 

nun 

95?/  A 

buffer  position  by  two 

JliL.£j  J 

Do 

y  y 

DEC 

inn  v 

999,  X 

characters 

a  o 
Ay 

A  A 

T  r\A 

ft  £  A  A 
#500 

Store  end-of-BASIC  line 

OA 
ZU 

Fl 

r  JL 

y*c 

Ten 

$Cr  £  1 

In  buffer 

FPU1  A 

AQ 

m 

\J  X 

T  na 
JjUA 

ff$01 

Set  up  two  bytes  as  placeholders 

OA 

ZU 

f  1 

CF 

JSR 

5CFF1 

for  chaining  of 

FPFF 

o  n 

FT 

r  1 

50r  r  1 

BASIC  lines 

pip 

JSR 

$C6CE 

Read  entry  from  directory 

yu 

ZC 

BCC 

$ED23 

All  entries  handled? 

TTdT1  "7 
£iU£  / 

ar\ 
AU 

/  Z 

AO 

LDA 

$0272 

No,  #  of  blocks  laid  out  (low) 

ECFA 

20 

Fl 

CF 

JSR 

$CFF1 

as  low  byte  of  BASIC  line  #  & 

ECFD 

AD 

73 

02 

LDA 

$0273 

high  byte  of  #  blocks  as  hi  byte 

EDOO 

20 

Fl 

CF 

JSR 

$CFF1 

of  BASIC  line  #  in  buffer 

ED03 

20 

59 

ED 

JSR 

$ED59 

Copy  dir.  entry  in  buffer 

EDO  6 

A9 

00 

LDA 

#$00 

Set"End-Of-BASIC  line"' 

ED08 

20 

Fl 

CF 

JSR 

$CFF1 

in  buffer 

EDOB 

DO 

DD 

BNE 

$ECEA 

Buffer  full? 
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LjUKJU 

^  u 

nr 

$DF93 

Ma     frpt"  #  of  current  buffers 

ED10 

OA 

ASL 

Double  number 

ED11 

AA 

TAX 

and.  reset  pointer  to  current 

ED12 

A9 

00 

LDA 

#$00 

position  of  corresponding 

ED  14 

95 

99 

STA 

S99  X 

fouf f ©r 

£jUl  b 

A  Q 

Q  Q 

JjJja 

U1 1  air  /  "H^  yo nru    n rtt    i  n    hn  f  f  or 
rxoitj/    uiicirfLULy    nut    xu   uu i  j_  e;  j_ 

ED18 

A4 

82 

LDY 

$82 

Get  channel  number 

EDI  A 

8D 

54 

02 

STA 

$0254 

Set  flag 

ED1D 

99 

F2 

00 

STA 

$00F2,Y 

Switch  channel  status  to  read 

ED20 

A5 

85 

LDA 

$85 

Get  current  data  byte 

ED22 

60 

RTS 

Return  from  subroutine 

[ECF5] 

Directory  output  ended 


ED23 

AD 

72 

02 

LDA 

$0272 

Take  #  of  free  blocks  in 

ED26 

20 

Fl 

CF 

JSR 

$CFF1 

50272/02/3  as  BASIC  line  f 

ED29 

AD 

73 

02 

LDA 

$0273 

and  write  to 

ED2C 

20 

Fl 

CF 

JSR 

$CFF1 

buffer 

ED2F 

20 

59 

ED 

JSR 

$ED59 

Write"BLOCKS  FREE"/  buffer 

ED32 

20 

93 

DF 

JSR 

$DF93 

Get  #  of  current  buffer 

ED35 

OA 

ASL 

A 

Double  number 

ED36 

AA 

TAX 

Pointer  for  current  character 

ED37 

D6 

99 

DEC 

$99, X 

position  in  buffer  set  in  two 

ED39 

D6 

99 

DEC 

$99, X 

bytes 

ED3B 

A9 

00 

LDA 

#$00 

End-of-line  marker  and  two 

ED3D 

20 

Fl 

CF 

JSR 

$CFF1 

blank  string  bytes (End-of- 

ED40 

20 

Fl 

CF 

JSR 

$CFF1 

program  markers) ,  put  into 

ED43 

20 

Fl 

CF 

JSR 

$CFF1 

current  buffer 

ED4  6 

20 

93 

DF 

JSR 

$DF93 

Get  current  buffer  number 

ED4  9 

OA 

ASL 

A 

Double  number 

ED4A 

A8 

TAY 

Get  number  of  bytes  still 

ED4B 

B9 

99 

00 

LDA 

$0099, Y 

in  buffer  and  set  as  pointer 

ED4E 

A6 

82 

LDX 

$82 

for  the  end  bytes  transferred 

ED50 

9D 

44 

02 

STA 

$0244, X 

from 

ED53 

DE 

44 

02 

DEC 

$0244, X 

buffer 

ED5  6 

4C 

0D 

ED 

JMP  $ED0D 

End 

[ECD9/ED03/ED2F] 

Copy  directory  entry  into  current  buffer 

ED59    AO  00        LDY  #$00  Initialize  buffer  pointer 

ED5B    B9  Bl  02  LDA  $02B1,Y  Get  char,  from  directory  buffer 

ED5E    20  Fl  CF  JSR  $CFF1  and  transfer  to  current  buffer 

ED61    C8  INY  Set  pointer  to  next  character 

ED62    CO  IB        CPY  #$1B  Number  of  char,  per  entry 

DO  F5        BNE  $ED5B  All  characters  copied? 


ED64 
ED66  60 


RTS  Yes,  return  from  subroutine 
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[D40E] 

Get  byte  from  directory 


ED67 

20 

37 

Dl 

JSR 

$D137 

Get  byte  from  file 

ED6A 

F0 

01 

BEQ 

$ED6D 

End  of  file  reached? 

ED6C 

60 

RTS 

No,  return  from  subroutine 

ED6D1 

85 

85 

STA 

$85 

Save  last  data  byte 

ED6F 

A4 

82 

LDY 

$82 

Get  #  of  channels 

ED71 

B9 

44 

02 

LDA 

$0244, Y 

No.  of  bytes  to  be  transferred 

ED7  4 

F0 

08 

BEQ 

$ED7E 

No  more  data? 

ED7  6 

A9 

80 

LDA 

#$80 

No,   set  channel  status  to 

ED78 

99 

F2 

00 

STA 

$00F2,Y 

"READ/EOI"  and 

fcjJJ  /  hi 

AO 

85 

LDA 

$85 

yet.    J.  aa  U    data   uy  L.e  a^aui 

ED7D 

60 

RTS 

Return  from  subroutine 

ED7E1 

48 

PHA 

Get  tf  or  data  oytes 

ED7F 

20 

EA 

EC 

JSR 

$ECEA 

Produce  directory  line 

ED82 

68 

PLA 

Get  last  data  byte  again 

ED83 

60 

RTS 

Return  from  subroutine 

[Jump 

to 

routine  C146] 

Routine  for 

validate  command 

ED84 

20 

Dl 

CI 

JSR 

$C1D1 

• 

Get  drive  #  from  command  string 

ED87 

20 

42 

DO 

JSR 

$D042 

Initialize  diskette 

ED8A 

A9 

40 

LDA 

#$40 

Flag   for   ILLEGAL  BAM 

ED8C 

8D 

F9 

02 

STA 

$02F9 

set 

ED8F 

20 

C7 

A7 

JSR 

$A7C7 

Produce  new  BAM 

ED92 

A9 

00 

LDA 

#$00 

Clear  pointer  for  directory 

ED94 

8D 

92 

02 

STA 

$0292 

entry;  set  search  flag 

ED  97 

20 

AC 

C5 

JSR 

$C5AC 

Look  for  files  in  directory 

ED  9  A 

DO 

3D 

BNE 

$EDD9 

Found  an  entry? 

ED9C1 

A9 

00 

LDA 

#$00 

No,   set  sector  numbers 

ED9E 

85 

81 

STA 

$81 

to  null 

EDAO 

AD 

85 

FE 

LDA 

$FE85 

Get  and  set  up 

EDA3 

85 

80 

STA 

$80 

directory  track  number  (18) 

EDA5 

20 

E5 

ED 

JSR 

$EDE5 

Put  directory  track  in  BAM 

EDA8 

A9 

00 

LDA 

#$00 

dear  nag  ror  iiiJjCjUAJlj 

EDAA 

8D 

F9 

02 

STA 

$02F9 

13  7\  Turn 

EDAD 

20 

FF 

EE 

JSR 

$EEFF 

write  rsAM  to  diskette 

EDBO 

4C 

94 

CI 

JMP 

$C194 

"OK"displayed, end  of  command 

[EDDD] 

All  blocks  of 

a  file  put  into  BAM 

EDB3 

C8 

INY 

Set  dir.  buffer  pointer  to  track 

EDB4 

Bl 

94 

LDA 

($94) ,Y 

of  first  data  block— and 

EDB6 

48 

PHA 

get   (and  note)  track  number 

EDB7 

C8 

INY 

Set  buffer  pointer  to  next  char. 

EDB8 

Bl 

94 

LDA 

($94) ,Y 

Get  and  save  sector  number 

EDBA 

48 

PHA 

of  first  data  block 
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EDBB 

AO 

13 

LDY 

#$13 

Set  buffer  pointr  to  position  of 

EDBD 

Bl 

94 

LDA 

($94) ,Y 

side  sector  pointer  &  get  track 

EDBF 

FO 

OA 

BEQ 

$EDCB 

Side  sector  block  avail.?' 

EDC1 

85 

80 

ST  $80 

Yes,  Save  track  number  of  first 

EDC3 

C8 

INY 

sector, get  the  sector  #  from 

EDC4 

Bl 

94 

LDA 

($94) ,Y 

the  directory 

EDC6 

85 

81 

STA 

$81 

buffer 

EDC8 

20 

E5 

ED 

JSR 

$EDE5 

Read, lay  out  side  sector  blocks 

1T>  T"\  Z"' T*  -L 

EDCB 

68 

PLA 

Get  sector  number  again  and 

EDCC 

85 

81 

STA 

$81 

save  it 

EDCE 

68 

PLA 

Set  up  and  save  track 

EDCF 

85 

80 

STA 

$80 

number  again 

EDD1 

20 

E5 

ED 

JSR 

$EDE5 

Read  data  block,  put  into  BAM 

EDD41 

20 

04 

C6 

JSR 

$C604 

Get  next  legal  file  entry 

EDD7 

FO 

C3 

BEQ 

$ED9C 

All  files  checked? 

EDD91 

AO 

00 

LDY 

#$00 

Set  buffer  pointer  to  1st  char. 

EDDB 

Bl 

94 

LDA 

($94) , Y 

Get  identifier  for  filetype 

EDDD 

30 

D4 

BMI 

$EDB3 

Are  files  closed  properly? 

EDDF 

20 

B6 

C8 

JSR 

$C8B6 

No,  clear  file 

EDE2 

4C 

D4 

ED 

JMP 

$EDD4 

Go  on  to  next  filename 

[EDA5/EDC8/EDD1] 

All  blocks  following  a  file 


EDE5 

20 

5F 

D5 

JSR 

$D55F 

Check  track  and  sector  number 

EDE8 

20 

90 

EF 

JSR 

$EF90 

Put  current  block  in  BAM 

EDEB 

20 

75 

D4 

JSR 

$D475 

Read  block  in  buffer 

EDEE1 

A9 

00 

LDA 

#$00 

Set  buffer  pointer  to  beginning 

EDF0 

20 

C8 

D4 

JSR 

$D4C8 

of  file  block 

EDF3 

20 

37 

Dl 

JSR 

$D137 

Get  1st  byte  from  file  block  and 

EDF6 

85 

80 

STA 

$80 

save  track  of  next  block 

EDF8 

20 

37 

Dl 

JSR 

$D137 

Get  2nd  byte  of  file  block  and 

EDFB 

85 

81 

STA 

$81 

store  corresponding  sector 

EDFD 

A5 

80 

LDA 

$80 

Test  track  identifier  for  EOF; 

EDFF 

DO 

03 

BNE 

$EE04 

last  block  of  file? 

EE01 

4C 

27 

D2 

JMP 

$D227 

Yes,  close  channel  and  end 

EE041 

20 

90 

E 

JSR 

$EF90 

Block  in  BAM  as  stored  identifir 

EE07 

20 

4D 

D4 

JSR 

$D44D 

Read  next  file  block  and 

EE  OA 

4C 

EE 

ED 

JMP 

$EDEE 

continue  testing 

[Jump  to  routine  C14  6] 
Routine  for  new  command 
EE0D     20  12  C3  JSR  $C312 
EE10     A5  E2        LDA  $E2 
EE12     10  05        BPL  $EE19 
EE14     A9  33        LDA  #$33 
EE16     4C  C8  CI  JMP  $C1C8 
EE191  29  01        AND  #$01 


Get  drive  #  from  command 

Get  number 

Number  in  order? 

No,  ERROR  message 

"33  SYNTAX  ERROR"  output 

Set  up  drive  number  and  save 
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EE1B 

85 

7F 

STA 

$7F 

as  current  drive 

EE1D 

20 

9C 

FF 

JSR 

$FF9C 

Set  drive  status  and  operate  LED 

EE20 

A5 

7F 

LDA 

$7F 

Number  of  current  drive 

EE22 

OA 

ASL 

A 

and  Double 

EE23 

AA 

TAX 

(2 -byte-table) 

EE24 

AC 

7B 

02 

LDY 

$027B 

Compare  position  of  ID  pointer 

EE27 

CC 

74 

02 

CPY 

$0274 

with  length  of  command  string 

EE2A 

FO 

1A 

BEQ 

$EE4  6 

Is  a  new  ID  given? 

EE2C 

B9 

00 

02 

LDA 

$0200, Y 

Yes, get  and  convey  1st  ID  char. 

EE2F 

95 

12 

STA 

$12, X 

from  input  buffer 

EE31 

B9 

01 

02 

LDA 

$0201, Y 

Get  the  second  ID 

EE34 

95 

13 

STA 

$13, X 

character 

EE36 

20 

07 

D3 

JSR 

$D307 

Close  all  channels 

EE39 

A9 

01 

LDA 

#$01 

Set  first  track 

EE3B 

85 

80 

STA 

$80 

to  be  formatted 

EE3D 

20 

2F 

FF 

JSR 

$FF2F 

format  diskette 

EE40 

4C 

64 

A7 

JMP 

$A764 

Clear  buffer  for  BAM 

EE43 

4C 

56 

EE 

JMP 

$EE56 

Make  sector  18,  0 

EE461 

20 

42 

DO 

JSR 

$D042 

initialize  diskette 

EE4  9 

A6 

7F 

LDX 

$7F 

Get  current  drive,  and 

EE4B 

BD 

01 

01 

LDA 

$0101, X 

determine  format  identifiers  to 

EE4E 

CD 

D5 

FE 

CMP 

$FED5 

be  read 

EE51 

FO 

03 

BEQ 

$EE56 

Right  format? 

EE53 

4C 

72 

D5 

JMP 

$D572 

No,  output  "POWER-ON"message 

EE56 

20 

C7 

A7 

JSR 

$A7C7 

Create  new  BAM 

EE59 

A5 

F9 

LDA 

$F9 

Current  buffer  number 

EE5B 

A8 

TAY 

Double  number 

EE5C 

OA 

ASL 

A 

(Buffer  pointer  presented 

EE5D 

AA 

TAX 

as  a  2-byte  number) 

EE5E 

AD 

88 

FE 

LDA 

$FE88 

Get  name  position  in  sector  18,0 

EE61 

95 

99 

STA 

$99, X 

and  put  in  buffer  pointer 

EE63 

AE 

7A 

02 

LDX 

$027A 

Get  buffer  number 

EE66 

A9 

IB 

LDA 

#$1B 

Length  of  diskette  name 

EE68 

20 

6E 

C6 

JSR 

$C66E 

Copy  disk  name  to  BAM-buffer 

EE6B 

AO 

12 

LDY 

#$12 

Diskette  name  pointer 

EE6D 

A6 

7F 

LDX 

$7F 

Get  current  drive 

EE6F 

AD 

D5 

FE 

LDA 

$FED5 

Get  and  store  identifier  for 

EE72 

9D 

01 

01 

STA 

$0101, X 

1541/1571  format 

EE75 

8A 

TXA 

Get  and  double 

EE76 

OA 

ASL 

A 

drive 

EE77 

AA 

TAX 

number 

EE78 

B5 

12 

LDA 

$12, X 

Get  drive  ID  and  put 

EE7A 

91 

94 

STA 

($94) ,Y 

into  buffer 

EE7C 

C8 

INY 

Buffer  pointer  set  to  next  byte 

EE7D 

B5 

13 

LDA 

$13, X 

Get  2  ID  chars  and 

EE7F 

91 

94 

STA 

($94) ,Y 

send  to  buffer 
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EE81 

C8 

INY 

Buffer  pointer  set  up  for  two 

EE82 

C8 

I  NY 

characters 

EE83 

A9 

32 

LDA 

#$32 

"2A"  written 

EE85 

91 

94 

STA 

($94), Y 

as  identifier  for  format 

EE87 

C8 

INY 

in  directory  line  with 

EE88 

AD 

D5 

FE 

LDA 

$FED5 

Diskette  name 

EE8B 

91 

94 

STA 

($94) ,Y 

and  ID 

EE8D 

AO 

02 

LDY 

#$02 

Write  track  number 

EE8F 

91 

6D 

STA 

($6D),Y 

in  BAM 

EE91 

AD 

85 

FE 

LDA 

$FE85 

Set  number  of  directory 

EE94 

85 

80 

STA 

$80 

track 

EE96 

20 

93 

EF 

JSR 

$EF93 

Set  BAM  block  in  BAM  as  proof 

EE99 

A9 

01 

LDA 

#$01 

Determine  number  of  first 

EE9B 

85 

81 

STA 

$81 

directory  block 

EE9D 

20 

93 

EF 

JSR 

$EF93 

Put  directory  block  in  BAM 

EEAO 

20 

FF 

EE 

JSR 

$EEFF 

Write  new  BAM  to  disk 

EEA3 

20 

05 

FO 

JSR 

$F005 

Clear  BAM  buffer 

EE  A  6 

AO 

01 

LDY 

#$01 

Set  buff  pointer  to2nd  char. 

EEA8 

A9 

FF 

LDA 

#$FF 

Write  #  of  valid  buffer  bytes 

EEAA 

91 

6D 

STA 

($6D),Y 

to  directory  block 

EEAC 

20 

64 

D4 

JSR 

$D464 

Write  directory  block  18,1 

EEAF 

C6 

81 

DEC 

$81 

Current  sector  #  to  null 

EEB1 

20 

42 

DO 

JSR 

$D042 

and  read  sector 

EEB4 

4C 

94 

CI 

JMP 

$C194 

"OK"  message 

[A6C4/A708] 

New  1541 

BAM 

EEB7 

20 

Dl  F0 

JSR 

$F0D1 

EEBA 

AO 

00 

LDY 

#$00 

EEBC 

A9 

12 

LDA 

#$12 

EE  BE 

91 

6D 

STA 

($6D) ,Y 

EEC0 

C8 

INY 

EEC1 

98 

TYA 

EEC  2 

91 

6D 

STA 

($6D),Y 

EEC  4 

C8 

INY 

EEC5 

C8 

INY 

EEC  6 

C8 

INY 

EEC71 

A9 

00 

LDA 

#$00 

EEC  9 

85 

6F 

STA 

$6F 

EECB 

85 

70 

STA 

$70 

EECD 

85 

71 

STA 

$71 

EECF 

98 

TYA 

EED0 

4A 

LSR 

A 

EED1 

4A 

LSR 

A 

EED2 

20 

4B  F2 

JSR 

$F24B 

EED5 

91 

6D 

STA 

($6D),Y 

EED7 

C8 

INY 

Clear  BAM  buffer 

Initialize  buffer  pointer 

Move  pointer  to  track  #  of  next 

block  of  track  18 

Set  buffer  pointer  to  sector  # 

(1) 

Sector  number  1  taken 
Current  buffer  pointer 
moved  further  back  by  three 
characters 

Temporary  storage  for 
list 

of  blocks  used 
Clear 

Track  number  determined, 

for  working  with  the  block 

Availability  map  (BAM) 

Max.  #  of  sectors  determined 

and  put  into  BAM 

Buffer  pointer  to  next  byte 
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EED8 

AA 

TAX 

EED9 

38 

SEC 

EE  DA 

26 

6F 

ROL 

$6F 

EEDC 

26 

70 

ROL 

$70 

EEDE 

26 

71 

ROL 

$71 

EEEO 

CA 

DEX 

EEE1 

DO 

F6 

BNE 

$EED9 

EEE3 

B5 

6F 

LDA 

$6F,X 

EEE5 

91 

6D 

STA 

($6D) 

EEE7 

C8 

INY 

EEE8 

E8 

INX 

EEE9 

EO 

03 

CPX 

#$03 

EEEB 

90 

F6 

BCC 

$EEE3 

EEED 

CO 

90 

CPY 

#$90 

EEEF 

90 

D6 

BCC 

$EEC7 

EEF1 

4C 

75  DO 

JMP 

$D075 

Set  counter  for  #  of  sectors 
bitflag  for  "sector  used"set 
Bit  in  2 4 -bit  temp,  storage 
Reserved  blocks  of  track 
laid  out 

Set  next  sector  in  BAM 

All  sectors  of  track? 

Yes,  write  contents  of  temp. 

memory  into  BAM  buffer 

Buffer  pointer  to  next  byte 

Counter  for  #  of  temp. memory 

compared  to  three 

All  temp.  mem.  bytes  copied? 

Yes,  comp  buff  pointer  w/  $90 

BAM  bits  of  all  tracks  dtrmnd? 

Yes,  calculat  "Blocks  free" 


[C8A7/DB2  6/DD87/E433] 

Correct  BAM  and  write  to  diskette 

EEF4     20  93  DF  JSR  $DF93 

EEF7     AA  TAX 

EEF8     BD  5B  02  LDA  $025B,X 

EEFB     29  01  AND  #$01 

EEFD     85  7F  STA  $7F 

EEFF2     A4  7F  LDY  $7F 

EF01     B9  51  02  LDA  $0251, Y 

EF04     DO  01  BNE  $EF07 

EF06     60  RTS 

EF071  A9  00  LDA  #$00 

EF09     99  51  02  STA  $0251, Y 

EF0C     20  3A  EF  JSR  $EF3A 

EF0F     A5  7F  LDA  $7F 

EF11     OA  ASL  A 

EF12     48  PHA 

EF13     20  A5  F0  JSR  $F0A5 

EF16     68  PLA 

EF17     18  CLC 

EF18     69  01  ADC  #$01 

EF1A     20  A5  F0  JSR  $F0A5 

EF1D     A5  80  LDA  $80 

EF1F     48  PHA 

EF20     A9  01  LDA  #$01 

EF22     85  80  STA  $80 

EF241  OA  ASL  A 

EF25     OA  ASL  A 

EF26     85  6D  STA  $6D 

EF28     20  37  A9  JSR  $A937 


Get  current  buffer  # 
Get  #  of  corresponding 
job  codes 

Determine  drive  #  and  save 
as  current  disk  drive 
Get  drive-adapted  flag 
for  "BAM  no  good" 
Must  a  new  BAM  be  created? 
No,  return  to  main  routine 
Flag  for  "Invalid  BAM" 
cleared 

Get  BAM  in  buffer  set  pointer 
Get  current  drive  and 
double  that  number 
Note  value 

Copy  temp,  storage  in  BAM 
Get  drive  pointer 
again 

Go  to  next  temp,  storage  area 
Transfer  temp,  storage  into  BAM 
Retrieve  current  track 
number 

Set  number  to 
Track  1 

Save  position  of 

track  bytes  4  times (4  BAM 

bytes  per  track) 

Check  number  of  blocks  free 
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EF2B 

E6 

80 

INC 

$80 

Set   counter  to  next  track  and 

EF2D 

A5 

80 

LDA 

$80 

get  the 

EF2F 

CD 

AC 

02 

CMP 

$02AC 

number  of  the  last  track+1 

EF32 

90 

F0 

BCC 

$EF24 

Last   track  reached? 

EF34 

68 

PLA 

Rearrange  old 

EF35 

85 

80 

STA 

$80 

track  number 

EF37 

4C 

8D 

A5 

JMP 

$A58D 

Write  BAM  to  diskette 

[A5AA/A738/D07  5/EF0C] 

Read  BAM  and  set  buffer  pointer 


EF3A 

20 

OF 

ITT 

JSR 

$F10F 

Get   and  note   channel  number 

EF3D 

AA 

TAX 

tor      READ  BAM 

EF3E 

20 

DF 

F0 

JSR 

$F0DF 

Set   out   appropriate  buffer 

EF41 

A6 

F9 

LDX 

$F9 

Get  buffer  number 

EF43 

BD 

E0 

FE 

LDA 

$FEE0,X 

and  determine  memory  address 

EF4  6 

85 

6E 

STA 

$6E 

of  buffer 

EF48 

A9 

00 

LDA 

#$00 

Memory  address  put  into 

EF4A 

85 

6D 

STA 

$6D 

pointer  $6D/$6E 

EF4C 

60 

RTS 

Return   from  this  routine 

[C814/D33B] 

Get 

number 

of 

"BLOCKS  FREE" 

EF4D 

A6 

7F 

LDX 

$7F 

Current   drive  number 

EF4F 

BD 

FA 

02 

LDA 

$02FA,X 

No.    of   free  blocks  (low-byte) 

EF52 

8D 

72 

02 

STA 

$0272 

received 

EF55 

BD 

FC 

02 

LDA 

$02FC,X 

No.    of   free  blocks  (high-byte) 

EF58 

8D 

73 

02 

STA 

$0273 

received 

EF5B 

60 

RTS 

Return    from  this  subroutine 

EF5C 

20 

Fl 

EF 

JSR  $EFF1 

Unused  program  space   from   1541  DOS 


[C87D/C8AD/CCF8] 
Sector  released 


EF5F 

4C 

27 

A7 

JMP 

$A727 

Sector   in   1571   BAM  released 

EF62 

38 

SEC 

Flag/"    SECTOR  already  free" 

EF63 

DO 

22 

BNE 

$EF87 

Is  the  block   already  released? 

EF65 

Bl 

6D 

LDA 

($6D) ,y 

No,    get  track  bit  pattern 

EF67 

ID 

E9 

EF 

ORA 

$EFE9,X 

Release    sector  (bit=l) 

EF6A 

91 

6D 

STA 

($6D) , Y 

and  go  back  into  BAM 

EF6C 

20 

88 

EF 

JSR 

$EF88 

Set    flag   for    "BAM  WRITE" 

EF6F 

A4 

6F 

LDY 

$6F 

Current   BAM  byte  pointer 

EF71 

18 

CLC 

Flag/"SECTOR   tobe  released" 

EF72 

Bl 

6D 

LDA 

($6D) , Y 

Increment   #   of  free 

EF74 

69 

01 

ADC 

#$01 

blocks   in  track  and 

EF76 

91 

6D 

STA 

($6D)  ,Y 

reset 

EF78 

A5 

80 

LDA 

$80 

Get   #  of  spur  worked  on  and 
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EF7A 

CD 

85 

FE 

CMP 

$FE85 

compare  with  directory  track 

EF7D 

FO 

3B 

BEQ 

$EFBA 

Identical? 

EF7F 

FE 

FA 

02 

INC 

$02FA,X 

No,    #  of  blocks  on  disk+1 

EF82 

DO 

03 

BNE 

$EF87 

Verified  overflow? 

EF84 

FE 

FC 

02 

INC 

$02FC,X 

Overflow  considered 

EF87 

60 

RTS 

Return  to  main  routine 

[A85F/A895/EF6C/EF9F] 

Set  flag  for  "BAM  on  diskette  illegal3" 
EF88     A6  7F  LDX  $7F 

EF8A     A9  01  LDA  #$01 

EF8C      9D  51   02      STA  $0251, X 
EF8F     60  RTS 


Determine   current   drive  and 
set   appropriate   flag  for 
"BAM  illegal" 

Return    from  this  subroutine 


[CD13/EDE8/EE04/F19A/F1F2] 
Lay  out   sector  in  BAM 


ZU 

r  1 

£j£ 

9£jr  f  X 

Wr- 1  +-  o     1  act     RAM    ohfler^    1"  ft  dislc 

EF93 

4C 

^  A 
IH 

JMP 

pAo  /  4 

J_iCiy      OUT.      ScCLOI      J-Il      1J  '1  Dt\Cl 

TP  TP  Q  C 

r  U 

o  b 

To       cor'f  rtr      fl  1  T"^arf\7      t"  Y\     V  c± 

EF98 

Bl 

6D 

LDA 

w  o  t  y  e  u    oy      /  jdxl.    jjcil.  l.  j.  ii    j.  j.  xqiu 

EF9A 

5D 

E9 

EF 

EOR 

!*■  T-l  T-l  T71  A  \7 

5EFE9, X 

out    diocks, layouL  sector 

hr  yu 

yl 

bu 

Bo-marV     RAM  V\\7t" 

EF9F 

20 

88 

EF 

JSR 

$EF88 

Set   flag  for   "BAM  WRITE" 

EFA2 

A4 

6F 

LDY 

$6F 

Pointer  to  current  BAM  byte 

EFA4 

Bl 

6D 

LDA 

($6D) , Y 

No.    of   free  sectors 

EFA6 

38 

SEC 

Decrement   the  track 

EFA7 

E9 

01 

SBC 

#$01 

and  rewrite 

EFA9 

91 

6D 

STA 

($6D) ,Y 

into  BAM 

EFAB 

A5 

80 

LDA 

$80 

Compar  #  of  track  being  worked 

EFAD 

CD 

85 

FE 

CMP 

$FE85 

with  #  of  directory  track 

EFBO 

F0 

0B 

BEQ 

$EFBD 

Identical? 

EFB21 

BD 

FA 

02 

LDA 

$02FA,X 

No.   of  free  blocks  on  disk 

EFB5 

DO 

03 

BNE 

$EFBA 

Borrowing  occurred? 

EFB7 

DE 

FC 

02 

DEC 

$02FC,X 

Yes, decrement    hibyte   of  counter 

EFBA2 

DE 

FA 

02 

DEC 

$02FA,X 

No.   of  free  blocks  -1 

EFBD1 

BD 

FC 

02 

LDA 

$02FC,X 

No.    of   free  blocks    (high  byte) 

EFC0 

DO 

oc 

BNE 

$EFCE 

Less  than  255? 

EFC2 

BD 

FA 

02 

LDA 

$02FA,X 

Yes,    #   of   free  blocks    (lo  byte) 

EFC5 

C9 

03 

CMP 

#$03 

Compare  to  three 

EFC7 

B0 

05 

BCS 

$EFCE 

Less  than  three  blocks  free 

EFC9 

A9 

72 

DA  ; 

#$72 

Yes,    error  message  of 

EFCB 

20 

C7 

E6 

JSR 

$E6C7 

"72   DISK  FULL"  given 

EFCE3 

60 

RTS 

Return   from  this  subroutine 
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[A845/A87B] 


BAM  buffer  pointer   set  to  bit 

for   current   sector  a.nd  bit  fetched. 

EFCF 

20   11  FO 

JSR 

$F011 

EFD2 

98 

TYA 

3  T"t"     o  "f     hit"     -o^;  "t"  "h  o  T  n 

EFD3 

85  6F 

STA 

$6F 

for  trade 

EFD5 

A5  81 

LDA 

$81 

Get    &    of    sectors   to  b^ 

EFD7 

4A 

LSR 

A 

worked    with      snrf  rHvirie* 

EFD8 

4A 

LSR 

A 

by  8    ( eight  bit s  per  byte ) 

EFD9 

4A 

LSR 

A 

to    cret    #    of   BAM  bvte»«! 

EFDA 

38 

SEC 

Afici    nnp    f  n 

EFDB 

65  6F 

ADC 

$6F 

^UJ.ilLCl     puaj.LUJI     LcLUIIlcU  allu 

EFDD 

A8 

TAY 

note  the  result 

EFDE 

A5  81 

LDA 

$81 

Get   current   sector  number 

EFEO 

29  07 

AND 

#$07 

Calculate  and  save  #  of  bits 

EFE2 

AA 

TAX 

per  BAM  byte 

EFE3 

Bl  6D 

LDA 

($6D) , Y 

Get  byte   from  BAM,  isolate 

EFE5 

3D  E9  EF 

AND 

$EFE9,X 

sector  bit 

EFE8 

60 

RTS 

Return    from  this  subroutine 

[A4FF/A5  6E/A8  5  9/A8  8F/D2BF/D2CB/EF67/EF9A/EFE5/F22F] 

EFE9 

01   02  04 

08   10  20   40  80 

Mask  to  isolate  BAM  bits 

[EF5C/EF90] 

Write 

BAM  to  diskette 

EFF1 

A9  FF 

LDA 

#$FF 

Set   value/"Illegal  BAM"flag 

EFF3 

2C  F9  02 

BIT 

$02F9 

Check   flag  status 

EFF6 

FO  OC 

BEQ 

$F004 

Equal  to  null? 

EFF8 

10  OA 

BPL 

$F004 

No,    bit  7  cleared 

EFFA 

70  08 

BVS 

$F004 

No,    bit   6  cleared 

EFFC 

A9  00 

LDA 

#$00 

Reset   flag   for"Illegal  BAM, 

EFFE 

8D  F9  02 

STA 

$02F9 

write  new  BAM" 

F001 

4C  OD  A5 

JMP 

$A50D 

Rewrite   BAM  to  diskette 

F0043 

60 

RTS 

Return   from  this  subroutine 

[A764/BF3C/EEA3] 

Clear 

BAM  buffer 

F005 

20  25  A6 

JSR 

$A625 

Set  pointer  to  BAM  buffer 

[A5AD/A74C] 

F008 

AO  00 

LDY 

#$00 

Clear  pointer  to  buffer  positon 

FOOA 

98 

TYA 

Buffer  to  be  filled  with  0 

F00B2 

91  6D 

STA 

($6D) ,Y 

Write  to  buffer 

FOOD 

C8 

INY 

Set  pointer  to  next  byte 

FOOE 

DO  FB 

BNE 

$F00B 

Was  that  last  byte  in  buffer? 

F010 

60 

RTS 

YES-return    from  this  subroutine 
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[A8B0/A90C/A925/EFCF/F130] 


F011 

A5 

6F 

LDA 

$6F 

Zeropage   addresses  $6F/$70 

F013 

48 

PHA 

will  be  used  for  temp,  storage 

F014 

A5 

70 

LDA 

$70 

for  this   routine,    and  thus 

F016 

48 

PHA 

will  receive 

F017 

A6 

7F 

LDX 

$7F 

current   drive  number 

F019 

B5 

FF 

LDA 

$FF,  X 

and   current   drive  status 

F01B1 

FO 

05 

BEQ 

$F022 

Drive  ready? 

F01D 

A9 

74 

LDA 

#$74 

No,  display: 

F01F 

20 

48 

E6 

JSR 

$E648 

"74   drive  not  ready" 

F022 1 

20 

OF 

Fl 

JSR 

$F10F 

Determine  buffer   and  channel  # 

F025 

85 

6F 

STA 

$6F 

Send  channel  number. 

F027 

8A 

TXA 

double,  and 

F028 

OA 

ASL 

A 

send  buffer 

F029 

85 

70 

STA 

$70 

number 

F02B 

AA 

TAX 

Save  value 

F02C 

A5 

80 

LDA 

$80 

Test  #  of  current  track 

F02E 

DD 

9D 

02 

CMP 

$029D,X 

against   temp. storage   track  data 

F031 

FO 

OB 

BEQ 

$F03E 

Identical? 

F033 

E8 

INX 

No,    chnge  to  next  temp. 

F034 

86 

70 

STX 

$70 

memory  area 

F036 

DD 

9D 

02 

CMP 

$029D,X 

Compare  track  to  ZS 

F039 

FO 

03 

BEQ 

$F03E 

Are  data  received  here? 

F03B 

20 

5B 

FO 

JSR 

$F05B 

No,    get  track  data  in  memory 

F03E2 

A5 

70 

LDA 

$70 

Pointer  to  temp,  memory 

F040 

A6 

7F 

LDX 

$7F 

Current  drive 

F042 

9D 

9B 

02 

STA 

$02  9B,X 

Save  buffer  pointer 

F045 

OA 

ASL 

A 

Multiply  value  by  4 

F046 

OA 

ASL 

A 

(4  bytes  per  entry) 

F04  7 

18 

CLC 

Turn  BAM  pointer 

F04  8 

69 

Al 

ADC 

#$A1 

to  position 

F04A 

85 

6D 

STA 

$6D 

of  temporary 

F04C 

A9 

02 

LDA 

#$02 

memory 

r  uici 

69 

00 

ADC 

#$00 

Set   high  byte 

F050 

85 

6E 

STA 

$6E 

or  pointer 

F052 

AO 

00 

LDY. 

#$00 

Reset  the   current  byte 

F054 

68 

PLA 

Reset    zeropage  addresses 

F055 

85 

70 

STA 

$70 

$6F  and  $70  to 

F057 

68 

PLA 

the  old 

F058 

85 

6F 

STA 

$6F 

values 

F05A 

60 

RTS 

Return    from  this  subroutine 
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[F03B] 

Copy  BAM 

bytes 

f  r  om 

BAM  to  temporary  storage 

F05B 

A6 

6F 

LDX 

$6F 

i*    v-iidjuicj.    ii  uniJJci 

F05D 

20 

DF 

FO 

JSR 

$F0DF 

Read.  BAM  from  diskette 

F060 

A5 

7F 

LDA 

$7F 

Get  and  note  current 

F062 

AA 

TAX 

drive  number 

F063 

OA 

ASL 

A 

Double  number  ( 2  drives ) 

F064 

ID 

9B 

02 

ORA 

$029B,X 

Calculate  old  TS  number* 

F067 

49 

01 

EOR 

#$01 

Switch  to  another  temp •  area , 

F069 

29 

03 

AND 

#$03 

and  save 

F06B 

85 

70 

STA 

$70 

New  pointer 

F06D 

20 

A5 

FO 

JSR 

$F0A5 

Put  actual  TS  contents  into  BAM 

F070 

A5 

F9 

LDA 

$F9 

Current  buffer  number 

F072 

OA 

ASL 

A 

Double  (pointer  values— 2  byte 

F073 

AA 

TAX 

numbers)   and  note 

F074 

A5 

80 

LDA 

$80 

Multiply  current  track 

F076 

OA 

ASL 

A 

by  four 

F077 

OA 

ASL 

A 

(4  BAM  bytes  per  track) 

F078 

95 

99 

STA 

$99, X 

Write  value  to  buffer 

F07A 

A5 

70 

LDA 

$70 

Current  TS  pointer  mult i~ 

F07C 

OA 

ASL 

A 

plied  by  4 

F07D 

OA 

ASL 

A 

(4  different  TS) 

F07E 

A8 

TAY 

and  set 

F07F1 

Al 

99 

LDA 

($99, X) 

Get  bvt e  f t om  RAM 

F081 

99 

Al 

02 

STA 

$02A1, Y 

and  write  to  temp  storage 

F084 

A9 

00 

LDA 

#$00 

Clear  value 

F086 

81 

99 

STA 

($99, X) 

in  BAM 

F088 

F6 

99 

INC 

$99,  X 

F08A 

C8 

INY 

Pointer  to  next   TS  rhar 

F08B 

98 

TYA 

Pointer  checked  aerainQt" 

F08C 

29 

03 

AND 

#$03 

value  ctf  4 

F08E 

DO 

EF 

BNE 

$F07F 

AT  1     hut"PQ    r* on i  oH     -i  n+-  r>  TQ? 

F090 

A6 

70 

LDX 

$70 

Yes      cret    #    nf  rurrpnt-T^ 

F092 

A5 

80 

LDA 

$80 

Note  #  of  corresponding 

F094 

9D 

9D 

02 

STA 

$029D,X 

track 

F097 

AD 

F9 

02 

LDA 

$02F9 

Flag  for  "Illegal  BAM" 

F09A 

DO 

03 

BNE 

$F09F 

BAM  alteration  taken  place? 

F09C 

4C 

80 

A4 

JMP 

$A480 

Yes,  write  BAM  to  diskette 

F09F1 

09 

80 

ORA 

#$80 

Set  flag  for 

F0A1 

8D 

F9 

02 

STA 

$02F9 

"IllegalBAM" 

F0A4 

60 

RTS 

Return  from  this  subroutine 
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[EF13/EF1A/F06D] 

Copy  BAM  bytes  from  temporary  storage  to  BAM 


F0A5 

A8 

TAY 

Current  TS  number 

F0A6 

B9 

9D 

02 

LDA 

$029D, Y 

Get  tracK  if  or  10 

F0A9 

FO 

25 

BEQ 

$F0D0 

Is  lb  laid  out : 

FOAB 

48 

PHA 

Yes,  save  track  number 

FOAC 

A9 

00 

LDA 

JL  £  r\  ri 

#$00 

lempor ary  storaye 

FOAE 

99 

9D 

02 

STA 

$029D, Y 

freed  up 

F0B1 

A5 

F9 

LDA 

$F9 

uouoxe  cur  rent  Duner 

F0B3 

OA 

ASL 

A 

F0B4 

AA 

TAX 

values ) 

F0B5 

68 

PLA 

uer.  tractc  nuiTiuei.  a.ya.j.11 

F0B6 

OA 

ASL 

A 

ana  muxtipxy  oy  h 

F0B7 

OA 

ASL 

A 

( ft   dam  oyues  pel  tiao.*./ 

F0B8 

95 

99 

STA 

$99,  X 

oet  pointer  to  tracjs, 

FOBA 

98 

TYA 

FOBB 

OA 

ASL 

A 

by  four 

FOBC 

OA 

ASL 

A 

(4  temp,   storage  areas; 

FOBD 

A8 

TAY 

and  note 

FOBE1 

B9 

Al 

02 

LDA 

$02A1, Y 

Get  lb  oyte  rrom  oaiyi 

FOCI 

81 

99 

STA 

($99, X) 

and  write  to  buffer 

F0C3 

A9 

00 

LDA 

#$00 

Clear  value  in 

F0C5 

99 

Al 

02 

STA 

$02A1,Y 

temporary  storage 

F0C8 

F6 

99 

INC 

$99, X 

Set  pointer  to  next  byte 

FOCA 

C8 

INY 

Choose  next  TS  character 

FOCB 

98 

TYA 

Check  if  all  4  bytes 

FOCC 

29 

03 

AND 

#$03 

have  been  transferred  already 

FOCE 

DO 

EE 

BNE 

$F0BE 

Still  bytes  to  be  copied 

FODO1 

60 

RTS 

No,  return  from  this  subroutine 

[C8F5/D042/EEB7/BF33] 


Clear 

pointer  to  position  of  current 

track  in  BAM 

F0D1 

A5  7F 

LDA  $7F 

Get  current  drive 

F0D3 

OA 

ASL  A 

Double  (2  possible  drives) 

F0D4 

AA 

TAX 

and  save 

F0D5 

A9  00 

LDA  #$00 

Set  track  value=0  as  flag  for 

F0D7 

9D  9D  02 

STA  $029D,X 

"BAM  Pointer  inactive" 

F0DA 

E8 

INX 

and  then  clear 

F0DB 

9D  9D  02 

STA  $029D,X 

pointer 

F0DE 

60 

RTS 

Return  from  this  subroutine 

[A4B0/C7BA/EF3E/F05D]  Read  BAM  from 

diskette 

F0DF 

B5  A7 

LDA  $A7,X 

Get  buffer  #,  compare  with 

F0E1 

C9  FF 

CMP  #$FF 

flag  value  for  "Buffer  free" 

F0E3 

DO  25 

BNE  $F10A 

Identical? 

F0E5 

8A 

TXA 

Yes,  save  channel 

F0E6 

48 

PHA 

number 
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F0E7 

20 

8E 

D2 

JSR 

Get  buffer  number 

FOEA 

AA 

TAX 

and  save  it 

FOEB 

10 

05 

BPL 

$F0F2 

Is  there  a  free  buffer? 

FOED 

A9 

70 

LDA 

#$70 

FOEF 

20 

C8 

CI 

JSR 

$C1C8 

"70  No  channel"  error  message 

F0F21 

86 

F9 

STX 

$F9 

oet  ff  or  current  ourrer 

FOF4 

68 

PLA 

crianriei   w  again 

F0F5 

A8 

TAY 

ctilU    advc  XL 

F0F6 

8A 

TXA 

fYe>1~     huf  for    A    anH    <\nf  or     -F 1  acv 
ycu    uuLici    tr    cLiiu   en  Lei    I  lay 

FOF7 

09 

80 

ORA 

#$80 

iwl     du j. ici   am  noi  act ive 

F0F9 

99 

A7 

00 

STA 

S00A7  Y 

XXI  LaOie 

FOFC 

OA 

ASL 

A 

uoujoxe  Duiier  numoer  (pointers 

FOFD 

AA 

TAX 

are  ^— oyte  values) 

FOFE 

AD 

85 

FE 

LDA 

Directory  track 

F101 

95 

06 

STA 

$06,  X 

set  as  tracK  ror  joo 

F103 

A9 

00 

LDA 

#$00 

oCULUL  Tf\J 

F105 

.95 

07 

STA 

$07, X 

Set  in  for  job 

F107 

4C 

42 

A5 

JMP 

$A542 

Block  read 

FlOA1 

29 

OF 

AND 

#$0F 

Create  and  set 

FIOC 

85 

F9 

STA 

$F9 

buffer  number 

FlOE 

60 

RTS 

Return  from  this  subroutine 

[D00E/EF3A/F022/F119] 

Determine  number  of  channels  for  BAM  (in  accumulator) 

F10F    A9  06  LDA  #$06  Get  channel  #  for  BAM  channel 

Fill    A6  7F         LDX  $7F  by  drive  1  as  current  drive* 

F113    DO  03  BNE  $F118  Drive  0? 

FH5     18  CLC  Yes,   set  flag  for  drive  # 

F116     69  07  ADC  #$07  and  channel  #  for  BAM 


F1181  60  RTS 


Return  from  this  subroutine 


[A4AD/C7B7/C883/C8F8] 

Determine  number  of  channels  for  BAM  (in  X-register) 

F119    20  OF  Fl     JSR  $F10F  Determine  #  of  channels 

F11C    AA  TAX  and  save  in  X-register 

FUD     60  RTS  Return  from  this  subroutinmme 


[D1A6/DD1D/E3A9/E3BC/E4  4E] 
Look  for  next  free  block  in  BAM 
F11E     20  3E  DE     JSR  $DE3E 
F121     A9  03  LDA  #$03 

F123     85  6F  STA  $6F 

F125     A9  01  LDA  #$01 

F127  0D  F9  02  ORA  $02F9 
F12A  8D  F9  02  STA  $02F9 
F12D4  4C  DB  A8     JMP  $A8DB 


Get  current  track  &  sector  # 

Set  BAM 

pointer 

Set  flag  for"Illegal  BAM, 
Write  new  BAM  to 
diskette" 

Look  for  next  free  sector 
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[A8E5/F138:A8FD,A902] 
Look  for  next  free  sector 


F130 

20 

11 

F0 

JSR  $F011 

F133 

68 

PLA 

Get  pointer  again  and 

F134 

85 

6F 

STA  $6F 

set  it 

F136 

Bl 

6D 

LDA  ($6D),Y 

#  of  sectors  free  on  a  track 

[A8FD/A902] 

F1382 

DO 

39 

BNE  $F173 

Still  a  free  sector? 

F13A 

A5 

80 

LDA  $80 

NO— get  current  track  #  &  com- 

F13C 

CD 

85 

FE 

CMP  $FE85 

pare  with  directory  track  #(18) 

F13F 

F0 

19 

BEQ  $F15A 

Identical? 

F141 

90 

1C 

BCC  $F15F 

No,  current  track  #  <  18? 

F143 

E6 

80 

INC  $80 

No,  increment  track  #  (diskette 

F145 

A5 

80 

LDA  $80 

built  in  and  around  18) 

F147 

CD 

AC 

02 

CMP  $02AC 

&  compare  with  max.#  of  tracks 

F14A 

DO 

El 

BNE  $F12D 

Highest  track  #  reached? 

F14C 

AE 

85 

FE 

LDX  $FE85 

Yes,  go  back,  label  directory 

F14F 

CA 

DEX 

track  -1  as 

F150 

86 

80 

STX  $80 

current  track  # 

F152 

A9 

00 

LDA  #$00 

Clear  sector 

F154 

85 

81 

STA  $81 

counter 

F156 

C6 

6F 

DEC  $6F 

Number  of  blocks  free 

F158 

DO 

D3 

BNE  $F12D 

Still  a  free  sector? 

F15A2 

A9 

72 

LDA  #$72 

No,  display"72  DISK 

F15C 

20 

C8 

CI 

JSR  $C1C8 

FULL"  error  message 

F15F1 

C6 

80 

DEC  $80 

Track-by-track  to  outmost  track 

F161 

DO 

CA 

BNE  $F12D 

Outermost  track  reached(O)? 

F163 

AE 

85 

FE 

LDX  $FE85 

Yes,  get  directory  track  #  and 

F166 

E8 

INX 

give  one  track  more  as 

F167 

86 

80 

STX  $80 

current  track  # 

F169 

A9 

00 

LDA  #$00 

Clear  sector 

F16B 

85 

81 

STA  $81 

pointer  (0) 

F16D 

C6 

6F 

DEC  $6F 

Number  of  free  sectors 

F16F 

DO 

BC 

BNE  $F12D 

Still  a  free  sector 

F171 

F0 

E7 

BEQ  $F15A 

No,  display  "Disk  full" 

[F138] 

Look 

for 

next  free  sector  on 

this  track 

F173 

A5 

81 

LDA  $81 

Number  of  current  sectors 

F175 

18 

CLC 

Adopt  optimal  sector  set-up  for 

F176 

65 

69 

ADC  $69 

two  sectors  and 

F178 

85 

81 

STA  $81 

save  as  current  sector  number 

F17A 

A5 

80 

LDA  $80 

Number  of  current  track 

F17C 

20 

4B 

F2 

JSR  $F24B 

Number  of  sectors  comprising 

F17F 

8D 

4E 

02 

STA  $024E 

a  track  determined 

F182 

8D 

4D 

02 

STA  $024D 

and  noted 
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F185 

C5 

81 

CMP 

$81 

Compare  with  new  sector  # 

F187 

BO 

OC 

BCS 

$F195 

Number  too  high? 

F189 

38 

SEC 

Yes,  get  the  # 

r  1  HA 

AO 

ol 

LDA 

$81 

of  the  current  sector 

F18C 

ED 

4E 

QZ 

SBC 

$024E 

&  max.  sector  #  transfer 

F18F 

o  c; 
OO 

O  1 

ol 

STA 

Note  result  as  new  sector  # 

r  1  y  X 

FO 

A  1 
\>i 

BEQ 

$F1 95 

Has  sector  0  been  chosen? 

r  J.  yj 

Co 

ol 

DEC 

$81 

No,— correct  sector  variations 

Fl  95^ 

20 

FA 

Fl 

JSR 

5F 1FA 

Look  for  next  free  sector 

Fl  98 

FO 

03 

BEQ 

$F19D 

Got  it  ? 

F19A1 

4C 

90 

EF 

JMP 

$EF90 

Yes,  put  sector  in  BAM 

F19D1 

A9 

00 

LDA 

#$00 

Sector  #  0 

TT1  QT71 

Q  1 

ol 

C  m  7\ 

SOT 
901 

set 

F1A1 

20 

FA 

Fl 

JSR 

$F1FA 

Look  for  next  free  sector 

F1A4 

DO 

F4 

BNE 

$F19A 

Found  it? 

F1A6 

4C 

F5 

Fl 

JMP 

$F1F5 

No,  display"71  Directory  error" 

[DCDA] 

Lay  out  next  optimum  sector 

F1A9 

A9 

01 

Tf  s>  \J  ± 

Set  flag  for 

F1AB 

OD 

F9 

02 

ORA 

$02F9 

II  T  1  1  .  —  .  1      n  n  wit      /  _  _  u  '  i  i  .  _ 

"Illegal  BAM"   (written  on 

F1AE 

8D 

F9 

02 

STA 

$02F9 

diskette) 

F1B1 

A5 

86 

LDA 

$86 

Zeropage  addresses  tobe  used  by 

F1B3 

48 

PHA 

routine  &  consequently  reserved 

F1B4 

A9 

01 

LDA 

#$01 

Initialize  track 

F1B6 

85 

86 

STA 

$86 

number  pointer 

F1B81 

AD 

85 

FE 

LDA 

$FE85 

Get  directory  track  # 

F1BB 

38 

SEC 

Draw  counter  /  current  track  to 

F1BC 

E5 

86 

SBC 

$86 

get  track  #  above  or  below 

F1BE 

85 

80 

STA 

$80 

track  18 

F1C0 

90 

09 

BCC 

$F1CB 

Is  track  #  les  than  18  ? 

F1C2 

FO 

07 

BEQ 

$F1CB 

No,  equal  to  18  ? 

F1C4 

4C 

05 

A9 

JMP 

$A905 

No,  BAM  pointer  to  sector  bit 

[A90F] 

F1C7 

Bl 

6D 

LDA 

($6D),Y 

Get  #  of  free  blocks  on  track 

[A91B] 

F1C91 

DO 

IB 

BNE 

$F1E6 

Still  some  free  sectors? 

F1CB2 

AD 

85 

FE 

LDA 

$FE85 

No,  get  #of  directory  track 

F1CE 

18 

CLC 

£  incrment  track  counter,  so  to 

F1CF 

65 

86 

ADC 

$86 

receive  a  current  track  # 

F1D1 

85 

80 

STA 

$80 

above  the  directory  track 

F1D3 

E6 

86 

INC 

$86 

Counter  for  track  #(next  track) 

F1D5 

CD 

AC 

02 

CMP 

$02  AC 

compared  with  highest  track  # 
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F1D8 

90 

05 

BCC 

$F1DF 

Max  track  #  reached? 

F1DA 

A9 

67 

LDA 

#$67 

Yes,    display  "67    Illegal  track 

F1DC 

20 

45 

E6 

JSR 

$E645 

or   sector"   error  message 

F1DF1 

4C 

IE 

A9 

JMP 

$A91E 

Look  for  next   free  1571  sector 

[A928] 

F1E2 

Bl 

6D 

LDA 

($6D) ,Y 

Get  #  of  free  blocks  in  track 

[A934 ] 

F1E41 

FO 

D2 

BEQ 

$F1B8 

Still  a  sector  free? 

F1E61 

68 

PLA 

Yes,    zeropage   address  $86 

F1E7 

85 

86 

STA 

$86 

rearranged 

F1E9 

A9 

00 

LDA 

#$00 

Clear  sector 

F1EB 

85 

81 

STA 

$81 

counter 

F1ED 

20 

FA 

Fl 

JSR 

$F1FA 

and  look  for  next  free  sector 

FIFO 

FO 

03 

BEQ 

$F1F5 

Found? 

F1F2 

4C 

90 

EF 

JMP 

$EF90 

Yes,   place  sector  in  BAM  &  jump 

F1F5* 

A9 

71 

LDA 

#$71 

diplay   "71  DIR 

F1F7 

20 

45 

E6 

JSR 

$E645 

error"  message 

[CD0  9/CD2  7/F195/F1A1/F1ED] 

FIFA 

4C 

A9 

A8 

JMP 

$A8A9 

Look  for  next   free  track  sector 

[A8B3] 

F1FD1 

98 

TYA 

Note  pntr  position  bit  patterns 

FIFE 

48 

PHA 

of  blocks  used 

F1FF 

20 

20 

F2 

JSR 

$F220 

Test   #  or  blocks  free 

F202 

A5 

80 

LDA 

$80 

Number  of  current  track 

F204 

20 

4B 

F2 

JSR 

$F220 

Get  #  of  sectors  in 

F207 

8D 

4E 

02 

STA 

$024E 

this  track 

F20A 

68 

PLA 

Get  bit  pattern  pointer  in 

F20B 

85 

6F 

STA 

$6F 

BAM  again 

F20D1 

A5 

81 

LDA 

$81 

Compare   #   of   current  sector 

F20F 

CD 

4E 

02 

CMP 

$024E 

with  total  #  of  sectors 

F212 

BO 

09 

BCS 

$F21D 

Sector   #  smaller? 

F214 

20 

D5 

EF 

JSR 

$EFD5 

Yes,getbit   for   sector   f /BAM 

F217 

DO 

06 

BNE 

$F21F 

Is  the  sector  free? 

F219 

E6 

81 

INC 

$81 

No, set  pnter  to  next  SECTOR 

F21B 

DO 

FO 

BNE 

$F20D 

Jump  back  to  $F20D 

F21D1 

A9 

00 

LDA 

#$00 

Flag"No  track   sectors  free" 

F21F1 

60 

RTS 

Return  to  main  routine 
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[A93E/F1FF] 

Check 

number 

of 

free  blocks  in 

BAM  for  every  track 

F220 

A5 

6F 

LDA 

$6F 

Zeropage   address   $ 6F  USED 

F222 

48 

PHA 

as  temp .  storage 

F223 

A9 

00 

LDA 

#$00 

Clear    free —blocks 

F225 

85 

6F 

STA 

$6F 

Counter 

F227 

AC 

86 

FE 

LDY 

$FE86 

Get   #of  BAM  bytes  per  track 

F22A 

88 

DEY 

&    design   kbytes   per   bit  pattern 

F22B1 

A2 

07 

LDX 

#$07 

Counter /#   of  bit s  per  byte 

F22D2 

Bl 

6D 

LDA 

($6D) , Y 

Get  by t  e  f  r  om  BAM  &   i  s  o  1  at  e 

F22F 

3D 

E9 

EF 

AND 

$EFE9,X 

Bit  to  which  bit  count r  pts 

F232 

FO 

02 

BEQ 

$F236 

Is  the  block  laid  out? 

F234 

E6 

6F 

INC 

$6F 

No, increment    Free~block  counter 

F2361 

CA 

DEX 

&  go  to  the  next  bit 

F237 

10 

F4 

BPL 

$F22D 

All  chosen  bit s  tested? 

F239 

88 

DEY 

Yes, set   ptr  tonext  BAMbyte 

F23A 

DO 

EF 

BNE 

$F22B 

All  BAM  bytes   on  t rak  tested? 

F23C 

Bl 

6D 

LDA 

($6D) , Y 

Yes      comoare    #of    blocks  stated 

F23E 

C5 

6F 

CMP 

$6F 

in    RAM   with    resultincr  # 

F240 

DO 

04 

BNE 

$F246 

Tdent  ical ? 

F242 

68 

PLA 

Yes,    rearrange  zeropage 

F243 

85 

6F 

STA 

$6F 

Address  $6F 

F245 

60 

RTS 

Return  to  main  routine 

F2461 

A9 

71 

LDA 

#$71 

Display 

F248 

20 

45 

E6 

JSR 

$E645 

"71   DIR  error"  message 

[D540/D568/EED2/F17C/F2  04] 

Get   number   of   sectors  per  track 

(Track  number  must  be  put   into  accumulator) 


F24B 

F24E1 

F251 

F252 

F254 

F257 


20  4F  A7     JSR  $A74F  Get  #  of  track  zones 

DD  D6  FE     CMP  $FED6,X  Compare  max   #  tracks/zone  with 

CA  DEX  actual   #of  tracks ; change  zone 

B0  FA  BCS  $F24E  Is  track  larger  than  max  zone? 

BD  Dl  FE     LDA  $FED1,X  Yes,#of   sectors   in  trackzone 

60  RTS  Return  to  main  routine 


[CB12/CDA3/E7A8] 
F258      60  RTS 


No  function 


[BF6C] 

Execute  disk  controller  reset 
F259     A9   6F  LDA  #$6F 

F25B     8D  02   1C     STA  $1C02 
F25E     29  F0  AND  #$F0 

F260     4C  F8  A9     JMP  $A9F8 


"Sync"    &"Write-protect"  switched 
as   input   lines,    and  their 
values   placed  in 
patch 


ROM- 264 


Abacus  Software 


1571  Internals 


F2631 

AD 

OC 

1C 

LDA 

$1C0C 

Set  peripheral  control  register 

F2  66 

29 

FE 

AND 

#$FE 

CA1   "Byte  ready"  to  neg.  flank 

F268 

09 

0E 

ORA 

#$0E 

CA2   "SOE"  to  high  input 

F26A 

09 

EO 

ORA 

#$E0 

CB2    (Head)    set  to  read 

F26C 

8D 

OC 

1C 

STA 

$1C0C 

Register  activated 

F26F 

A9 

41 

LDA 

#$41 

PB7  (Sync) set   to   outputs  active 

F271 

8D 

OB 

1C 

STA 

$1C0B 

Input   tempstorage    forHEAD  data 

F274 

A9 

00 

LDA 

#$00 

Set   enter   for  interrupt  timerl 

F276 

8D 

06 

1C 

STA 

$1C06 

so  the  disk  controller 

F279 

A9 

20 

LDA 

#$20 

routine  wilbe  called  for   8  MS, 

F27B 

8D 

07 

1C 

STA 

$1C07 

S  timer  1 

F27E 

8D 

05 

1C 

STA 

$1C05 

will  start 

F281 

A9 

7F 

LDA 

#$7F 

Clear 

F283 

8D 

OE 

1C 

STA 

$1C0E 

Interrupt  flag 

F286 

A9 

CO 

LDA 

#$C0 

Interrrupt   that  allows 

F288 

8D 

OD 

1C 

STA 

$1C0D 

Enable  "Timer   1  has 

F28B 

8D 

OE 

1C 

STA 

$1C0E 

run  to  zero" 

F28E 

A9 

FF 

LDA 

#$FF 

Clear    flags : 

F290 

85 

3E 

STA 

$3E 

flag  for  active  drive 

F2  92 

85 

51 

STA 

$51 

Flag   for"Format   procedure"  on 

F2  94 

A9 

08 

LDA 

#$08 

Set  identifier 

F296 

85 

39 

STA 

$39 

Block  header 

F298 

A9 

07 

LDA 

#$07 

Set   identifier  for 

F29A 

85 

47 

STA 

$47 

data  block  header 

F29C 

A9 

05 

LDA 

#$05 

Call  in  $FA02 

F29E 

85 

62 

STA 

$62 

Turn  to 

F2A0 

A9 

FA 

LDA 

#$FA 

routine 

F2A2 

85 

63 

STA 

$63 

in  $FA05 

F2A4 

A9 

C8 

LDA 

#$C8 

Determine  #  of   steps  for 

F2A6 

85 

64 

STA 

$64 

fast   head  movement 

F2A8 

A9 

04 

LDA 

#$04 

Determine  #  of  steps 

F2AA 

85 

5E 

STA 

$5E 

to  move  &  stop 

F2AC 

A9 

04 

LDA 

#$04 

disk  head 

F2AE 

85 

5F 

STA 

$5F 

movement 

[9DCA/9DD5/BF06] 

Jump 

to 

disk   controller  routine 

F2B0 

BA 

TSX 

Reserve 

F2B1 

86 

49 

STX 

$49 

stack  pointer 

F2B3 

AD 

04 

1C 

LDA 

$1C04 

Reset  timer 

F2B6 

AD 

OC 

1C 

LDA 

$1C0C 

CA2    (SOE=Serial   Output  Enable) 

F2B9 

09 

OE 

ORA 

#$0E 

set  to  high 

F2BB 

8D 

OC 

1C 

STA 

$1C0C 

output 

F2BE 

AO 

05 

LDY 

#$05 

Number    of  buffer 

F2C01 

B9 

00 

00 

LDA 

$0000, Y 

Get   flag  for  jobcode 

F2C3 

10 

2E 

BPL 

$F2F3 

Is  there  a  command  for  buffer? 

F2C5 

C9 

DO 

CMP 

#$D0 

Yes, compare  with"PROGRAMSTART" 
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F2C7 

DO 

04 

BNE 

$F2CD 

F2C9 

98 

TYA 

F2CA 

4C 

70 

F3 

JMP 

$F370 

F2CD1 

29 

01 

AND 

#$01 

F2CF 

FO 

07 

BEQ 

$F2D8 

F2D1 

84 

3F 

STY 

$3F 

F2D3 

A9 

OF 

LDA 

#$0F 

F2D5 

4C 

69 

F9 

JMP 

$F969 

F2D81 

AA 

TAX 

F2D9 

85 

3D 

STA 

$3D 

F2DB 

C5 

3E 

CMP 

$3E 

F2DD 

FO 

OA 

BEQ 

$F2E9 

F2DF 

20 

7E 

F9 

JSR 

$F97E 

F2E2 

A5 

3D 

LDA 

$3D 

F2E4 

85 

3E 

STA 

$3E 

F2E6 

4C 

9C 

F9 

JMP 

$F99C 

F2E9^ 

A5 

20 

LDA 

$20 

F2EB 

30 

03 

BMI 

$F2F0 

F2ED 

OA 

ASL 

A 

F2EE 

10 

09 

BPL 

$F2F9 

F2F01 

4C 

9C 

F9 

JMP 

$F99C 

F2F31 

88 

DEY 

F2F4 

10 

CA 

BPL 

$F2C0 

F2F6 

4C 

9C 

F9 

JMP 

$F99C 

F2F91 

A9 

20 

LDA 

#$20 

F2FB 

85 

20 

STA 

$20 

F2FD 

AO 

05 

LDY 

#$05 

F2FF 

84 

3F 

STY 

$3F 

F3011 

20 

93 

F3 

JSR 

$F393 

F304 

30 

1A 

BMI 

$F320 

F3062 

C6 

3F 

DEC 

$3F 

F308 

10 

F7 

BPL 

$F301 

F30A 

A4 

41 

LDY 

$41 

F30C 

20 

95 

F3 

JSR 

$F395 

F30F 

A5 

42 

LDA 

$42 

F311 

85 

4A 

STA 

$4A 

F313 

06 

4A 

ASL 

$4A 

F315 

A9 

60 

LDA 

#$60 

F317 

85 

20 

STA 

$20 

F319 

Bl 

32 

LDA 

($32)  , Y 

F31B 

85 

22 

STA 

$22 

F31D 

4C 

9C 

F9 

JMP 

$F99C 

F3201 

29 

01 

AND 

#$01 

F322 

C5 

3D 

CMP 

$3D 

F324 

DO 

EO 

BNE 

$F306 

F326 

A5 

22 

LDA 

$22 

F328 

FO 

12 

BEQ 

$F33C 

Program  executed  in  buffer? 

Yes,   get  buffer  #  & 

jump  to  program 

Get  drive  #  from  jobcode 

Is  the  job  for  driveO  ? 

No,    note  appropriate  buffer 

Display  "74  Drive  not  ready" 

error  message 

Note  drive 

number    (0)    &  get 

"Drive   active"  flag 

Drive  already  running? 

No,   motor  on 

&   set   "Drive  active" 

flag 

Wait  until  motor  runs 

Get   drive  status 

Is  motor  at  rotation  speed? 

Yes, steppermotor    f lagbit/carry 

Is  the  head  moving? 

Yes,   move  head  into  position 

Mark  buffer  # 

All  buffer  checked  out? 

Yes,    goto  main   control  routine 

Flag  for  "Motor  on" 

set  as  drive  status 

Determine  max  #  of  buffers 

as  actual  buffer  # 

Set  pointer  to  buffer  address 

Job  assignment   laid  out? 

No, buffer  enter  to  next  buffer 

Last   buffer  reached? 

YES-set   last    job  # 

at   buffer  pointer 

Get  track  diff.   to  last  job 

&   set   #  to  stepper  half-steps 

to  be  executed 

Flag  for  head  movement  step 

in  drive  status 

Get  &  mark  track  #   for  job 

from  buffer 

Position  Head  on  track 
Design  drive  number 
&  compare  to  last   job  drive 
Is  the   job  for  the  same  drive? 
Get  track  #  of  last  job 
Track  #  on  hand? 
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F32A 

38 

SEC 

Yes, figure   difference  between 

F32B 

Fl 

32 

SBC 

($32)  , Y 

current   £   last  track 

F32D 

FO 

OD 

BEQ 

$F33C 

Is  the   job  for  same  track? 

F32F 

49 

FF 

EOR 

#$FF 

Produce  #   /   stepper  increments 

F331 

85 

42 

STA 

$42 

&  store 

F333 

E6 

42 

INC 

$42 

number 

F335 

A5 

3F 

LDA 

$3F 

Transfer  drive  #   of  current 

F337 

85 

41 

STA 

$41 

job 

F339 

4C 

06 

F3 

JMP 

$F306 

Work  with  next  buffer 

F33C2 

A2 

04 

LDX 

#$04 

Number   of   different  trackzones 

F33E 

Bl 

32 

LDA 

($32)  ,  Y 

Get  track  #  of  job 

F340 

85 

40 

STA 

$40 

&  mark  it 

F3421 

DD 

D6 

FE 

CMP 

$FED6,X 

Compare  with  highest    zone  track 

F345 

CA 

DEX 

Set   zone  counter  to  next  zone 

F346 

BO 

FA 

BCS 

$F342 

Track   lie  within  zone? 

F348 

BD 

Dl 

FE 

LDA 

$FED1,X 

Yes, get   #  of  sectors  per  zone 

F34B 

85 

43 

STA 

$43 

&  set 

F34D 

8A 

TXA 

Zone   numbers  (0-3) 

F34E 

OA 

ASL 

A 

will  be  in 

F34F 

OA 

ASL 

A 

bits  5  S  6 

F350 

OA 

ASL 

A 

The  bit  exchange  rate. 

F351 

OA 

ASL 

A 

which    (with     help  of  head 

F352 

OA 

ASL 

A 

electronics) writes   to  disk 

F353 

85 

44 

STA 

$44 

dictates  value   in  temp  memory 

F355 

AD 

00 

1C 

LDA 

$1C00 

Get   drive  control  register 

F358 

29 

9F 

AND 

#$9F 

Clear  bits  for  bitrate  &  set 

F35A 

05 

44 

ORA 

$44 

zone  chosen  with  the  value 

F35C 

8D 

00 

1C 

STA 

$1C00 

used 

F35F 

A6 

3D 

LDX 

$3D 

Drive  # 

F361 

A5 

45 

LDA 

$45 

Get  jobcode 

F363 

C9 

40 

CMP 

#$40 

Compare  with  "Head  to  track  1" 

F365 

FO 

15 

BEQ 

$F37C 

Should  the  head  be  reset? 

F367 

C9 

60 

CMP 

#$60 

No,    code   for  external   job  prg. 

F369 

FO 

03 

BEQ 

$F36E 

Program  taken   into  buffer? 

F36B 

4C 

Bl 

F3 

JMP 

$F3B1 

No,    return  to  main  routine 

[F369]      VGL.  93A2 
Start  program  in  buffer 

F36E     A5  3F  LDA  $3F  Get   current  buffer  # 
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[F2CA] 

Start 

program 

(Buffer  address 

in  A) 

F370 

18 

CLC 

&   compute  the  high 

ro/1 

co    a  -a 

ADC  #503 

byte  of  the  absolute 

F373 

85  31 

STA  $31 

buffer  address 

F375 

A9  00 

LDA  #$00 

Set  low  byte 

F377 

85  30 

STA  $30 

to  null 

F379 

6C  30  00 

JMP  ($0030) 

Jump  to  buffer  program 

[F365]      VGL.  93B0 

Move  head  back  to  track  1 


F37C 

A9 

60 

LDA 

#$60 

Set  head  flag  for  movement 

F37E 

85 

20 

STA 

$20 

in  drive  status 

F380 

AD 

00 

1C 

LDA 

$1C00 

Get  drive  dontrol  register 

F383 

29 

FC 

AND 

#$FC 

&  clear  stepper 

F385 

8D 

00 

1C 

STA 

$1C00 

impulse 

F388 

A9 

A4 

LDA 

#$A4 

Number  of  steps  (92) 

F38A 

85 

4A 

STA 

$4A 

Set  to  outside (=  4  6  tracks 

F38C 

A9 

01 

LDA 

#$01 

Set  track  1 

F38E 

85 

22 

STA 

$22 

as   job  track  # 

F390 

4C 

69 

F9 

JMP 

$F969 

Close   job  loop 

[BF0C/F301/F43A/F48F]       VGL.  93D1 
Initialize  buffer  pointer   for  job 


F3  93 

A4 

3F 

LDY 

$3F 

Number   of   current  buffer 

[F30C] 

Set  buffer 

pointer 

(Buffer  number 

in  Y) 

F395 

B9 

00 

00  LDA 

$0000, Y 

Get   appropriate  jocode 

F398 

48 

PHA 

&  note 

F399 

10 

10 

BPL 

$F3AB 

Job  on  hand? 

F39B 

29 

78 

AND 

#$78 

Yes,    isolate  and  mark  command 

F39D 

85 

45 

STA 

$45 

Bits   for  disk  controller 

F39F 

98 

TYA 

Get  buffer  # 

F3A0 

OA 

ASL 

A 

&   double    (2 -byte  value) 

F3A1 

69 

06 

ADC 

#$06 

Compute  track  &   sector  table 

F3A3 

85 

32 

STA 

$32 

&   set  pointers 

F3A5 

98 

TYA 

Get  buffer  #  again,  & 

F3A6 

18 

CLC 

calculate  the  physical 

F3A7 

69 

03 

ADC 

#$03 

memory  address  of  the 

F3A9 

85 

31 

STA 

$31 

buffer    (high-byte)    &  set 

F3AB1 

AO 

00 

LDY 

#$00 

low  byte  of  the  pointer 

F3AD 

84 

30 

STY 

$30 

to  null 

F3AF 

68 

PLA 

Get  jobcode 

F3B0 

60 

RTS 

Return  to  main  routine 

ROM-268 


Abacus  Software 


1571  Internals 


[F36B/F5E6] 

Look  for 

track . 

(Routine 

will  place 

information  on 

every  block  header  on  diskette) . 

F3B1 

A2 

5A 

LDX 

#$5A 

No.  of  read  searches (90) 

F3B3 

86 

4B 

STX 

$4B 

determined 

F3B5 

A2 

00 

LDX 

#$00 

Clear  #  of  header  bytes 

F3B7 

A9 

52 

LDA 

#$52 

Save  GCR  identifier  for 

F3B9 

85 

24 

STA 

$24 

block  header 

F3BB1 

20 

56 

F5 

JSR 

$F556 

Wait  for  synch-marker 

F3BE1 

50 

FE 

BVC 

$F3BE 

Read  electronics  ready? 

F3C0 

B8 

CLV 

Yes,  set  flag  back 

F3C1 

AD 

01 

1C 

LDA 

$1C01 

Read  header  from  disk— compare 

F3C4 

C5 

24 

CMP 

$24 

with  block  identifier 

F3C6 

DO 

3F 

BNE 

$F407 

Is  ther  a  blockheader? 

F3C82 

50 

FE 

BVC 

$F3C8 

Yes,  wait  for  next  byte 

F3CA 

B8 

CLV 

Reactivate  reading  electronics 

F3CB 

AD 

01 

1C 

LDA 

$1C01 

Read  byte  from  diskette 

F3CE 

95 

25 

STA 

$25, X 

&  store  in  header  buffer 

F3D0 

E8 

INX 

Increment  counter 

F3D1 

E0 

07 

CPX 

#$07 

Compare  with  #  of  headerbytes 

F3D3 

DO 

F3 

BNE 

$F3C8 

Entire  header  read? 

F3D5 

20 

97 

F4 

JSR 

$F4  97 

Yes— convert  header  fr  GCR  to  % 

F3D8 

AO 

04 

LDY 

#$04 

Set  pnter  to  checksum  position 

F3DA 

A9 

00 

LDA 

#$00 

Compute  header 

F3DC1 

59 

16 

00 

EOR 

$0016, Y 

checksum 

F3DF 

88 

DEY 

Pointer  to  next  header  byte 

F3E0 

10 

FA 

BPL 

$F3DC 

All  bytes  computed? 

F3E2 

C9 

00 

CMP 

#$00 

YES— value  for  erroe-free  header 

F3E4 

DO 

38 

BNE 

$F41E 

Checksum  error  occurred? 

F3E6 

A6 

3E 

LDX 

$3E 

NO— get  current  drive  number 

F3E8 

A5 

18 

LDA 

$18 

TRack  number  of  header  to  be  read 

F3EA 

95 

22 

STA 

$22, X 

saved  as  current  track 

F3EC 

A5 

45 

LDA 

$45 

get  jobcode 

F3EE 

C9 

30 

CMP 

#$30 

Conmpare  with"Read  Sector" 

F3F0 

F0 

IE 

BEQ 

$F410 

Identical? 

F3F2 

A5 

3E 

LDA 

$3E 

NO— get  drive  number  of  job 

F3F4 

OA 

ASL 

A 

Turn  pointer  to  drive  with 

F3F5 

A8 

TAY 

corresponding  ID 

F3F6 

B9 

12 

00 

LDA 

$0012, Y 

Get  1st  char  of  ID  and  compare 

F3F9 

C5 

16 

CMP 

$16 

with  blockheader  ID 

F3FB 

DO 

IE 

BNE 

$F41B 

ID  been  changed? 

F3FD 

B9 

13 

00 

LDA 

$0013, Y 

NO-get  next  ID  char  and  compare 

F400 

C5 

17 

CMP 

$17 

with  header  ID 

F402 

DO 

17 

BNE 

$F41B 

Identical? 

F404 

4C 

23 

F4 

JMP 

$F423 

YES-determine  next  job 

F4071 

C6 

4B 

DEC 

$4B 

Decrement  read-search  counter 

F409 

DO 

BO 

BNE 

$F3BB 

90  read  searches  executed 
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F40B 

A9 

02 

LDA  #$02 

Display  error  message 

F40D 

20 

69 

F9 

JSR  $F969 

"20  Read  error" 

F4101 

A5 

16 

LDA  $16 

Take  on  blockheader  ID 

F412 

85 

12 

STA  $12 

as  new  ID  for 

F414 

A5 

17 

LDA  $17 

current 

F416 

85 

13 

STA  $13 

disk  drive 

F4182 

A9 

01 

LDA  #$01 

Number  for  "OK" 

F41A 

2C 

.BYTE  $2C 

Two-byte  jump  (bit  command) 

F41B2 

A9 

OB 

LDA  #$0B 

#  for"29  Disk  ID  mismatch" 

F41D 

2C 

.BYTE  $2C 

Two-byte  jump  (bit  command) 

F41E1 

A9 

09 

LDA  #$09 

Number  for  "27  Write  error" 

F420 

4C 

69 

F9 

JMP  $F969 

message  returned 

[F404] 

VGL. 

94BC 

Get  next 

optimum  job 

F423 

A9 

7F 

LDA 

#$7F 

F425 

85 

4C 

STA 

$4C 

F427 

A5 

19 

LDA 

$19 

F429 

18 

CLC 

F42A 

69 

02 

ADC 

#$02 

F42C 

C5 

43 

CMP 

$43 

F42E 

90 

02 

BCC 

$F432 

F430 

E5 

43 

SBC 

$43 

F4321 

85 

4D 

STA 

$4D 

F434 

A2 

05 

LDX 

#$05 

F436 

86 

3F 

STX 

$3F 

F438 

A2 

FF 

LDX 

#$FF 

F43A1 

20 

93 

F3  JSR 

$F393 

F43D 

10 

44 

BPL 

$F483 

F43F 

85 

44 

STA 

$44 

F441 

29 

01 

AND 

#$01 

F443 

C5 

3E 

CMP 

$3E 

F445 

DO 

3C 

BNE 

$F483 

F447 

AO 

00 

LDY 

#$00 

F449 

Bl 

32 

LDA 

($32) ,Y 

F44B 

C5 

40 

CMP 

$40 

F44D 

DO 

34 

BNE 

$F483 

F44F 

A5 

45 

LDA 

$45 

F451 

C9 

60 

CMP 

#$60 

F453 

F0 

OC 

BEQ 

$F461 

F455 

AO 

01 

LDY 

#$01 

F457 

38 

SEC 

F458 

Bl 

32 

LDA 

($32), Y 

F45A 

E5 

4D 

SBC 

$4D 

F45C 

10 

03 

BPL 

$F461 

F45E 

18 

CLC 

F45F 

65 

43 

ADC 

$43 

Intitialize  pntr  for  difference 
to  next  job 

Get  sector  #  from  last  blkheader 
and  compare  with 
maximum 
sector  number 

Is  number  in  allowed  range? 

NO— subtract  max.  sector  number  £ 

save  new  sector  number 

Set  buffer 

number 

buffer  pointer 

Set  buffer  address  &  get  jobcode 
Job  available? 

YES— Save  jobcode  and  determine 
Drive  number  of  the  job 
Comparable  with  actual  drive? 
Is  the  job  for  current  drive? 
YES— clear  buffer  pointer 
Compare  track  number  of  the  job 
with  last  track 
Identical? 

YES— get  jobcode  command  bits 
Code  for  "Program  in  buffer" 
SHould  buffer  program  be  run? 
NO— pointer  to  params  for  buffer  0 
Get  sector  number  of  job 
for  buffer  0  and  compare 
wirth  optimum  sectors  computed 
Is  new  sector  number  less? 
NO— calculate  #  of  sectors  up  to 
this  sector  and  compare 
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F461^ 

C5 

4C 

CMP 

$4C 

with  last  difference 

F463 

BO 

IE 

BCS 

$F483 

Is  new  value  less  than  last? 

F465 

48 

PHA 

YES— Save  sector  difference 

F466 

A5 

45 

LDA 

$45 

Check  command  bits  of  jobcode 

F468 

FO 

14 

BEQ 

$F47E 

Should  sector  be  read? 

F46A 

68 

PLA 

NO— get  difference  again  and 

F4  6B 

C9 

09 

CMP 

#$09 

Compare  to  9 

F46D 

90 

14 

BCC 

$F483 

Is  value  less? 

F46F 

C9 

OC 

CMP 

#$0C 

NO— compare  to  13 

F471 

BO 

10 

BCS 

$F483 

Is  difference  <13  ? 

F473* 

85 

4C 

STA 

$4C 

YES— Save  new  sector  difference 

F475 

A5 

3F 

LDA 

$3F 

Get  buffer  number  of  the  job  and 

F477 

AA 

TAX 

compute 

F478 

69 

03 

ADC 

#$03 

the  physical  memory 

F47A 

85 

31 

STA 

$31 

address  (high-byte) 

F47C 

DO 

05 

BNE 

$F483 

Jump  to  $F483 

F47E1 

68 

PLA 

Get  sector  difference  and 

F47F 

C9 

06 

CMP 

#$06 

compare  to  6 

F481 

90 

FO 

BCC 

$F473 

Is  difference  larger? 

F483  ' 

C6 

3F 

DEC 

$3F 

YES— turn  pointer  to  next  pointer 

F485 

10 

B3 

BPL 

$F43A 

All  buffers  tested  yet? 

F487 

8A 

TXA 

YES-get  buffer  #  of  next  job 

F488 

10 

03 

BPL 

$F48D 

Optimum  job  found? 

F48A 

4C 

9C 

F9 

JMP 

$F99C 

NO— execute  stepper  command 

F48D1 

86 

3F 

STX 

$3F 

Save  buffer  number 

F48F 

20 

93 

F3 

JSR 

$F393 

Compute  buffer  address 

F4  92 

A5 

45 

LDA 

$45 

Get  clear  jobcode 

F4  94 

4C 

CA 

F4 

JMP 

$F4CA 

Execute  read/write  jobs 

[F3D5] 

Convert  header 

from 

GCR-code 

into  binary  values 

F4  97 

A5 

30 

LDA 

$30 

Retrieve 

F499 

48 

PHA 

pointer  to 

F4  9A 

A5 

31 

LDA 

$31 

current 

F49C 

48 

PHA 

buffer  address 

F49D 

A9 

24 

LDA 

#$24 

Adjust  pointer  at 

F4  9F 

85 

30 

STA 

$30 

$0024   (start  of  data  for 

F4A1 

A9 

00 

LDA 

#$00 

last-read 

F4A3 

85 

31 

STA 

$31 

blockheaders) 

F4A5 

A9 

00 

LDA 

#$00 

Reset  buffer  pointer  for 

F4A7 

85 

34 

STA 

$34 

conversion  routine 

F4A9 

20 

E6 

F7 

JSR 

$F7E6 

Convert  5  GCR  bytes  to  4binary#S 

F4A7 

A5 

55 

LDA 

$55 

4th  byte  converted  to 

F4AE 

85 

18 

STA 

$18 

track  number  in  header  buffer 

F4B0 

A5 

54 

LDA 

$54 

Third  byte  is 

F4B2 

85 

19 

STA 

$19 

sector  number  in  header  buffer 
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F4B4 

A5 

53 

LDA 

$53 

Second  byte  is 

F4B6 

85 

1A 

STA 

$1A 

checksum  in  header  buffer 

F4B8 

20 

E6  F7 

JSR 

$F7E6 

Convrt  5  GCRbytes  to  4  binary  # 

F4BB 

A5 

52 

LDA 

$52 

First  byte 

F4BD 

85 

17 

STA 

$17 

is  2nd  ID  char  in  header  buffer 

F4BF 

A5 

53 

LDA 

$53 

Second  byte  is 

F4C1 

85 

16 

STA 

$16 

first  ID  char  in  header  buffer 

F4C3 

68 

PLA 

Re-create  pointer 

F4C4 

85 

31 

STA 

$31 

to  address  of 

F4C6 

68 

PLA 

current 

F4C7 

85 

30 

STA 

$30 

buffer 

F4C9 

60 

RTS 

Return  from  this  subroutine 

[F494]     VGL.  9606 

Read  sector  from  diskette  to  buffer 


F4CA 

C9 

00 

CMP 

#$00 

Compare  jobcode  with  readcode 

F4CC 

F0 

03 

BEQ 

$F4D1 

Identical? 

F4CE 

4C 

6E 

F5 

JMP 

$F56E 

NO— test  jobcode  further 

Read 

sector 

F4D11 

20 

OA 

F5 

JSR 

$F50A 

Ssearch  for  sector  blockheader 

F4D42 

50 

FE 

BVC 

$F4D4 

Wait  for  byte  from  disk 

F4D6 

B8 

CLV 

Read  electronics  ready  to 

F4D7 

AD 

01 

1C 

LDA 

$1C01 

read  byte  with  dish  head 

F4DA 

91 

30 

STA 

($30), Y 

and  write  to  current  buffer 

F4DC 

C8 

INY 

Set  buffer  pointer  to  next  byte 

F4DD1 

DO 

F5 

BNE 

$F4D4 

Buffer  already  full? 

F4DF 

AO 

BA 

LDY 

#$BA 

YES-set  buff  pntr  to  cond'l  buff 

F4E11 

50 

FE 

BVC 

$F4E1 

Wait  for  next  byte  from  disk 

F4E3 

B8 

CLV 

Get  flag  to  signal  byte 

F4E4 

AD 

01 

1C 

LDA 

$1C01 

from  read  head 

F4E7 

99 

00 

01 

STA 

$0100, Y 

&  write  to  conditional  buffer 

F4EA 

C8 

INY 

Set  buffer  pointer  to  next  byte 

F4EB 

DO 

F4 

BNE 

$F4E1 

Conditional  buffer  full? 

F4ED 

20 

E0 

F8 

JSR 

$F8E0 

YES— convert  sector  frm  GCR»binary 

F4F0 

A5 

38 

LDA 

$38 

Get  1st  byte  of  data  block  & 

F4F2 

C5 

47 

CMP 

$47 

identifier  for  data  blockheader 

F4F4 

F0 

05 

BEQ 

$F4FB 

Data  block  ? 

F4F6 

A9 

04 

LDA 

#$04 

NO— display  error  message: 

F4F8 

4C 

69 

F9 

JMP 

$F969 

"22  Read  error" 

F4FB1 

20 

E9 

F5 

JSR 

$F5E9 

Compare  checksum  computed  for 

F4FE 

C5 

3A 

CMP 

$3A 

data  with  value  read  in 

F500 

F0 

03 

BEQ 

$F505 

Identical? 

F502 

A9 

05 

LDA 

#$05 

Error  #  for"23  read  error" 

F504 

2C 

.BYTE  $2C 

Jump  to  next  2  bytes (Bir  Command) 

F505 

A9 

01 

LDA 

$01 

Error  number  for  "OK" 

F507 

4C 

69 

F9 

JMP 

$F969 

message  given 
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[F4D1/F6A0]     CF.  9600 

Set  read-head  into  position  after 

F50A     20  10  F5     JSR  $F510 

F50D     4C  56  F5     JMP  $F556 


data  block  sync-marking  a  sector 
Search  for  a  sector  blockheader 
Wait  f/sync-mark  of  a  data  block 


[F50A/F589/F6CA]  VGL.  970F 


Look 

for 

sector 

header 

F510 

A5 

3D 

LDA 

$3D 

Get  drive  number  of  job 

F512 

OA 

ASL 

A 

and  corresponding 

F513 

AA 

TAX 

ID 

F514 

B5 

12 

LDA 

$12, X 

First  ID  character 

F516 

85 

16 

STA 

$16 

transferred  to  jheader  buffer 

F518 

B5 

13 

LDA 

$13, X 

Second  ID  character 

F51A 

85 

17 

STA 

$17 

transferred  to  header  huffor 

F51C 

AO 

00 

LDY 

#$00 

Clear  buffer  pointer 

F51E 

Bl 

32 

LDA 

($32) ,Y 

Get  track  #  frm  current  buffr  & 

F520 

85 

18 

STA 

$18 

transfer  to  jheader  buffer 

F522 

C8 

INY 

Set  buffer  pointer  to  next  char 

F523 

Bl 

32 

LDA 

($32) ,Y 

Get  sector  #  from  curr.  buffr 

F525 

85 

19 

STA 

$19 

&  transfer  to  header  buffer 

F527 

A9 

00 

LDA 

#$00 

Calculate  checksum  of 

F529 

45 

16 

EOR 

$16 

sector  header  made 

F52B 

45 

17 

EOR 

$17 

available 

F52D 

45 

18 

EOR 

$18 

and  write 

F52F 

45 

19 

EOR 

$19 

to 

F531 

85 

1A 

STA 

$1A 

header  buffer 

F533 

20 

34 

F9 

JSR 

$F934 

Convrt  sector  header  to  GCRbytes 

F536 

A2 

5A 

LDX 

#$5A 

Number  of  read  searches (90) 

F5381 

20 

56 

F5 

JSR 

$F556 

Wait  for  next  sync-marking 

F53B 

AO 

00 

LDY 

#$00 

Clear  buffer  pointer 

F53D2 

50 

FE 

BVC 

$F53D 

Wait  for  next  byte  from  disk 

F53F 

B8 

CLV 

Get  flag  again  for 

F540 

AD 

01 

1C 

LDA 

$1C01 

byte  from  read  head 

F543 

D9 

24 

00 

CMP 

$0024, Y 

&  compare  with  available  header 

F546 

DO 

06 

BNE 

$F54E 

Values  identical? 

F548 

C8 

INY 

YES-set  buffer  pntr  to  next  char 

F549 

CO 

08 

CPY 

#$08 

Compare  with  #  of  header  bytes 

F54B 

DO 

F0 

BNE 

$F53D 

Entire  header  tested? 

F54D 

60 

RTS 

Return  from  this  subroutine 

F54E1 

CA 

DEX 

Decrement  read  search  counter 

F54F 

DO 

E7 

BNE 

$F538 

Any  more  read  searches? 

F551 

A9 

02 

LDA 

#$02 

Display  error  message: 

F5531 

4C 

69 

F9 

JMP 

$F969 

"20  Read  error" 
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[BF1E/F3BB/F50D/F538/FB1D/FD39/FD62]     CF .  9754 


VVCL-L  L. 

for 

next  sync-mark 

r  o  -J  D 

A9 

DO 

LDA 

#$D0 

Set  timer  to  about  53  MS  and 

8D 

05 

18 

STA 

$1805 

start 

r  jjd 

A9 

03 

LDA 

#$03 

Number  for  "21  Read  error" 

pccnl 
r  OjU 

05 

18 

BIT 

$1805 

Get  condition  of  timer 

F560 

10 

Fl 

BPL 

$F553 

Is  timer  running? 

F562 

2C 

00 

1C 

BIT 

$1C00 

Get  condition  of  sync-flag 

F565 

30 

F6 

BMI 

$F55D 

Has  sync-mark  been  found? 

F567 

AD 

01 

1C 

LDA 

$1C01 

YES-intialize  head 

F56A 

B8 

CLV 

Read  electronic  readied  again 

F56B 

AO 

00 

LDY 

#$00 

Set  processor  flags 

F56D 

60 

RTS 

Return  from  this  subroutine 

[F4CE]     cf.  976E 

Write  sector  when  jobcode  $90   (Command  bit  $10) 


F56E 

C9 

10 

CMP 

#$10 

Compare  with  'write'  jobcode 

F570 

F0 

03 

BEQ 

$F575 

Identical? 

F572 

4C 

91 

F6 

JMP 

$F691 

NO— Jobcode  search  continues 

Write 

sector 

F5751 

20 

E9 

F5 

JSR 

$F5E9 

Compute  buffer  checksum 

F578 

85 

3A 

STA 

$3A 

and  save  it 

F57A 

AD 

00 

1C 

LDA 

$1C00 

drive  control  register 

F57D 

29 

10 

AND 

#$10 

Get  'Write  Protect'  bit  flag 

F57F 

DO 

05 

BNE 

$F586 

Is  there  a  write  protect? 

F581 

A9 

08 

LDA 

#$08 

YES— Display  error  message: 

F583 

4C 

69 

F9 

JMP 

$F969 

'26  Write  Protect  On' 

F5861 

20 

8F 

F7 

JSR 

$F78F 

Convert  buffer  to  GCR-Code 

F589 

20 

10 

F5 

JSR 

$F510 

Search  block  header  of  sector 

F58C 

A2 

09 

LDX 

#$09 

Number  of  bytes  on  header 

F58E2 

50 

FE 

BVC 

$F58E 

Byte  read  from  diskette? 

F590 

B8 

CLV 

YES— Byte  Ready  set  up 

F591 

CA 

DEX 

Read  over  next  byte 

F592 

DO 

FA 

BNE 

$F58E 

Entire  block  header  jumped  over? 

F594 

A9 

FF 

LDA 

#$FF 

YES— Switch  register  for  head 

F596 

8D 

03 

1C 

STA 

$1C03 

to  output 

F599 

AD 

oc 

1C 

LDA 

$1C0C 

Get  drive  control  register 

F5  9C 

29 

IF 

AND 

#$1F 

Place  controller  circuitry 

F59E 

09 

CO 

ORA 

#$C0 

on  write  mode  and 

F5A0 

8D 

oc 

1C 

STA 

$1C0C 

set  in  register 

F5A3 

A9 

FF 

LDA 

#$FF 

Sync-marking  value 

F5A5 

A2 

05 

LDX 

#$05 

Number  of  sync-bytes  for  marking 

F5A7 

8D 

01 

1C 

STA 

$1C01 

Transfer  byte  to  head 

F5AA 

B8 

CLV 

Prepare    Byte  Ready  flag 

F5AB2 

50 

FE 

BVC 

$F5AB 

Wait  until  byte  is  written 

F5AD 

B8 

CLV 

Prepare  Byte  Ready  flag 
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F5AE 

CA 

DEX 

CountST"    for    n  1 1  mhp  v    r\  f    o  \m       V\t»+-  a  ** 

F5AF 

DO 

FA 

BNE 

$F5AB 

All  svnc-bvtes  on  Hi  QVpl-t-o") 

F5B1 

AO 

BB 

LDY 

#$BB 

YES— Bu  f  f  r  do  i  nt  r  f  o  ct-  afne  hnf  for 

F5B31 

B9 

00 

01 

LDA 

$0100, Y 

Get  bvte  from  buffer 

J        W       X  Am  will      X/  W  X  J-  w  X 

F5B61 

50 

FE 

BVC 

$F5B6 

Wait  til  write  ri  rnHtrv  i  g  roar?u 

F5B8 

B8 

CLV 

Flag  reset 

F5B9 

8D 

01 

1C 

STA 

$1C01 

Write  bvte  to  diskette* 

F5BC 

C8 

INY 

Pointer  to  next  char  in  buffer 

F5BD 

DO 

F4 

BNE 

$F5B3 

Entire  buffer  written? 

F5BF1 

Bl 

30 

LDA 

($30) ,Y 

YES— Get  byte  from  file  buffer 

F5C11 

50 

FE 

BVC 

$F5C1 

Wait  until  diskette  is  ready 

F5C3 

B8 

CLV 

Flag  reset  and 

F5C4 

8D 

01 

1C 

STA 

$1C01 

write  bvte  to  diskette 

F5C7 

C8 

INY 

Pointer  to  npvt  Kut-o  •?  n  unffar 

F5C8 

DO 

F5 

BNE 

$F5BF 

Entire  buffer  written  un^ 

F5CA1 

50 

FE 

BVC 

$F5CA 

YES— Wait  til  last  bvtp  i  q 

F5CC 

AD 

OC 

1C 

LDA 

$1C0C 

completely  written  and  then 

F5CF 

09 

EO 

ORA 

#$E0 

switch  controller  ri'miitrw 

F5D1 

8D 

OC 

1C 

STA 

$1C0C 

to  read 

F5D4 

A9 

00 

LDA 

#$00 

Switch  read  hp^H  renl  ct-o-r 

F5D6 

8D 

03 

1C 

STA 

$1C03 

to  input 

F5D9 

20 

F2 

F5 

JSR 

$F5F2 

Convert  buffer  from  nr*R  1-0  Kinaru 

F5DC 

A4 

3F 

LDY 

$3F 

Current  buffer  number 

F5DE 

B9 

00 

00 

LDA 

$0000, Y 

Get  jobcode  for  it  and 

F5E1 

49 

30 

EOR 

#$30 

establish  jobcode 

F5E3 

99 

00 

00 

STA 

$0000, Y 

for  'Verify' 

F5E6 

4C 

Bl 

F3 

JMP 

$F3B1 

Check  execution 

[96FD/9775/989E/9C1B/BF2A/F4FB/F575/F698/FCA2] 


Calculate  buffer  checksum 

F5E9     A9  00  LDA  #$00 

F5EB    A8  TAY 

F5EC1  51  30  EOR  ($30) ,Y 

F5EE     C8  INY 

F5EF     DO  FB  BNE  $F5EC 

F5F1     60  RTS 


Clear  checksum  value  and 
pointer  to  buffer  position 
Compute  byte  from  buffer  checksum 
Set  pointer  to  next  byte 
Entire  buffer  calculated? 
YES— Return  from  subroutine 


[F5D9/F972]     vgl.  97F9 

Data  buffer  and  status  buffer  converted  from  GCR  to  binary 


F5F2 

A9 

00 

LDA 

#$00 

Initialize  low-byte  of  pointer 

F5F4 

85 

2E 

STA 

$2E 

forthe  current  data  buffer  and 

F5F6 

85 

30 

STA 

$30 

status  buffer 

F5F8 

85 

4F 

STA 

$4F 

Retain  momentary  value  of  pointer 

F5FA 

A5 

31 

LDA 

$31 

to  current  data  buffer 

F5FC 

85 

4E 

STA 

$4E 

in  $4E/$4F 

F5FE 

A9 

01 

LDA 

#$01 

Set  buffer  pointer 

F600 

85 

31 

STA 

$31 

of  $1BB 
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F602 

F604 

F606 

F608 

F60A 

F60D 

F60F 

F611 

F613 

F615 

F617 

F618 

F61A 

F61C 

F61D 

F61F 

F621 

F622 

F6241 

F627 

F629 

F62B 

F62D 

F62E 

F630 

F632 

F633 

F635 

F637 

F639 

F63A 

F63C 

F63E 

F63F 

F641 


85  2F 
A9  BB 
85  34 
85  36 
20  E6  F7 
A5  52 
85  38 
A4  36 
A5  53 
91  2E 
C8 

A5  54 
91  2E 
C8 

A5  55 
91  2E 
C8 

84  36 
20  E6  F7 
A4  36 
A5  52 
91  2E 
C8 

A5  53 
91  2E 
C8 

F0  OE 
A5  54 
91  2E 
C8 

A5  55 
91  2E 
C8 

84  36 
DO  El 


F6431  A5  54 
F645     91  30 


F647 

F648 

F64A 

F64C 

F64D 

F64F1 

F652 

F654 

F656 

F658 


C8 

A5  55 
91  30 
C8 

84  36 
20  E6  F7 
A4  36 
A5  52 
91  30 
C8 


STA  $2F  High-byte  of  status  buffer 

LDA  #$BB  Turn  buffr  pointer  for  conversion 

STA  $34  to  start  of  status  buffer 

STA  $36  Set  pntr  to  curr  binary  byte  pos. 

JSR  $F7E6  Convert  5  GCRbytes  to  4binary  #'s 

LDA  $52  Get  1st  converted  byte  &  save  as 

STA  $38  identifier  for  data  blockheader 

LDY  $36  Get  buffer  pointer 

LDA  $53  Get  2nd  byte  to  be  converted  and 

STA  ($2E),Y  write  to  temporary  buffer 

!NY  Set  buffer  pointer  to  next  byte 

LDA  $54  Get  3rd  converted  byte 

STA  ($2E),Y  and  write  to  temporary  buffer 

INY  Pointer  to  next  byte 

LDA  $55  Get  last  converted  byte  and 

STA  ($2E),Y  store  in  temporary  buffer 

INy  Pointr  to  next  position  in  buffer 

STY  $36  — mark  it 

JSR  $F7E6  Convert  next  5  GCR-bytes 

LDY  $36  Get  buffer  pointer 

LDA  $52  Get  1st  converted  byte  and 

STA  ($2E),Y  write  to  temporary  buffer 

I NY  Set  pointer  to  next  byte 

LDA  $53  Get  2nd  converted  byte 

STA  ($2E),Y  and  write  to  temporary  buffer 

I NY  Set  pointer  to  next  byte 

BEQ  $F643  All  temp,  buffer  bytes  gotten? 

LDA  $54  NO-Get  3rd  converted  byte  and 

STA  ($2E),Y  write  to  temp,  buffer 

INY  Buffer  pointer  on  next  byte  pos . 

LDA  $55  Get  4th  converted  byte  and 

STA  ($2E),Y  write  to  temp,  buffer 

INY  Pointer  to  next  byte  in  buffer 

STY  $36  and  save  it 

BNE  $F624  Last  byte  from  temporary  buffer? 

LDA  $54  YES-Get  3rd  converted  byte 

STA  ($30), Y  and  write  to  data  buffer 

INY  Set  buffer  pointer  to  next  byte 

LDA  $55  Get  last  converted  byte  and 

STA  ($30), Y  write  to  data  buffer 

INY  Set  buffer  pointer  to  next  char 

STY  $36  and  save  it 

JSR  $F7E6  Next  5  GCR-bytes  into  binary 

LDY  $36  Get  buffer  pointer 

LDA  $52  Get  1st  converted  byte  and 

STA  ($30), Y  write  to  data  buffer 

INY  Set  buffer  pointer  to  next  byte 
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F659 

A5 

53 

LDA 

$53 

Get    P  n  ri    rnnvdrl"  oH   b\/t-  o 

F65B 

91 

30 

STA 

($30) 

,Y 

Write  to  tiflf  a  bii f far 

F65D 

C8 

INY 

Correct  buffer       i ntor 

F65E 

A5 

54 

LDA 

$54 

Get  3rd.  converted,  byte 

F660 

91 

30 

STA 

($30) ,Y 

Write   in  ri^ts  buffer 

F662 

C8 

INY 

Pointer  to  next  byte  in  buffer 

F663 

A5 

55 

LDA 

$55 

Get  last  converted  byte 

F665 

91 

30 

STA 

($30) 

,  Y 

Write    in   Hflta  buffer 

F667 

C8 

INY 

Set  buffer  on  "inter   rn   noYf  K\;ro 

F668 

84 

36 

STY 

$36 

and  save  it 

F66A 

CO 

BB 

CPY 

#$BB 

CoiTlDar      bu f  f  r   on i  nt  er  u/onH  ira  1  no 

F66C 

90 

El 

BCC 

$F64F 

All  bytes  converted  into  binary? 

F66E 

A9 

45 

LDA 

#$45 

YES— Pointer  set  t o 

F670 

85 

2E 

STA 

$2E 

dest  i  n  at  *i  on    aHHro  e  e 

F672 

A5 

31 

LDA 

$31 

of    S  n  1  f  t    rtnoraf  i  one 

F674 

85 

2F 

STA 

$2F 

to  follow 

F676 

AO 

BA 

LDY 

#$BA 

Bu  f  f  r   DO  i  ntr   to   Herr  i  n/rfafa   bu  f  f  er 

F6781 

Bl 

30 

LDA 

($30) 

,Y 

Get   bvte    f rm    1 owst    r>art    of  buffer 

F67A 

91 

2E 

STA 

($2E) 

,Y 

S  hif t   t  o   uooermo  st    nai  rf 

F67C 

88 

DEY 

Poi  nter    to    nevf  rharar-far- 

F67D 

DO 

F9 

BNE 

$F678 

Entire    1  ower    eert-  i  nn    rrini  oH? 

F67F 

Bl 

30 

LDA 

($30) 

,Y 

Copy  lowest  byte 

F681 

91 

2E 

STA 

($2E) 

,Y 

into    hi  ffhf>Qf    riaa rf 

F6831 

A2 

BB 

LDX 

#$BB 

Set   buffr  no i  nter   rn    ctaf  ne  bnffr 

F6851 

BD 

00  01 

LDA 

$0100,X 

Get   bvte   f rm   status   buffer  anH 

F688 

91 

30 

STA 

($30) 

,Y 

^ui*    x  1 1    iuwcsi,    liec    Qata    DULL ex 

F68A 

C8 

INY 

Increment  status  buffer  pointer  & 

F68B 

E8 

INX 

increment  data  buffer  pointeer 

F68C 

DO 

F7 

BNE 

$F685 

Entire  stats  buffr  in  data  buffr? 

F68E 

86 

50 

STX 

$50 

YES-Clr 'Buffer  in  GCR-Code'  flag 

F690 

60 

RTS 

Return  from  subroutine 

[F572]     cf.  9898 

Compare  sector  from  diskette  w/  buffer  contents,  when  jobcode  $A0 
F691    C9  20  CMP  #$20  Compare  jobcode  w/  'Verify1  code 

F693    F0  03  BEQ  $F698  Identical? 

F695     4C  CA  F6      JMP  $F6CA  NO-Decode  jobcode  further 


Sector  verify 


F698J 

F69B 

F69D 

F6A0 

F6A3 

F6A51 

F6A81 

F6AA 


20  E9  F5 
85  3A 
20  8F  F7 
20  OA  F5 
AO  BB 
B9  00  01 
50  FE 
B8 


JSR  $F5E9  Compute  data  buffer  checksum 

STA  $3A  and  save  it 

JSR  $F78F  Convert  buffer  to  GCR-code 

JSR  $F50A  Set  head  to  sector  start  on  disk 

LDY  #$BB  Buffr  pointr  to  start/stats  buffr 

LDA  $0100, Y  Get  byte  from  status  buffer 

BVC  $F6A8  Wait  til  byte  from  disk  is  ready 

CLV  Get  flag  ready  again 
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A  n 

U  X 

X^- 

Get  byte  from  head  and  compare 

r  bAb 

Art 

JJU 

io 

OMP 

Byte  from  buffer  &  disk  equal? 

F6B0 

INI 

YES— Pointer  to  next  buffer  byte 

£  DDI 

£  £. 

DUG1 

Entire  status  buffer  compared? 

F6B3^" 

Bx 

JU 

LiUri 

vp1*? — cz&t  hvte  from  data  buffer 

£  ODJ 

OU 

£  £j 

$F6B5 

Wait  until  byte  is  read  from  disk 

£  DD  i 

DO 
DO 

CLV 

and  get  head  ready  again 

r  Odd 

*i  u 

m 

U  X 

EOR 

$1C01 

Get  byte  from  head  abd  compare 

£  Ol5x5 

u  o 

BNE 

$F6C5 

Byte  from  disk  and  buffer  equal? 

F6BD 

C8 

INY 

YES— Buffer  pointer  to  next  char 

F6BE 

CO 

FD 

CPY 

#$FD 

Compare  with  end  value  of  buffer 

F6C0 

DO 

Fl 

BNE 

$F6B3 

All  bytes  compared? 

F6C2 

4C 

18 

F4 

JMP 

$F418 

Verify  if  successful 

F6C51 

A9 

07 

LDA 

#$07 

Display  error  message  — 

F6C7 

4C 

69 

F9 

JMP 

$F969 

'25  Write  Error' 

[F695] 

=f . 

98CE 

Look 

for 

sector 

header  (jobcode 

$B0) 

F6CA 

20 

10 

F5 

JSR 

$F510 

Look  for  sector  header 

F6CD 

4C 

18 

F4 

JMP 

$F418 

Prepare  return  message 

[F7E3/FE64/F7BC/F950/F961/FE5E] 

Convert  4  Binary  bytes  into  5  GCR-bytes.  $52-$55  will  be  used 
as  buffer  for  the  binary  values 


F6D0 

A9 

00 

LDA 

#$0D 

Clear  temporary 

F6D2 

85 

57 

STA 

$57 

memory  storage  for 

F6D4 

85 

5A 

STA 

$5A 

GCR-bytes 

F6D6 

A4 

34 

LDY 

$34 

Pointer  to  current  GCR-byte 

F6D8 

A5 

52 

LDA 

$52 

Get  first  character 

F6DA 

29 

F0 

AND 

#$F0 

to  be  converted  from 

F6DC 

4A 

LSR 

A 

binary  buffer; 

F6DD 

4A 

LSR 

A 

isolate  most  significant  part  of 

F6DE 

4A 

LSR 

A 

byte  (bits  4-7)  and  copy  to  least 

F6DF 

4A 

LSR 

A 

significant  part 

F6E0 

AA 

TAX 

then  get  the  halfbytes  of  the 

F6E1 

BD 

7F  F7 

LDA 

$F77F,X 

corresponding  5-bit-GCR-code 

F6E4 

OA 

ASL 

A 

Copy  the  5  bits  into  the 

F6E5 

OA 

ASL 

A 

higher  part 

F6E6 

OA 

ASL 

A 

and  save  parts  of 

F6E7 

85 

56 

STA 

$56 

bytes   (bits  3-7) 

F6E9 

A5 

52 

LDA 

$52 

Get  first  byte  to  be  converted  & 

F6EB 

29 

OF 

AND 

#$0F 

isolate  lowest  part; 

F6ED 

AA 

TAX 

Then  pass  it  to  half-byte 

F6EE 

BD 

7F  F7 

LDA 

$F77F,X 

Get  5-bit-GCR  code 
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r  or  1 

OA 

POP 
KUK 

A 

£  D£  Z 

00 

O  / 

KUK 

PO  / 

r  or  *± 

OA 

KUK. 

A 

r  or  j 

00 

R7 

PHP 

$  R7 
pO  f 

r  or  f 

9  Q 

fi7 

awn 

AINU 

£  or  7 

O  O 

or  a 

£  or  D 

Oln 

r  or  u 

UO 

TMV 
llu 

£  or  £> 

rl>J 

JO 

T.na 

r  /  vy 

9Q 

pn 
r  u 

awn 

f  yC  U 

TP7  0  9 

4n 

T  CP 
LOK 

A 

A 

t?7  m 
r  /  uj 

jia 

T  CP 
LoK 

A 

A 

r  /  u  *i 

l  a 

*irt 

T  CP 
LOIN 

a 

rt 

r  /  uo 

A  a 

flA 

T  CD 

LoK 

A 

A 

TT7  £ 

r  /  u  o 

a  a 
AA 

X  AA 

r  /  U  / 

on 

rJU 

7TP 

/  r 

r  / 

t  r\a 

6T?7  7  IT  V 

!?r  /  /r  /  a 

F70A 

OA 

ASL 

A 

r  /  Uo 

UO 

0  / 

OKA 

50  / 

r  /  UU 

0  c 

OJ 

0  / 

nip  A 

blA 

5?0  / 

F70F 

AO 

0  0 

LDA 

*  c;  *a 
§0  J 

r  /  X  X 

zy 

ur 

AND 

ffpUr 

U*7  1  "i 

r  /  x  j 

a  a 

Art 

1AA 

1P7  1  A 

r  I  X  *i 

nn 
DU 

"7  IT 

/  r 

r  / 

T  TV 

LUA 

i?r  1  I r  ,  X 

r  /  X  / 

O  A 

TJAT 

A 

7T7  1  Q 

r  /  xo 

9  a 
<£A 

TJOT 

KUXj 

A 

P7  1  0 

r  r  x  y 

9  a 

«£A 

KUXj 

A 

A 

F7  1  & 
r  /  in 

9  a 

ZA 

POT 
KUXj 

A 

A 

r  r  ID 

ft  c 
00 

00 

CTa 

0 1 A 

C  C  Q 
90  O 

r  *  ±  u 

9a 
zrt 

POT 
KUXj 

A 
A 

F71  P 

r    f  -L  Hi 

9  Q 

m 

U  X 

awn 

#  pU  X 

TT7  9  n 
r  1  £.  u 

AC 
UO 

c;7 
0  / 

r\o  a 
UKA 

C  R7 
s>0  / 

TT7  9  9 
r  /  Z  Z 

yx 

oU 

CTA 

bin 

(5 JO) , Y 

T?7  9  4 

r  /  Z  ft 

Co 

TMV 

XNx 

F79  ^ 
r  / £.0 

a  r 

AO 

R  A 
O  *1 

t  na 

iiUA 

c  c;  yl 
^04 

TT7  9  7 

9  Q 

£.  y 

it  n 
r  u 

A\Tr\ 
AND 

f  §£  U 

1T79  Q 
r  /  z  y 

^a 

fiA 

T  CD 

XjOK 

A 

A 

TP7  9  a 

r  iza 

/1  a 
4A 

LSR 

A 

C  I  do 

A  a 
ftA 

T  CTJ 

A 

F7  9P 

r  /  zu 

A  a 
flA 

t  ets 

A 

P79H 
r  /  zu 

aa 

AA 

XAA 

T?7  9F 
r  r zrj 

DU 

71? 

/  r 

r  / 

t  r\A 
LDA 

§F /  /F, X 

r  /  J  X 

1  D 
Xo 

CLC 

F732 

6A 

ROR 

A 

F733 

05 

58 

ORA 

$58 

F735 

91 

30 

STA 

($30), Y 

F737 

C8 

INY 

F738 

6A 

ROR 

A 

Two  lowest  bits, when  there  is  no 
more  room  if  1st  byte (8  bits  turn 
to  10  bits)— bring  them  into  the 
second  GCR-byte 

Combine  the  3  remaining  bits  into 
the  first  GCR-byte 
and  write  GCR-byte  to  buffer 
Buffer  pointer  to  next  character 
Get  second  byte  for  conversion 
Get  1st  part  to  be  converted 
&  move  to  least  significant 
half -byte 

Equivalent  binary  byte  to 
be  used  for  pointer 
Get  corresponding 
5-bit -GCR-code  and 
Set  in  2nd  GCR-byte 
in  bit  positions  1-5 

Get  3rd  byte  to  be  converted  and 
isolate  least  significant  part, 
then  get  corresponding 

5-bit  GCR-byte 

Set  GCR-byte 
in  bit  positions  4-7 
of  the  3rd  GCR-byte 
and 
save 

Transfer  last  GCR-bit 

to  next 

GCR-byte 

Write  GCR-byte  to  buffer 

Set  buffer  pointer  to  next  byte 

Get  3rd  bin.  byte  to  be  converted 

and  isolate  most  significant 

parts   (bits  4-7) 

Shift  half-byte (least  sig.)  and 

Set  up  pointer  for  equivalent 

binary  bytes,  and 

half-byte  as  corresponding 

5-bit  GCR  code 

byte  shifted  1  place  to  the  right, 
and  a  null  bit  inserted 
GCR-value  w/previous  combinations 
Write  GCR-byte  to  buffer  and 
increment  buffer  pointer 
Get  previously-moved  bit  0  and 
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F739 

29 

80 

AND 

#$80 

take  up  next 

F73B 

85 

59 

STA 

$5  9 

GCR-byte 

r  /  JU 

71  C 

A3 

C  A 

LDA 

554 

Set  least  sig.  part   (bit  0-3) 

F73F 

29 

OF 

AND 

#$0F 

of  3rd  byte  to  be  converted 

AA 

TAX 

and  determine  the  5-bit  GCR 

F742 

BD 

7F 

F7 

LDA 

$F77F, X 

code  to  be  adapted 

("t  A 

OA 

ASL 

A 

Set  GCR-value  in  positions 

r  /  4  fo 

n  a 
OA 

ASL 

A 

2-6  and  Save  as  2nd  part 

F  /  4  / 

2  y 

/c 

AND 

*57C 

or  the  4th 

o  y 

UK/A 

9oy 

tjLK  Dyte 

r  / 4d 

o  c 

oy 

STA 

fen 

$59 

Save  GCR— byte 

tP"7  ^  r\ 

AO 

OO 

LDA 

tec 

Get  4th  bin .  byte  to  be  converted 

TP  "7  A  TP 

^y 

TP 

A  \7T^ 

AND 

#4Tpn 

and  isolate  most  significant  part 

F751 

4A 

LSR 

A 

(4-7) 

F  (52 

4A 

LSR 

A 

Half-byte  in  least  sig.  bytehalves 

r  /OJ 

A  A 

4A 

T  CD 

A 

shifted  so  that  bytes  can  serve  as 

F/34 

/I  A 

4A 

LSR 

A 

pointers  for  the  GCR— values 

tpt  c  c 
F  /  jj 

A  A 

AA 

TAX 

then  get  the  binary  byte's 

tpn  c  £ 
r  (Oo 

BD 

T  IP 

/F 

TP  -J 

LDA 

$F  /  IF, X 

corresponding  5— bit— GCR— code 

F  (53 

CA 

oA 

ROR 

A 

First  3  bits  of 

F75A 

66 

5A 

ROR 

£  C  A 

$5A 

GCR-value  (position  0-2) 

F75C 

6A 

ROR 

A 

transferred  to  positions 

F75D 

66 

5A 

ROR 

*  E  A 

55A 

o—  /  or  the  last 

F75F 

6A 

ROR 

A 

GCR-value 

F760 

66 

5A 

ROR 

$5A 

Carry  the 

F7  62 

29 

03 

AND 

JL  tf-  r\  "3 

#503 

remaining  2  bits 

F7  64 

05 

59 

ORA 

$59 

Combine  with  preceding  GCR-value 

F766 

91 

30 

STA 

($30) , Y 

and  write  to  buffer 

r  i  bo 

to 

TMV 

F769 

DO 

04 

BNE 

$F76F 

End  of  buffer  reached? 

F7  6B 

A5 

2F 

LDA 

$2F 

iLo—o6t  pointer  no  aaxa.  Duiier 

F76D 

85 

31 

STA 

$31 

again 

F76F^ 

A5 

55 

LDA 

tjee 

5oo 

(jet    last    rial  1    uy u t;    j. x. um   j.ao c 

F  /  11 

ATP 

Ur 

AINU 

f  ?Ur 

F773 

AA 

TAX 

s  a  ve  it 

F774 

BD 

7F 

F7 

LDA 

$F77F,X 

Establish  GCR-value,  and 

F777 

05 

5A 

ORA 

$5A 

combine  with  last  GCR  byte 

F779 

91 

30 

STA 

($30), Y 

Write  byte  to  buffer 

F77B 

C8 

INY 

Set  buffer  pointer  to  next  byte  & 

F77C 

84 

34 

STY 

$34 

save  it 

F77E 

60 

RTS 

Return  from  this  subroutine 

[F6E1/F6EE/F707/F714/F72E/F742/F756/F774] 

F77F    OA  0B  12  13  0E  OF  16  17        This  table  of  16  half-bytes 
F787     09  19  1A  IB  0D  ID  IE  15        correspond  to  5-bit -GCR-bytes 
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[9706/9BA3/9C20/F586/F69D/FCA7] 
Buffer  contents  converted  from 


F78F 

A9 

00 

LDA 

#$00 

F791 

85 

30 

STA 

$30 

F793 

85 

2E 

STA 

$2E 

F7  95 

85 

36 

STA 

$36 

F797 

A9 

BB 

LDA 

#$BB 

F799 

85 

34 

STA 

$34 

F79B 

85 

50 

STA 

$50 

F79D 

A5 

31 

LDA 

$31 

F7  9F 

85 

2F 

STA 

$2F 

F7A1 

A9 

01 

LDA 

#$01 

F7A3 

85 

31 

STA 

$31 

F7A5 

A5 

47 

LDA 

$47 

F7A7 

85 

52 

STA 

$52 

F7A9 

A4 

36 

LDY 

$36 

F7AB 

Bl 

2E 

LDA 

($2E) ,Y 

F7AD 

85 

53 

STA 

$53 

F7AF 

C8 

INY 

F7B0 

Bl 

2E 

LDA 

($2E) ,Y 

F7B2 

85 

54 

STA 

$54 

F7B4 

C8 

INY 

F7B5 

Bl 

2E 

LDA 

($2E) ,Y 

F7B7 

85 

55 

STA 

$55 

F7B9 

C8 

INY 

F7BA1 

84 

36 

STY 

$36 

F7BC 

20 

DO  F6 

JSR 

$F6D0 

F7BF 

A4 

36 

LDY 

$36 

F7C1 

Bl 

2E 

LDA 

($2E) ,Y 

F7C3 

85 

52 

STA 

$52 

F7C5 

C8 

INY 

F7C6 

F0 

11 

BEQ 

$F7D9 

F7C8 

Bl 

2E 

LDA 

($2E) ,Y 

F7CA 

85 

53 

STA 

$53 

F7CC 

C8 

INY 

F7CD 

Bl 

2E 

LDA 

($2E) ,Y 

F7CF 

85 

54 

STA 

$54 

F7D1 

C8 

INY 

F7D2 

Bl 

2E 

LDA 

($2E) ,Y 

F7D4 

85 

55 

STA 

$55 

F7D6 

C8 

INY 

nary  to  GCR-bytes 
Lo-bytes  of  pmtrs  set  to  null: 
pointer  to  current  GCR-buffer 
pointer  to  current  binary  buffer 
pointer  to  current  buffer  position 
Lo-byte  for  pointer  set  on 

conditional  buffer 
Flag  for  "buffer  in  GCR-code" 
Set  pointer  for  current  data 
buffer 

Turn  pointer  to  conditional  buffer 
(high  byte) 

Identifier  for  data  block 

set  as  first  char  to  be  converted 

Get  buffer  pointer 

Get  data  byte  from  buffer  and  save 

as  1st  char  to  be  converted 

Increment  buffer  pointer 

Get  next  data  byte  and  save  as  2nd 

byte  to  be  converted 

Set  buffer  pointer  to  next  char. 

Get  byte  frm  databuffer  &  save  as 

third  byte  to  be  converted 

Set  buffer  pntr  to  next  byte,  and 

save 

4  bin. bytes  convrted  to  5  GCRbytes 

Get  buffer  pointer  again 

Get  next  byte  to  be  converted  and 

save  in  temporary  storage 

Set  buffer  pointer  to  next  char 

End  of  interim  buffers  reached? 

Get  2nd  data  byte  for  conversion, 

and  save  it 

Increment  buffer  pointer 

Get  third  byte  for  conversion  and 

store  in  GCR  buffer 

Set  buffer  pointer  to  next  byte 

Get  4th  byte  for  conversion  and 

save  it 

Set  buffer  pointer  to  next  char 
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F7D7 

DO  El 

dNL  ?r  /sA 

Entire  buffer  converted? 

F7D9^ 

AO  JA 

LDA  9Jfl 

Save  data  block 

F7DB 

85  53 

STA  $53 

checksum 

F7DD 

A9  00 

LDA  #$00 

and  put  fill  characters  in 

F7DF 

85  54 

STA  $54 

the  remainder  of  the 

F7E1 

85  55 

STA  $55 

GCR  work  buffer 

F7E3 

4C  DO 

F6     JMP  $F6D0 

4  binary  bytes  to  5  GCR-values 

[BF2D/F4A9/F4B8/F60A/F624/F64F/F8F4/F90E]     VGL.  98D9 

5  GCR- 

-bytes 

converted  into  4 

binary  bytes 

F7E6 

A4  34 

LDY  $34 

Get  buffer  pointer  again 

F7E8 

Bl  30 

LDA  ($30), Y 

Get  first  byte  from  buffer  and 

F7EA 

29  F8 

AND  #$F8 

isolate  the 

F7EC 

4A 

LSR  A 

5-bit  GCR  value 

F7ED 

4A 

LSR  A 

Then  set  up  8-bit  value  whereby 

F7EE 

4A 

LSR  A 

the  5  GCR-bits  take  up 

F7EF 

85  56 

STA  $56 

positions  0-4  ,  and  save  value 

F7F1 

Bl  30 

LDA  ($30), Y 

Get  2nd  byte  from  buffer  and 

F7F3 

29  07 

AND  #$07 

isolate  3  bits  of  next  GCR-byte, 

F7F5 

OA 

ASL  A 

and  move  to  bit  positions 

F7F6 

OA 

ASL  A 

0-4 

F7F7 

85  57 

STA  $57 

Save  resulting  GCR-byte 

F7F9 

C8 

INY 

Set  buffer  pointer  to  next  char 

F7FA 

DO  06 

BNE  $F802 

End  of  buffer  reached? 

F7FC 

A5  4E 

LDA  $4E 

Set  up  pointer  to  current 

F7FE 

85  31 

STA  $31 

data  buffer 

F800 

A4  4F 

LDY  $4F 

Pointer  to  buffer  position 

F8021 

Bl  30 

LDA  ($30), Y 

Get  2nd  GCR-byte 

F804 

29  CO 

AND  #$C0 

&  remaining  2  bits  of  GCR-value 

F806 

2A 

ROL  A 

and  move  to  proper 

F807 

2A 

ROL  A 

position 

F808 

2A 

ROL  A 

(Bits  0-1) 

F809 

05  57 

ORA  $57 

Combine  1st  section 

F80B 

85  57 

STA  $57 

Save  GCR-value 

F80D 

Bl  30 

LDA  ($30), Y 

Get  GCR-byte  from  buffer 

F80F 

29  3E 

AND  #$3E 

Set  up  next  GCR-value 

F811 

4A 

LSR  A 

and  set  in  output  position 

F812 

85  58 

STA  $58 

Save  value 

F814 

Bl  30 

LDA  ($30), Y 

Get  next  GCR-byte 

F816 

29  01 

AND  #$01 

&  get  1ST  part  of  next  GCR-value 

F818 

OA 

ASL  A 

Get 

F819 

OA 

ASL  A 

bit  in 

F81A 

OA 

ASL  A 

position  4 

F81B 

OA 

ASL  A 

of  the  byte 

F81C 

85  59 

STA  $59 

and  save  value 

F81E 

C8 

INY 

Set  pointer  to  next  byte 

F81F 

Bl  30 

LDA  ($30), Y 

and  get  GCR-byte  from  buffer 
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F821 

29 

FO 

AND 

#$F0 

Get  2nd  part  of  GCR-value 

F823 

4A 

LSR 

A 

and 

F824 

4A 

LSR 

A 

shift  the  lower 

F825 

4A 

LSR 

A 

half  of  the  byte 

F826 

4A 

LSR 

A 

(positions  0-3) 

F827 

05 

59 

ORA 

$59 

Combine  with  previous  bits 

F829 

85 

59 

STA 

$59 

and  save  GCR  vlaue 

F82B 

Bl 

30 

LDA 

($30), Y 

Get  GCR-byte  from  buffer  again 

F82D 

29 

OF 

AND 

#$0F 

and  then  get  the  1st  four  bits 

F82F 

OA 

ASL 

A 

of  the  next  GCR-value 

F830 

85 

5A 

STA 

$5A 

and  save  them 

F832 

C8 

INY 

Buffer  pointer  to  next  byte 

F833 

Bl 

30 

LDA 

($30), Y 

Get  GCR-byte  from  buffer 

F835 

29 

80 

AND 

#$80 

and  get  last  bit  of 

F837 

18 

CLC 

preceding 

F838 

2A 

ROL 

A 

GCR-value 

F839 

2A 

ROL 

A 

Move  bit  to  position  0 

F83A 

29 

01 

AND 

#$01 

of  byte  and  combine  with 

F83C 

05 

5A 

ORA 

$5A 

4  previous  bits 

F83E 

85 

5A 

STA 

$5A 

Save  GCR-value 

F840 

Bl 

30 

LDA 

($30), Y 

Get  GCR-byte  from  buffer  again 

F842 

29 

7C 

AND 

#$7C 

Isolate  GCR-value 

F844 

4A 

LSR 

A 

and  shift  postions  0-4 

F845 

4A 

LSR 

A 

of  byte 

F846 

85 

5B 

STA 

$5B 

Save  value 

F848 

Bl 

30 

LDA 

($30), Y 

Get  GCR-byte  again 

F84A 

29 

03 

AND 

#$03 

and  get  2  bits  of  the 

F84C 

OA 

ASL 

A 

next  GCR-value 

F84D 

OA 

ASL 

A 

Shift  bits  in  postions 

F84E 

OA 

ASL 

A 

3  and  4 

F84F 

85 

5C 

STA 

$5C 

Save  value 

F851 

C8 

INY 

Buffer  pointer  to  next  byte 

F852 

DO 

06 

BNE 

$F85A 

End  of  buffer  reached? 

F854 

A5 

4E 

LDA 

$4E 

Turn  buffer  pointer  to 

F856 

85 

31 

STA 

$31 

current  data  buffer 

F858 

A4 

4F 

LDY 

$4F 

Get  position  pointer  again 

F85A 

Bl 

30 

LDA 

($30), Y 

Read  GCR-byte  from  buffer 

F85C 

29 

EO 

AND 

#$E0 

and  isolate  remaining  3  bits  from 

F85E 

2A 

ROL 

A 

previous  GCR-values 

F85F 

2A 

ROL 

A 

Shift  bits  in  positions 

F860 

2A 

ROL 

A 

0-2 

F861 

2A 

ROL 

A 

(using  a  carry) 

F862 

05 

5C 

ORA 

$5C 

Combine  previous  2  bits 

F864 

85 

5C 

STA 

$5C 

Save  pure  GCR-value 

F866 

Bl 

30 

LDA 

($30) ,Y 

Get  byte  from  GCR-buffer 

F868 

29 

IF 

AND 

#$1F 

Isolate  last  GCR-value 

F86A 

85 

5D 

STA 

$5D 

and  save  it 
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F86C 

C8 

INY 

Buffer  pointer  to  next  byte. 

F86D 

84 

34 

STY 

$34 

and  save  it 

F86F 

A6 

56 

LDX 

$56 

Load  1st  5-bit-GCR-byte 

F871 

BD 

AO 

F8 

LDA 

$F8A0,X 

and  equivalent  most  sig.  part 

F874 

A6 

57 

LDX 

$57 

with  least  sig.  part,  by  which 

F876 

ID 

CO 

F8 

ORA 

$F8C0,X 

the  2nd  GCR-byte  declares. 

F879 

85 

52 

STA 

$52 

combines  &  saves  as  binary  bytes 

F87B 

A6 

58 

LDX 

$58 

Load  3rd  5-bit  GCRbyte  and  equiv. 

F87D 

BD 

AO 

F8 

LDA 

$F8A0,X 

most  sig.  part  with  the  least 

F880 

A6 

59 

LDX 

$59 

sig.  part,  through  which  the  4th 

F882 

ID 

CO 

F8 

ORA 

$F8C0,X 

GCR-byte  will  declare,  combine  & 

F885 

85 

53 

STA 

$53 

save  as  binary  bytes 

F887 

A6 

5A 

LDX 

$5A 

Load  5th  5-bit -GCRbyte  and  equiv. 

F889 

BD 

AO 

F8 

LDA 

$F8A0,X 

most  sig.  part  with  the  least 

F88C 

A6 

5B 

LDX 

$5B 

sig.  part,  by  which 

F88E 

ID 

CO 

F8 

ORA 

$F8C0,X 

the  6th  GCR-byte  will  declare. 

F891 

85 

54 

STA 

$54 

combine  and  save  as  binary  bytes 

F893 

A6 

5C 

LDX 

$5C 

Load  7th  5-bit-GCRbyte  and  equiv. 

F895 

BD 

AO 

F8 

LDA 

$F8A0,X 

most  sig.  part  with  the 

F898 

A6 

5D 

LDX 

$5D 

least  sig.  part,    by  which 

F89A 

ID 

CO 

F8 

ORA 

$F8C0,X 

the  8th  GCR-byte  will  declare. 

F89D 

85 

55 

STA 

$55 

combine  and  save  as  binary  bytes 

F89F 

60 

RTS 

Return  from  this  subroutine 

Table  of  the  most  significant  parts  of  GCR  equivalents  of  binary 

bytes;  $FF  means  that  this  GCR  value  is  undefined 

F8A0     FF  FF  FF  FF  FF  FF  FF  FF 

F8A8     FF  80  00  10  FF  CO  40  50 

F8B0     FF  FF  20  30  FF  F0  60  70 

F8B8     FF  90  AO  B0  FF  DO  E0  FF 


Table  of  the  least  significant  parts  of  GCR  equivalents  of  binary 

bytes;  $FF  means  that  this  GCR  value  is  undefined 

F8C0     FF  FF  FF  FF  FF  FF  FF  FF 

F8C8     FF  08  00  01  FF  0C  04  05 

F8D0     FF  FF  02  03  FF  OF  06  07 

F8D8     FF  09  OA  0B  FF  0D  0E  FF 
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[BF24/F4ED]  cf 

.  9965 

Convert  status 

buffer 

from 

GCR  to 

binary 

F8E0 

A9 

00 

LDA 

#$00 

Reset  pointer  to 

F8E2 

85 

34 

STA 

$34 

current  GCR-byte 

F8E4 

85 

2E 

STA 

$2E 

Clear  pointer  to  target  buffer 

F8E6 

85 

36 

STA 

$36 

Pointer  to  current  data  position 

F8E8 

A9 

01 

LDA 

#$01 

Set  pointers  $4E/$4F  to 

F8EA 

85 

4E 

STA 

$4E 

the  beginning  of  the 

F8EC 

A9 

BA 

LDA 

#$BA 

status  buffer 

F8EE 

85 

4F 

STA 

$4F 

from  $01BB-$01FF 

F8F0 

A5 

31 

LDA 

$31 

Set  buffer  pointer  to  value  of 

F8F2 

85 

2F 

STA 

$2F 

current  data  buffer 

F8F4 

20 

E6  F7 

JSR 

$F7E6 

Convrt  5  GCRbytes  to  4binarybytes 

F8F7 

A5 

52 

LDA 

$52 

Set  first  converted  byte  as 

F8F9 

85 

38 

STA 

$38 

header  block  identifier 

F8FB 

A4 

36 

LDY 

$36 

Set  pointer  in  buffer 

F8FD 

A5 

53 

LDA 

$53 

Write  second  converted  byte  into 

F8FF 

91 

2E 

STA 

($2E) 

,Y 

current  data  buffer 

F901 

C8 

I  NY 

Write  third 

F902 

A5 

54 

LDA 

$54 

converted  byte 

F904 

91 

2E 

STA 

($2E) 

,Y 

into  current  data  buffer 

F906 

C8 

INY 

Write  fourth 

F907 

A5 

55 

LDA 

$55 

converted  byte  into 

F909 

91 

2E 

STA 

($2E) 

,Y 

current  data  buffer 

F90B 

C8 

INY 

Set  buffer  pointer  to  next  byte; 

F90C1 

84 

36 

STY 

$36 

save  it  down 

F90E 

20 

E6  F7 

JSR 

$F7E6 

Convrt  5  GCRbytes  to  4binarybytes 

F911 

A4 

36 

LDY 

$36 

Get  buffer  pointer  again 

F913 

A5 

52 

LDA 

$52 

Write  first  conveted  byte 

F915 

91 

2E 

STA 

($2E) 

,Y 

into  current  data  buffer 

F917 

C8 

INY 

Set  buffer  pointer  to  next  byte 

F918 

F0 

11 

BEQ 

$F92B 

Data  buffer  full? 

F91A 

A5 

53 

LDA 

$53 

NO-Write  second  converted  byte 

F91C 

91 

2E 

STA 

($2E) 

,Y 

into  current  data  buffer 

F91E 

C8 

INY 

Write  third  converted 

F91F 

A5 

54 

LDA 

$54 

byte  into  the 

F921 

91 

2E 

STA 

($2E) 

,Y 

current  data  buffer 

F923 

C8 

INY 

Write  fourth  converted 

F924 

A5 

55 

LDA 

$55 

byte  into  the 

F926 

91 

2E 

STA 

($2E) 

,Y 

current  data  buffer 

F928 

C8 

INY 

Set  buffer  pointer  to  next  byte 

F929 

DO 

El 

BNE 

$F90C 

Data  buffer  already  full? 

F92B1 

A5 

53 

LDA 

$53 

YES— Then  save  second  converted 

F92D 

85 

3A 

STA 

$3A 

byte  as  checksum  (parity) 

F92F 

A5 

2F 

LDA 

$2F 

Prepare  pointer  to 

F931 

85 

31 

STA 

$31 

current  data  buffer 

F933 

60 

RTS 

Return  from  this  subroutine 
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[972E/BF1B/F533] 

Convert  sector  header  into  GCR-bytes 


F934 

A5 

31 

LDA 

$31 

Take  up  pointer 

F936 

85 

2F 

STA 

$2F 

to  current  data  buffer 

F938 

A9 

00 

LDA 

#$00 

Turn  data  pointer  to 

F93A 

85 

31 

STA 

$31 

header  buffer 

F93C 

A9 

24 

LDA 

#$24 

which  begins 

F93E 

85 

34 

STA 

$34 

at  $24 

F940 

A5 

39 

LDA 

$39 

Identifier  for  blockheader  (8) 

F942 

85 

52 

STA 

$52 

in  temp  storage  for  GCR-routine 

F944 

A5 

1A 

LDA 

$1A 

Blockheader  checksum  in 

F946 

85 

53 

STA 

$53 

temporary  storage  for  GCR-routine 

F948 

A5 

19 

LDA 

$19 

Data  block  sector  number  in 

F94A 

85 

54 

STA 

$54 

temporary  storage  for  GCR-routine 

F94C 

A5 

18 

LDA 

$18 

Track  number  of  data  block 

F94E 

85 

55 

STA 

$55 

in  temp  storage  for  GCR-Routine 

F950 

20 

DO  F6 

JSR 

$F6D0 

Convrt  4binarybytes  to  5  GCRbytes 

F953 

A5 

17 

LDA 

$17 

2nd  character  of  ID 

F955 

85 

52 

STA 

$52 

in  temp  storage  for  GCR-Routine 

F957 

A5 

16 

LDA 

$16 

First  character  of  ID 

F959 

85 

53 

STA 

$53 

in  temp  storage  for  GCR-Routine 

F95B 

A9 

00 

LDA 

#$00 

Temporary  storage  for  GCR-Routine 

F95D 

85 

54 

STA 

$54 

filled  with 

F95F 

85 

55 

STA 

$55 

two  empty  spaces 

F961 

20 

DO  F6 

JSR 

$F6D0 

Convrt  4binarybytes  to  5  GCRbytes 

F964 

A5 

2F 

LDA 

$2F 

Prep  current 

F966 

85 

31 

STA 

$31 

data  buffer  pointer 

F968 

60 

RTS 

Return  from  this  subroutine 

[BF12/F2D5/F390/F40D/F420/F4F8/F507/F553/F583/F6C7/FDA0/FDE2]cf 99B5 


End  current 

job; 

prepare  error 

return  message 

F969 

A4 

3F 

LDY 

$3F 

Buffer  number  of  job 

F96B 

99 

00 

00 

STA 

$0000, Y 

Error  message  in  command  register 

F96E 

A5 

50 

LDA 

$50 

Flag  for  GCR-format 

F970 

F0 

03 

BEQ 

$F975 

Data  still  in  GCR-code? 

F972 

20 

F2 

F5 

JSR 

$F5F2 

YES-Convert  GCR-data 

F975 

20 

8F 

F9 

JSR 

$F98F 

Drive  motor  off 

F978 

A6 

49 

LDX 

$49 

Temporary  storage  for  Stack 

F97A 

9A 

TXS 

Reset  stack  to  read  whether 

F97B 

4C 

BE 

F2 

JMP 

$F2BE 

a  new  job  is  there 

[92F5/F2DF] 

Drive  motor  on;  wait  until  motor  is  constantly  on 

LDA  #$A0  Set  'Motor  runs  on'  flag 

STA  $20  as  drive  status 

LDA  $1C00  Get  control  register 

ORA  #$04  and  set  motor  bit  (Bit2) 


F97E  A9  AO 

F980  85  20 

F982  AD  00  1C 

F985  09  04 
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F987  8D  00  1C  STA  $1C00 

F98A  A9  32  LDA  #$32 

F98C  85  48  STA  $48 

F98E  60  RTS 


to  'motor  on'  (=1) 

Set  counter  for  0.8  /  0.4  sees. 

delay  time 

Return  from  this  subroutine 


[86CF/98C1/F975] 
Drive    motor  off 


F98F 

A6  3E 

LDX  $3E 

Current  drive 

F991 

A5  20 

LDA  $20 

Get  drive  status  and  switch  off 

F993 

09  10 

ORA  #$10 

flag  for 

F995 

85  20 

STA  $20 

'motor  off 

F997 

4C  2B 

A6 

JMP  $A62B 

Set  runtime  counter 

F99A 

EA 

NOP 

unused  [1541  ROM 

F99B 

EA 

NOP 

modification] 

[BF6F/F2E6/F2F0/F2F6/F31D/F48A/FAF2/FAFD/FD93/FDD8] 

Main 

disk  control  routine 

F99C 

AD  07 

1C 

LDA  $1C07 

Timer  w/#  of  time  cycles (hi-byte) 

F99F 

8D  05 

1C 

STA  $1C05 

set  until  next  IRQ 

F9A2 

AD  00 

1C 

LDA  $1C00 

Check  status  of  light  box  for 

F9A5 

29  10 

AND  #$10 

write-protect  on  disk 

F9A7 

C5  IE 

CMP  $1E 

or  disk  change 

F9A9 

85  IE 

STA  $1E 

Save  write-protect  status 

F9AB 

4C  34 

A6 

JMP  $A634 

Switch  motor 

F9AE 

EA 

NOP 

Unused 

F9AF 

EA 

NOP 

section,  due  to  modification 

F9B0 

EA 

NOP 

of  1541-ROM 

[A657] 

Control  head 


F9B1 

AD 

FE 

02 

LDA 

$02FE 

Status  flag  for  step-motor 

F9B4 

F0 

15 

BEQ 

$F9CB 

Is  the  head  on  the  chosen  track? 

F9B6 

C9 

02 

CMP 

#$02 

NO— Is  the  head  even  positioned 

F9B8 

DO 

07 

BNE 

$F9C1 

on  the  chosen  track  area? 

F9BA 

A9 

00 

LDA 

#$00 

YES-Set  'head  on 

F9BC 

8D 

FE 

02 

STA 

$02FE 

track'  flag 

F9BF 

F0 

OA 

BEQ 

$F9CB 

Jump  to  $F9CB 

F9C11 

85 

4A 

STA 

$4A 

Counter  for  number  of  half-steps 

F9C3 

A9 

02 

LDA 

#$02 

Set  head  status  flag  to 

F9C5 

8D 

FE 

02 

STA 

$02FE 

'Head  on  track'  and  move  a 

F9C8 

4C 

2E 

FA 

JMP 

$FA2E 

1/2  step  along  on  chosen  track 

F9CB2 

A6 

3E 

LDX 

$3E 

Drive  motor  status 

F9CD 

30 

07 

BMI 

$F9D6 

Motor  running? 

F9CF 

A5 

20 

LDA 

$20 

YES— Test  drive  status  flag 

F9D1 

A8 

TAY 

Save  it  down 
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F9D2 

C9 

20 

CMP 

#$20 

riULUI     Oil    duu  OCX 

F9D4 

DO 

03 

BNE 

$F9D9 

constant  turning  numoer? 

F9D62 

4C 

BE 

FA 

JMP 

$FABE 

^lrcuiLry  initialization 

F9D91 

C6 

48 

DEC 

$48 

"Ciay  counter  ror  motor  run ; 

F9DB 

DO 

ID 

BNE 

$F9FA 

motors  at  turn  numoer : 

F9DD 

98 

TYA 

X£*o— taet  arive  status  again 

F9DE 

10 

04 

BPL 

$F9E4 

Dr  i  via   to  jaHw  *> 
I-'  i.  j.  v       icauy  . 

F9E0 

29 

7F 

AND 

#$7F 

iw  vxcai    j.j.ckj    lul  motor 

F9E2 

85 

20 

STA 

$20 

pause f   note  tnis 

F9E41 

29 

10 

AND 

lest  oit  ror    motor  runs 

F9E6 

FO 

12 

BEQ 

$F9FA 

Active ; 

F9E8 

C6 

35 

DEC 

$35 

xcjO  NuiuDer  or   jooioop  call 

F9EA 

DO 

OE 

BNE 

SFQFA 

Need  the  step  motor  again? 

F9EC 

EA 

NOP 

inu  urive  motor 

F9ED 

20 

70 

87 

JSR 

$8770 

off 

F9F0 

A9 

FF 

LDA 

#$FF 

^•.usaj.      uiivc  active 

F9F2 

85 

3E 

STA 

$3E 

F9F4 

A9 

00 

LDA 

If  Vvv 

^iear  or lve  status 

F9F6 

85 

20 

STA 

$20 

f  1  an 
i-  lay 

F9F8 

FO 

DC 

BEQ 

$F9D6 

JUmD   to    S F 9 0 fi 

F9FA3 

98 

TYA 

Drive  status  flag 

F9FB 

29 

40 

AND 

#$40 

Isolate  flag  for  stepper  status 

F9FD 

DO 

03 

BNE 

$FA02 

Should  head  be  moved? 

F9FF 

4C 

BE 

FA 

JMP 

$FABE 

NO-Jump  to  $FABE 

FA021 

6C 

62 

00 

JMP 

($0062) 

YES— Goto  current  stepper  routine 

Possible  routine  calls: 


Initialize  head  control  $FA05 

Slow  head  movement  $FA3B 

End  head  movement  $FA4E 

Initialize  fast  head  movement  $FA7B 

Fast  head  movement  $FA97 

Slow  down  fast  head  movement  $FAA5 


[Jump  over  FA02] 

Initialization  routine  for  head 


FA05 

A5 

4A 

LDA 

$4A 

FA07 

10 

05 

BPL 

$FA0E 

FA09 

49 

FF 

EOR 

#$FF 

FA0B 

18 

CLC 

FA0C 

69 

01 

ADC 

#$01 

FA0E1 

C5 

64 

CMP 

$64 

FA10 

B0 

OA 

BCS 

$FA1C 

FA12 

A9 

3B 

LDA 

#$3B 

FA14 

85 

62 

STA 

$62 

movement 

Number  of  half-steps  up  to  track 
Should  the  head  move  in? 
YES-The  supply  the 
step  size  with 
positive  leading  character 
Test  for  'Head  at  track  0' 
Fast  head  movement? 
NO-Call  $FA02 

Set  slow  head  movement  routine. 
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FA16 

A9 

FA 

LDA 

w'hcr-Q    nrtintorc                        3  turned 

FA18 

85 

63 

STA 

FA1A 

DO 

12 

BNE 

5FA2E 

Jump  to   pr  rt^ci 

FA1C1 

E5 

5E 

SBC 

$5E 

oO    lO    ff   OI    S  teps    i.  ox.    niv  i-ui  auu 

FA1E 

E5 

5E 

SBC 

$5E 

Slow  mot  ox  \ijy               i_  ^  i_  a  j. 

FA20 

85 

61 

STA 

$61 

s  ave  it 

FA22 

A5 

5E 

LDA 

c^+-    r-srs i  ntor    f  nr   nnmbpf  of 

Oct     pUUlLcI      J.\J  L.     11  UlllwcJ.     \s  i. 

FA24 

85 

60 

STA 

iUJlJl-LJiy  SLcpa 

FA2  6 

A9 

7B 

LDA 

#$>  '  ts 

Pa  1 1    for  rnnt i ne  in  SFA02 

FA28 

85 

62 

STA 

$62 

for  fast  head  movement; 

FA2A 

A9 

FA 

LDA 

#$FA 

set  pointers  in 

FA2C 

BO 

bo 

SG2/S63  to  $FA7B 

FA2E4 

A5 

4A 

LDA 

$4A 

Step  pointer 

FA30 

10 

31 

BPL 

$FA63 

Inward  movement? 

FA32 

4C 

JO   r  r 

Uric 

«?r  r  o o 

YES— Control  stepper  motor 

FA35 

EA 

NOP 

unused 

FA37 

NOP 

ROM  area 

[FF7F] 

FA38 

4C 

69  FA 

JMP 

$FA69 

[Jump  by 

FA02] 

Execute  : 

slow  head  movement  for 

a  snort  axstance 

FA3B 

A5 

4A 

LDA 

$4A 

C4-Ay%       ✓mi  r\+-  ^-r-    *ri^v    it    nf    rial  f-qtflDS 
DLSp    COUnte  £     lvL     -fr    Ui    iiaxi  oo^^o 

FA3D 

DO 

EF 

BNE 

$FA2E 

laiUcL    apuii    J. co^iicu  * 

FA3F 

A9 

4E 

LDA 

#$4E 

Pal  l    -in  fiFAO?  for  routine 

FA41 

85 

62 

STA 

$62 

to  end  head  movement 

FA43 

A9 

FA 

LDA 

#$FA 

set,  in  which  the  pointers 

FA45 

85 

63 

STA 

$63 

$62/$63  are  turned  to  $FA7B 

FA47 

A9 

05 

LDA 

#$05 

Fifth  half-step  set  to  stop 

FA4  9 

85 

60 

STA 

$60 

head 

FA4B 

4C 

BE  FA 

JMP 

$FABE 

Prep  byte  ready  flag 

[Originates  at  FA02] 
End  of  head  movement 


FA4E 

C6 

60 

DEC 

$60 

Number  of  steps  to  brake  head 

FA50 

DO 

6C 

BNE 

$FABE 

Braking  procedure  executed? 

FA52 

A5 

20 

LDA 

$20 

Drive  status  flag 

FA54 

29 

BF 

AND 

#$BF 

Reset  bitflag  for 

FA56 

85 

20 

STA 

$20 

head  in  motion 

FA58 

A9 

05 

LDA 

#$05 

Call  in  $FA02  for  routine  to 

FA5A 

85 

62 

STA 

$62 

initialize  head  movement 

FA5C 

A9 

FA 

LDA 

#$FA 

Set,  in  which  the  pointers  in 

FA5E 

85 

63 

STA 

$63 

$62/$63  are  set  at  $FA05 

FA60 

4C 

BE  FA 

JMP 

$FABE 

Prep  Byte  Ready  Flag 
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[FA30] 

Control  stepmotor 


FA63 

&  A  7i 

Number  of  half-track  steps 

FA65 

AE 

00 

1C 

T.nY 

Control  port  for  stepper  motor 

FA  6  8 

E8 

TMV 
±  IN  A 

Move  head  outward  in  which  the 

FA691 

8A 

TXA 

stepper  cits  u  &   i  will  De 

FA  6  A 

29 

03 

AND 

#$03 

counted  outwards:  isolate  and 

FA6C 

85 

4B 

STA 

$4B 

save  control  bits 

FA6E 

AD 

00 

1C 

LDA 

$1C00 

Get  drive  control  reg.  and  clear 

FA71 

29 

FC 

AND 

#$FC 

stepper  motor  bits 

FA73 

05 

4B 

ORA 

$4B 

Conbine  previously  computed  bits 

FA75 

8D 

00 

1C 

STA 

$1C00 

and  control  stepper  motor 

FA78 

4C 

BE 

FA 

JMP 

$FABE 

Prepare  byte  ready  flag 

[Originates  at  FA02] 

Set  up  fast  head  movement  and  move  head 


FA7B 

38 

SEC 

Time  constant  until 

FA7C 

AD 

07 

1C 

LDA 

$1C07 

next  call 

FA7F 

E5 

5F 

SBC 

$5F 

to  decrement  driving  constant (4); 

FA81 

8D 

05 

1C 

STA 

$1C05 

this  conveys  stepper  impulse 

FA84 

C6 

60 

DEC 

$60 

to  traveler 

FA86 

DO 

oc 

BNE 

$FA94 

Four  driving  impulses  given? 

FA88 

A5 

5E 

LDA 

$5E 

YES-Set  counter  for  later 

FA8A 

85 

60 

STA 

$60 

braking 

FA8C 

A9 

97 

LDA 

#$97 

Call  $FA02  to  routine 

FA8E 

85 

62 

STA 

$62 

to  set  fast  head  move- 

FA90 

A9 

FA 

LDA 

#$FA 

ment,  in  which  the  pointers  of 

FA92 

85 

63 

STA 

$63 

$62/$63  are  set  to  $FA97 

FA944 

4C 

2E 

FA 

JMP 

$FA2E 

Move  head 

[Originates  at  FA02] 
Execute  fast  head  movement 


FA97 

C6 

61 

DEC 

$61 

Half-step  counter 

FA99 

DO 

F9 

BNE 

$FA94 

Reached  target? 

FA9B 

A9 

A5 

LDA 

#$A5 

YES— Set  call  in  $FA02  to 

FA9D 

85 

62 

STA 

$62 

for  head  braking,  in 

FA9F 

A9 

FA 

LDA 

#$FA 

which  pointers 

FAA1 

85 

63 

STA 

$63 

$62/$63  are  set  to  $FAA5 

FAA3 

DO 

EF 

BNE 

$FA94 

Jump  to  $FA94 

[Originates  at  FA02] 

Braking  head  after  fast  movement 

FA A 5     AD  07  1C       LDA  $1C07 


FAA8 
FAA9 
FAAB 
FAAE 


18 

65  5F 
8D  05  1C 
C6  60 


CLC 

ADC  $5F 
STA  $1C05 
DEC  $60 


Increase  time  constant  until 
next  call,  which  will  slow  down 
stepper  impulses,     to  prevent  a 
■track  overflow' 
Counter  for  braking  impulse 
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FABO 

DO 

E2 

BNE 

$FA94 

Already  stopped? 

FAB2 

A9 

4E 

LDA 

#$4E 

YES-Set  call  in  $FA02  to 

FAB  4 

85 

62 

STA 

$62 

end  head  transport  routine. 

FAB  6 

A9 

FA 

LDA 

#$FA 

in  which  pointers 

FAB  8 

85 

63 

STA 

$63 

$62/$63  are  turned  to  $FA4E 

FABA 

A9 

05 

LDA 

#$05 

Reset  number  of 

FABC 

85 

60 

STA 

$60 

braking  impulses 

[F9D6/F9FF/FA4B/FA50/FA60/FA78/FF74] 


FABE 

AD 

OC 

1C 

LDA 

$1C0C 

Initialize  read/write  circuitry 

FAC1 

29 

FD 

AND 

#$FD 

in  which  bit  1  (Byte  Ready  Flag) 

FAC3 

8D 

OC 

1C 

STA 

$1C0C 

will  be  reset 

FAC6 

60 

RTS 

Return  from  this  subroutine 

Format 

.  diskette 

in  1541  format 

Original 

follows 

at  ($0600) ,  where  you  can  put  your  own  programs 

FAC7 

A5 

51 

LDA 

$51 

Current  track  number 

FAC9 

10 

2A 

BPL 

$FAF5 

Format  procedure  already  started? 

FACB 

A6 

3D 

LDX 

$3D 

NO— Get  current  drive  number,  and 

FACD 

A9 

60 

LDA 

#$60 

set  head  movement  flag  for  drive 

FACF 

95 

20 

STA 

$20, X 

status  flag  (Bit  6/5) 

FAD1 

A9 

01 

LDA 

#$01 

Track  11  as  disk's  start  track 

FAD  3 

95 

22 

STA 

$22, X 

controller  — 

FAD  5 

85 

51 

STA 

$51 

save  it 

FAD  7 

A9 

A4 

LDA 

#$A4 

Move  head  4  6  tracks (til  strking) 

FAD  9 

85 

4A 

STA 

$4A 

outward 

FADB 

AD 

00 

1C 

LDA 

$1C00 

Clear  controlbits  f/stepper  motor 

FADE 

29 

FC 

AND 

#$FC 

and  give  to 

FAEO 

8D 

00 

1C 

STA 

$1C00 

stepper 

FAE3 

A9 

OA 

LDA 

#$0A 

Set  maximum  number  of  format 

FAE5 

8D 

20 

06 

STA 

$0620 

tries 

FAE8 

A9 

AO 

LDA 

#$A0 

Set  starting  value  f/named  track 

FAEA 

8D 

21 

06 

STA 

$0621 

capacity  in  $0621/$0622  to  $0FA0 

FAED 

A9 

OF 

LDA 

#$0F 

(which  is  equal  to 

FAEF 

8D 

22 

06 

STA 

$0622 

4000  bytes  capacity) 

FAF2 

4C 

9C 

F9 

JMP 

$F99C 

Move  head  on  track 

FAF51 

AO 

00 

LDY 

#$00 

Compare  current  track  number  with 

FAF7 

Dl 

32 

CMP 

($32), Y 

number  in  temporary  storage 

FAF9 

F0 

05 

BEQ 

$FB00 

Still  same  track  being  worked  on? 

FAFB 

91 

32 

STA 

($32), Y 

NO-Get  current  track  number 

FAFD 

4C 

9C 

F9 

JMP 

$F99C 

Move  head  to  new  track 

FB001 

AD 

00 

1C 

LDA 

$1C00 

Get  control  register,  and 

FB03 

29 

10 

AND 

#$10 

test  for  write  protect  (Bit4) 

FB05 

DO 

05 

BNE 

$FB0C 

Write  protect  on  hand? 

FB07 

A9 

08 

LDA 

#$08 

YES-Display 

FB09 

4C 

D3 

FD 

JMP 

$FDD3 

•26  Write  Protect  On'  error  msg. 

FBOC2 

20 

A3 

FD 

JSR 

$FDA3 

Write  $FF  to  entire  track 
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FBOF 

20 

C3 

FD 

JSR 

$FDC3 

FB12 

A9 

55 

LDA 

#$55 

FB14 

8D 

01 

1C 

STA 

$1C01 

FB17 

20 

C3 

FD 

JSR 

$FDC3 

FB1A 

20 

00 

FE 

JSR 

$FE00 

FB1D 

20 

56 

F5 

JSR 

$F556 

FB20 

A9 

40 

LDA 

#$40 

FB22 

0D 

OB 

18 

ORA 

$180B 

FB25 

8D 

OB 

18 

STA 

$180B 

FB28 

A9 

62 

LDA 

#$62 

FB2A 

8D 

06 

18 

STA 

$1806 

FB2D 

A9 

00 

LDA 

#$00 

FB2F 

8D 

07 

18 

STA 

$1807 

FB32 

8D 

05 

18 

STA 

$1805 

FB35 

AO 

00 

LDY 

#$00 

FB37 

A2 

00 

LDX 

#$00 

FB391 

2C 

00 

1C 

BIT 

$1C00 

FB3C 

30 

FB 

BMI 

$FB39 

FB3E1 

2C 

00 

1C 

BIT 

$1C00 

FB41 

10 

FB 

BPL 

$FB3E 

FB43^ 

AD 

04 

18 

LDA 

$1804 

FB4  6-1- 

2C 

00 

1C 

BIT 

$1C00 

FB4  9 

10 

11 

BPL 

$FB5C 

FB4B 

AD 

OD 

18 

LDA 

$180D 

FB4E 

OA 

ASL 

A 

FB4F 

10 

F5 

BPL 

$FB46 

FB51 

E8 

I  NX 

FB52 

DO 

EF 

BNE 

$FB43 

FB54 

C8 

I  NY 

FB55 

DO 

EC 

BNE 

$FB43 

FB57 

A9 

02 

LDA 

#$02 

FB59 

4C 

D3 

FD 

JMP 

$FDD3 

FBSC''' 

86 

71 

STX 

$71 

FB5E 

84 

72 

STY 

$72 

FB60 

A2 

00 

LDX 

#$00 

FB62 

AO 

00 

LDY 

#$00 

FB64^ 

AD 

04 

18 

LDA 

$1804 

FB671 

2C 

00 

1C 

BIT 

$1C00 

FB6A 

30 

11 

BMI 

$FB7D 

FB6C 

AD 

OD 

18 

LDA 

$180D 

FB6F 

OA 

ASL 

A 

FB70 

10 

F5 

BPL 

$FB67 

FB72 

E8 

INX 

FB73 

DO 

EF 

BNE 

$FB64 

FB75 

C8 

I  NY 

FB76 

DO 

EC 

BNE 

$FB64 

FB78 

A9 

02 

LDA 

#$02 

Fill  track  capacity  w/  $FF  and 
write  in  the  same  number  of 
$55  bytes 

Capacity  marked  in  $0621/$622 

Switch  head  to  Read  mode 

Wait  for  first  $FF  byte  (Sync) 

Run  of  timer  1  will 

produce  an  impulse 

on  PB7  (ATN-input) 

Timer  1  is  programmed 

for  a  runtime  of 

62 

impulses 
Start  timer  1 
Clear 
counter 

Test  sync-flag 

Wait  until  sync-signal  is  gone 
Check  sync-flag 

Wait  until  sync-range  comes  again 

Get  curr  countr  state  from  timerl 

Test  sync-flag 

Is  sync  range  now  past? 

NC—Get  interrupt  flags 

and  test  'Timer  1  running'  flag 

Time  up? 

YES— Increment  timer 
Run  into  a  transfer? 
YES-Correct  high-byte  of  counter 
Timer  overrun? 
YES-Display 

'20  Read  Error'  message 
Save  number  of 
$55  bytes 

Clear  register  for  next 
count 

Get  counter  state  of  timer  1 
Check  sync-flag 
Is  head  over  sync  range? 
NO-Get  interrupt  flag  and 
test  'Timer  1  running'  flag 
Time  up? 

YES— Increment  counter 

Reached  a  transfer? 

YES— Correct  high-byte  of  counter 

Counter  overflow? 

YES-Display 
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FB7A 

4C 

D3 

FD 

JMP 

$FDD3 

'20  Read  Error'  message 

FB7D1 

38 

SEC 

Calculate  difference 

FB7E 

8A 

TXA 

between  $55  range  and 

FB7F 

E5 

71 

SBC 

$71 

the  $FF  range; 

FB81 

AA 

TAX 

save  in 

FB82 

85 

70 

STA 

$70 

pointers  $70/$71  for 

FB84 

98 

TYA 

determining 

FB85 

E5 

72 

SBC 

$72 

real  track 

FB87 

A8 

TAY 

capacity 

FB88 

85 

71 

STA 

$71 

(Take  $71/72  frm  X/Y  &  in  $70/71) 

FB8A 

10 

OB 

BPL 

$FB97 

Is  value  negative? 

FB8C 

49 

FF 

EOR 

#$FF 

YES— Draw  up  2nd  complement  of 

FB8E 

A8 

TAY 

values 

FB8F 

8A 

TXA 

(give  absolute  value) 

FB90 

49 

FF 

EOR 

#$FF 

Complement  low-byte 

FB92 

AA 

TAX 

and  save  it 

FB93 

E8 

INX 

Design  2nd  complement 

FB94 

DO 

01 

BNE 

$FB97 

is  one  a  transfer? 

FB96 

C8 

INY 

YES— Correct  and  get 

FB972 

98 

TYA 

high-byte 

FB98 

DO 

04 

BNE 

$FB9E 

Is  value  in  X/Y  less  than  256? 

FB9A 

EO 

04 

CPX 

#$04 

YES-Compare  low-byte  (X)  with  4 

FB9C 

90 

18 

BCC 

$FBB6 

Track  capacity  same  as  4  bytes? 

FB9E1 

06 

70 

ASL 

$70 

NO-Double  track  capacity 

FBAO 

26 

71 

ROL 

$71 

value 

FBA2 

18 

CLC 

and  calculate  for  track  capacity 

FBA3 

A5 

70 

LDA 

$70 

Get  low-byte  and  add  to 

FBA5 

6D 

21 

06 

ADC 

$0621 

awaited  value 

FBA8 

8D 

21 

06 

STA 

$0621 

Save  newly-awaited  value 

FBAB 

A5 

71 

LDA 

$71 

Get  high-byte  and  add 

FBAD 

6D 

22 

06 

ADC 

$0622 

to 

FBBO 

8D 

22 

06 

STA 

$0622 

awaited  value 

FBB3 

4C 

OC 

FB 

JMP 

$FB0C 

Determine  track  capacity  again 

FBB61 

A2 

00 

LDX 

#$00 

Clear 

FBB8 

AO 

00 

LDY 

#$00 

counter 

FBBA 

B8 

CLV 

Prepare  'byte  ready'  flag 

FBBB3 

AD 

00 

1C 

LDA 

$1C00 

Test  flag  for  sync-signal 

FBBE 

10 

OE 

BPL 

$FBCE 

Is  head  over  sync  range? 

FBCO 

50 

F9 

BVC 

$FBBB 

YES— Wait  for  next  byte 

FBC2 

B8 

CLV 

Prep  'Byte  Ready' 

FBC3 

E8 

INX 

Increment  counter 

FBC4 

DO 

F5 

BNE 

$FBBB 

Is  there  a  transfer  occurring? 

FBC6 

C8 

INY 

YES-Correct  high-byte  of  counter 

FBC7 

DO 

F2 

BNE 

$FBBB 

Is  counter  overflowing? 

FBC9 

A9 

03 

LDA 

#$03 

YES-Set  error  #:'Sync  not  found' 

FBCB 

4C 

D3 

FD 

JMP 

$FDD3 

and  eventually  re-test 

FBCE1 

8A 

TXA 

Double  counter, put  in  $0625/$062 
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r  D^r 

UA 

ASL 

A 

Double  and  save 

r  dUU 

on 

A c 

STA 

$0625 

low-byte 

r  duo 

y  0 

TYA 

Get  high-byte  and 

r  dl>  t 

A 

save  as  two 

£  OJJO 

on 
olJ 

£  H 

Uo 

STA 

$0624 

values 

£  OUo 

A  Q 

Ay 

DC 
D£ 

LDA 

JL  cb  r*n 

#$BF 

Flag  for  'Run  from  Timer  1' 

r  DUn 

AD 
UD 

1  D 
1  O 

AND 

9±0UB 

Get  interrupt  flag  and 

UD 

1  Q 

Xo 

0 1A 

6  10  AD 

reset  flag 

T71T3TT1  n 

A  Q 

Ay 

DO 

LDA 

#$66 

#  of  bytes  f/every  sector  needed 

£  dejZ 

oD 

2  6 

06 

STA 

$0626 

in  addition  to  the  256  data 

r  cciO 

AO 

HO 

LDX 

$43 

Number  of  sectors 

POP*? 

£  dHj  / 

AU 

a  a 
UU 

LDY 

JL  *  A  A 

#$00 

Index  value  f/#  of  256byte  blocks 

r  d£j  y 

QQ 

yy 

TYA 

Start  value  for  surplus  calc.s(O) 

TT'DTT  A  1 

£  d£jA 

lo 

CLC 

and  with  it,  calculate  sector 

FBEB 

bu 

2  6 

06 

ADC 

$0626 

excess 

FBEE 

m 
<j  ± 

?r  or  1 

Are  256  more  bytes  needed? 

£  or  U 

r*Q 

(-0 

INY 

Index  raised  by  256  bytes 

TTT3T71 1  1 

£  Jtsr  1 

INY 

Index  raised  by  256  bytes 

POP') 

r*  a 
LA 

DEX 

Compute  next  sector 

£  or  J 

UU 

£  O 

BNE 

5FBEA 

All  sectors  considered? 

FBF5 

4  y 

FF 

EOR 

#$FF 

YES-Compute  2nd  complement 

T71T3  T7I  *7 

r  or  / 

Jo 

SEC 

(negative  value)   of  remaining 

r  or  0 

oy 

Art 
UU 

ALA* 

w$>uu 

necessary  bytes 

r  or  A 

1  0 

CLC 

and  subtract  from  total 

r  or  0 

ou 

zo 

UO 

AUO 

capacity  (add  negative  value) 

PO  *c 

r  or  Cj 

dU 

Uo 

BCS 

$FC03 

Need  to  borrow? 

FCOO 

CE 

24 

06 

DEC 

$0624 

YES— Correct  high-byte 

ppri  0 1 

A  A 

AA 

1  AA 

Save  low— byte  of  capacity 

r  CU4 

y© 

TYA 

Get  #  of  necessary  256byte  blocks 

£  LUj 

^y 

FF 

EOR 

#$FF 

and  draw  up  2nd  complement 

£  L.U  / 

JO 

cup 

(negative  value) 

©y 

r»  a 
UU 

ADC 

JL  *  A  A 
#500 

from  that 

£  CUA 

lo 

CLC 

Subtract  #  of  neces  256byteblocks 

r  LUo 

bu 

4 

Uo 

ADC 

6  A  C  O  A 

from  total  capacity 

r  CUb 

1  a 
1U 

A  c 

Uo 

BPL 

$FC15 

Sufficient  track  capacity? 

FC10 

A  ft 

Ay 

04 

LDA 

JL  *  A  A 

#504 

NO— Display  'Block  Not  Found' 

FC12 

4C 

D3 

FD 

JMP 

$FDD3 

error  message 

FC15^" 

A8 

TAY 

Get  number  of  remaining 

£  0*1  D 

O  A 

oA 

TXA 

bytes 

FC1  / 

A2 

00 

LDX 

JL  *  A  A 

#$00 

Counter  for  number  of  blank  bytes 

FC1 9^- 

38 

SEC 

Number  of  bytes  remaining 

FC1A 

E5 

43 

SBC 

$43 

divided  by  number  of  sectors. 

FC1C 

BO 

03 

BCS 

$FC21 

in  which  sector  #  will  be  divided 

FC1E 

88 

DEY 

by  the  empty  bytes 

FC1F 

30 

03 

BMI 

$FC24 

X  counts  as  often  as  is  possible 

FC211 

E8 

INX 

Increment  number  of  blank  bytes 

FC22 

DO 

F5 

BNE 

$FC19 

Jump  to  $FC19 

ROM-293 


Abacus  Software 


1571  Internals 


FC24^ 

8E 

26 

06 

STX 

$0626 

save  number  of  blank  bytes 

FC27 

EO 

04 

CPX 

#$04 

and  compare  with  4  bytes 

FC29 

BO 

05 

BCS 

$FC30 

Is  skip  smaller? 

FC2B 

A9 

05 

LDA 

JL  *  r\  c 

#$05 

YES— Display 

FC2D 

4C 

D3 

FD 

JMP 

$FDD3 

'23  Read  Error'  message 

FC30^ 

18 

CLC 

Add  number  of  sectors 

FC31 

65 

43 

ADC 

$43 

to  track  and 

FC33 

8D 

27 

06 

STA 

$0627 

save  result 

FC36 

A9 

00 

LDA 

#$00 

Reset  counter  for 

FC38 

8D 

28 

06 

STA 

$0628 

sectors  written  up 

FC3B 

AO 

00 

LDY 

#500 

Clear  pointrs  for  blockheader  set 

FC3D 

A6 

3D 

LDX 

$3D 

up  in  buffer  1 

FC3F^" 

A5 

39 

LDA 

$39 

Write  blockheader  identifier   ( o ; 

FC41 

99 

00 

03 

STA 

$0300, Y 

into  blockheader 

FC4  4 

C8 

INY 

Set  pointer  to  next  position 

FC45 

C8 

INY 

Jump  over  to  checksum  byte 

FC4  6 

AD 

28 

06 

LDA 

$0628 

Write  number  of  current  sector 

FC49 

99 

00 

03 

STA 

$0300, Y 

in  blockheader 

FC4C 

C8 

INY 

Set  pointer  to  next  position 

FC4D 

A5 

51 

LDA 

$51 

Take  up  number  of  current  track 

FC4F 

99 

00 

03 

STA 

$0300, Y 

in  blockheader 

FC52 

C8 

INY 

Set  pointer  to  next  position 

FC53 

B5 

13 

LDA 

$13, X 

Write  second  ID  character 

FC55 

99 

00 

03 

STA 

$0300, Y 

in  blockheader 

FC58 

C8 

INY 

set  pointer  to  next.  posiLiun 

FC59 

B5 

12 

LDA 

512, X 

iransrer  rirst  iu  cnatacter 

FC5B 

99 

00 

03 

STA 

$0 oUU, I 

to  blockheader 

FC5E 

C8 

INY 

o6t  pointer  to  next  position 

FC5F 

A9 

OF 

LDA 

#$0F 

Write  $ot  (io) 

FC61 

99 

00 

03 

STA 

A  f\  0  A  A  V 

90300, I 

twice  to  1111 

FC64 

C8 

INY 

in  the 

FC65 

99 

00 

03 

STA 

£  A  o  A  A  v 

$0300, 1 

blockheader  in 

FC68 

C8 

INY 

the  buffer 

FC69 

A9 

00 

LDA 

Ji.  *  n  a 

#500 

Checksum  for: 

FC6B 

59 

FA 

02 

EOR 

it  A  O  T  71  V 

$QZF  ft,  1 

Track  number 

FC6E 

59 

FB 

02 

EOR 

$02FB, Y 

Sector  number 

FC71 

59 

FC 

02 

EOR 

$02FC, Y 

Second  ID-char. 

FC74 

59 

FD 

02 

EOR 

$02FD, Y 

First  iD-cnar. 

FC77 

99 

F9 

02 

STA 

$02F9, Y 

Compute  ano.  set  into  Diocjtnedczei 

FC7A 

EE 

28 

06 

INC 

$0628 

oet   count r.    iul   cuilciii.   sco      j-  ir 

FC7D 

AD 

28 

06 

LDA 

$0628 

to  next  sector/   compare  wj-lu 

FC80 

C5 

43 

CMP 

$43 

value  tor  max.   secior  numuei 

FC82 

90 

BB 

BCC 

$FC3F 

All  sectors  covered? 

FC84 

98 

TYA 

YES— Keep  pointer  at 

FC85 

48 

PHA 

current  buffer  position 

FC86 

E8 

INX 

(1) 

FC87 

8A 

TXA 

Set  up  data  block; 
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FC881 

9D 

00 

05 

STA 

$0500 

FC8B 

E8 

INX 

FC8C 

DO 

FA 

BNE 

$FC88 

FC8E 

A9 

03 

LDA 

#$03 

FC90 

85 

31 

STA 

$31 

FC92 

20 

30 

FE 

JSR 

$FE30 

FC95 

68 

PLA 

FC96 

A8 

TAY 

FC97 

88 

DEY 

FC98 

20 

E5 

FD 

JSR 

$FDE5 

FC9B 

20 

F5 

FD 

JSR 

$FDF5 

FC9E 

A9 

05 

LDA 

#$05 

FCAO 

85 

31 

STA 

$31 

FCA2 

20 

E9 

F5 

JSR 

$F5E9 

FCA5 

85 

3A 

STA 

$3A 

FCA7 

20 

8F 

F7 

JSR 

$F78F 

FCAA 

A9 

00 

LDA 

#$00 

FCAC 

85 

32 

STA 

$32 

FCAE 

20 

OE 

FE 

JSR 

$FEOE 

FCB11 

A9 

FF 

LDA 

#$FF 

FCB3 

8D 

01 

1C 

STA 

$1C01 

FCB6 

A2 

05 

LDX 

#$05 

FCB82 

50 

FE 

BVC 

$FCB8 

FCBA 

B8 

CLV 

FCBB 

CA 

DEX 

FCBC 

DO 

FA 

BNE 

$FCB8 

FCBE 

A2 

OA 

LDX 

#$0A 

FCCO 

A4 

32 

LDY 

$32 

FCC22 

50 

FE 

BVC 

$FCC2 

FCC  4 

B8 

CLV 

FCC5 

B9 

00 

03 

LDA 

$0300 

FCC  8 

8D 

01 

1C 

STA 

$1C01 

FCCB 

C8 

INY 

FCCC 

CA 

DEX 

FCCD 

DO 

F3 

BNE 

$FCC2 

FCCF 

A2 

09 

LDX 

#$09 

FCD12 

50 

FE 

BVC 

$FCD1 

FCD3 

B8 

CLV 

FCD4 

A9 

55 

LDA 

#$55 

FCD6 

8D 

01 

1C 

STA 

$1C01 

FCD9 

CA 

DEX 

FCDA 

DO 

F5 

BNE 

$FCD1 

FCDC 

A9 

FF 

LDA 

#$FF 

FCDE 

A2 

05 

LDX 

#$05 

FCEO2 

50 

FE 

BVC 

$FCE0 

FCE2 

B8 

CLV 

FCE3 

8D 

01 

1C 

STA 

$1C01 

Write  to  buffer  1 

Set  pointer  to  next  byte 

Buffer  full? 

YES-Set  address  $0300  as  current 
buffer  address 

Convrt  buffer  contents  to  GCRcode 

Re-rig  previous  buffer  position 

and  set  pointer  to 

start  of  blockheader 

Move  status  buffer  contents  to 

buffer  at  $0300 

Set  $0500  as  curent 

buffer  address 

Compute  data  block  checksum  and 
save  it 

Change  data  block  into  GCR  code 

Initialize  pointer  to  current 

blockheader 

Clear  track  with  $55 

Give  identifier  for  sync-marking 

to  write  head 

Number  of  sync-bytes 

Wait  for  'Byte  Ready' 

Prep  'Byte  Ready'  flag 

Decrement  counter 

All  sync-bytes  already  on  Disk? 

Blockheader  length 

Pointer  in  position  in  buffer 

Write  circuitry  ready? 

YES-Set  up  flag  again 

Get  GCR-bytes  from  buffer  — 

transfer  to  write  head 

Buffer  pointer  to  next  character 

#  of  chars,  yet  to  be  written 

Header  already  written? 

YES— Write  in  spaces  between 

block-header  and  datablock 

with  fill  values 

($55) 

Send  byte  over  write  head 

Counter  for  number  of  fillbytes 

Blanks  aleady  written? 

Write  sync-mark  for 

data  blockheader  to  diskette 

Write  circuitry  ready? 

YES— Flag  set  again 

Sync-byte  to  write  circuitry 
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FCE6 

CA 

DEX 

Counter  for  number  of  sync-bytes 

FCE7 

DO 

F7 

BNE 

$FCE0 

Sync-marking  already  written? 

FCE9 

A2 

BB 

LDX 

#$BB 

Pointer  to  start  of  temp,  buffer 

FCEB2 

50 

FE 

BVC 

$FCEB 

Write  circuitry  ready? 

FCED 

B8 

CLV 

YES— Prep  'Byte  Ready'  flag 

FCEE 

BD 

00 

01 

LDA 

$0100, X 

Get  byte  from  buffer  and 

FCF1 

8D 

01 

1C 

STA 

$1C01 

write  to  diskette 

FCF4 

E8 

INX 

Buffer  pointer  to  next  byte 

FCF5 

DO 

F4 

BNE 

$FCEB 

Buffer  written  up? 

FCF7 

AO 

00 

LDY 

#$00 

YES— Buffer  pointer  to  data  buffer 

o 

FCF9' 

50 

FE 

BVC 

$FCF9 

Write  circuitry  ready? 

FCFB 

B8 

CLV 

YES-Prepare  'Byte  Ready'  flag 

FCFC 

Bl 

30 

LDA 

($30) , Y 

Write  byte  to  diskette 

FCFE 

8D 

01 

1C 

STA 

$1C01 

from  buffer 

FD01 

C8 

INY 

Pointer  to  next  char  in  buffer 

FD02 

DO 

F5 

BNE 

$FCF9 

Is  entire  buffer  written  already? 

FD04 

A9 

55 

LDA 

#$55 

Fill  space  between  2  data  blocks 

FD06 

AE 

26 

06 

LDX 

$0626 

Number  of  bytes  per  space 

FD092 

50 

FE 

BVC 

$FD09 

Write  circuitry  ready? 

FDOB 

B8 

CLV 

YES— Reset  flag 

FDOC 

8D 

01 

1C 

STA 

$1C01 

$55  to  read  head 

FDOF 

CA 

DEX 

Counter  foor  number  of  fillbytes 

FD10 

DO 

F7 

BNE 

$FD09 

Blanks  already  written  in? 

FD12 

A5 

32 

LDA 

$32 

Buffer  pointer  (to  header 

FD14 

18 

CLC 

position  of  next  blockheader)  — 

FD15 

69 

OA 

ADC 

JL  £  r\  tv 

#$0A 

set  and  save 

FD17 

85 

32 

STA 

$32 

this  pointer 

FD19 

CE 

28 

06 

DEC 

$0628 

Draw  up  number  of  next  sector 

FD1C 

DO 

93 

BNE 

$FCB1 

All  sectors  already  written? 

fdie! 

50 

FE 

BVC 

$FD1E 

YES— Wait  for  next  byte 

FD20 

B8 

CLV 

Prep  'Byte  Ready'  flag 

FD21-'- 

50 

FE 

BVC 

$FD21 

Wait  for    next  byte 

FD23 

B8 

CLV 

Reset  'Byte  Ready' 

FD24 

20 

00 

FE 

JSR 

$FE00 

—switch  to  read  mode 

FD27 

A9 

C8 

LDA 

#$C8 

Set  number  of  read  attempts 

FD29 

8D 

23 

06 

STA 

$0623 

(200) 

FD2C 

A9 

00 

LDA 

#$00 

Set  buffer  pointer  $30/$31 

FD2E 

85 

30 

STA 

$30 

buffer  1 

FD30 

A9 

03 

LDA 

#$03 

($0300-$03FF) 

FD32 

85 

31 

STA 

$31 

($0300-$03FF) 

FD34 

A5 

43 

LDA 

$43 

Save  number  of  sectors 

FD36 

8D 

28 

06 

STA 

$0628 

per  track 

FD391 

20 

56 

F5 

JSR 

$F556 

Wait  for  sync-marking 

FD3C 

A2 

OA 

LDX 

#$0A 

Number  of  bytes  in  blockheader 

FD3E 

AO 

00 

LDY 

#$00 

Clear  buffer  pointer 

FD402 

50 

FE 

BVC 

$FD40 

Read  circuitry  ready? 

FD42 

B8 

CLV 

YES-Get  flag  ready 
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FD4  3 

AD 

01 

1  c 

T.nA 

LiLfn 

ncau   wy  L.c    J.  L  Urn  UlSKctLe    a.  JIG 

r  U  *i  D 

L/X 

-in 

pup 

1  V 
W-3U)  ,  X 

compare  witn  ourrer 

FD4  8 

DO 

V  JZj 

DviEj 

FD4A 

C8 

I  NY 

FD4B 

CA 

DEX 

1 1C  CI  VAC  x 

FD4C 

DO 

F2 

BNE 

$FD40 

bad  L     JjyLc     UL     HcaUcL      LUIIl^Jal  cU  . 

FD4E 

18 

CLC 

FD4F 

A5 

30 

LDA 

$30 

npvt"    Vi  1  rir*V  r>o;» Hor 

FD51 

69 

OA 

ADC 

#$0A 

in 

FD53 

85 

30 

STA 

$30 

bu f  f pr  mpmoyv 

FD55 

4C 

62 

FD 

JMP 

$FD62 

again 

FD58^ 

CE 

23 

06 

DEC 

$0623 

Nil  mbe  r   of   res  d  QPflTphp? 

FD5B 

DO 

CF 

BNE 

$FD2C 

Last  search'' 

FD5D 

A9 

06 

LDA 

#$06 

YES— Disol av 

FD5F 

4C 

D3 

FD 

JMP 

$FDD3 

1  9 4    PpaH   Error1    mpQ cariP 

FD62^" 

20 

56 

F5 

JSR 

$F556 

Wfl  "It    f  /  Qun  r*m  arV  i  nrj   nf  daf  a   bl  ocle  q 

FD65 

AO 

BB 

LDY 

#$BB 

Set  buffer  oointer  to  tpnro  buffer 

FD67^ 

50 

FE 

BVC 

$FD67 

Read  eircuitrv  readv*^ 

FD69 

B8 

CLV 

YES — Reset  Bvte  Readv  Flacr 

x  xj  *v    i\v  vv  v     xj  y            iacuvaj     x  -L-  cx  ^ 

FD6A 

AD 

01 

1C 

LDA 

$1C01 

om,o.p t* o   bvfo    f ytmt\   Hi  cVpffp 
V—  uiiL£va.J.  Kz          u»C    J.  J.  *>J  ill  uia^cLLc 

FD6D 

D9 

00 

01 

CMP 

sm  on  y 

w  i  i"  ri    bn f  f  o r  rftnt'pn'I'C 

FD7  0 

DO 

E6 

BNE 

$FD58 

P n  q  "i  t  "i         rrimria  r  "i  Qrtn 

r  u  i 

PR 

TMV 

ini 

YT?  Q— Rii  f  f  or         i  ttt-  o  y   "t"f>  novf 

X  Cj  O    OUiLcL     pUlllLCL      UU    JlcAL  Uy 

r  l>  i  j 

no 

r  ^ 

TJ*  r>  +■  ^  t*o    Kn  f  f  or    al  y o  js    \/    r'rtmT^si  roH  *? 
xjitL.Xx.v   jjul  LeL    axLcauy  ouiupaicu. 

FD75 

A2 

FC 

LDX 

#$FC 

YES— Counter   f/  data  buffer  bvtp<? 

X  XJ               W  VX  J 1  ^  W  X       X  /       xX  C-l  l»           XV  U  1  1  —  X      X-V  V  w  ^  O 

FD77^ 

50 

FE 

BVC 

$FD77 

Read  ci  reiH  trv  TPadv' 

Acau    vxl  vuxi>l  jf     icauy  • 

FD79 

B8 

CLV 

YES — Set   Rvte  Readv  flao  baolc 

FD7A 

AD 

01 

1C 

LDA 

$1C01 

R^art  bvte   from  Hi eVette  and 

r  u  i  u 

no 

CMP 

soson  Y 

^»  rtimn  aro   witri    Hat  a  buffer 

UUIU^aL  IS     WllfJl    UoLo    xv  U  i-  x.  CL 

FD80 

DO 

D6 

BNE 

$FD58 

Po q  1 1  *(  vp  rfjinrja r *!  enn' 

FD82 

C8 

INY 

YES — Set  oointei*  to  next 

FD83 

CA 

DEX 

byte 

FD84 

DO 

Fl 

BNE 

$FD77 

Last  character  of  buffer 

FD86 

CE 

28 

06 

DEC 

$0628 

Number  of  sect ors~ 1  of  track 

FD89 

DO 

AE 

BNE 

$FD39 

All  sectors  tested? 

FD8B 

E6 

51 

INC 

$51 

YES — Increment  track  %  counter 

FD8D 

A5 

51 

LDA 

$51 

Set  and  save  track ;  compare 

FD8F 

C9 

24 

CMP 

#$24 

with  max.  number  of  tracks 

FD91 

BO 

03 

BCS 

$FD96 

Reached  track  35? 

FD93 

4C 

9C 

F9 

JMP 

$F99C 

NO— Continue  formatting 

FD96^ 

A9 

FF 

LDA 

#$FF 

Set  flag  to 

FD98 

85 

51 

STA 

$51 

end  formatting 

FD9A 

A9 

00 

LDA 

#$00 

Clear  'Buffer  in  GCR-Code' 

FD9C 

85 

50 

STA 

$50 

flag 

FD9E 

A9 

01 

LDA 

#$01 

Display  'ok '  message; 

FDAO 

4C 

69 

F9 

JMP 

$F969 

End  of  formatting 
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[FBOC] 

Write 

track 

with 

$FF 

FDA3 

AD 

OC 

1C 

LDA 

$1C0C 

^— '  ww  *l  i«  Vrfii     4          sjl        ^  x.      u  J-  i*  X.  y 

FDA  6 

29 

IF 

AND 

#$1F 

in  PCR~Register  to 

FDA8 

09 

CO 

ORA 

#$C0 

write 

FDAA 

8D 

OC 

1C 

STA 

$1C0C 

mode    (CB2  =  0) 

FDAD 

A9 

FF 

LDA 

#$FF 

Switch  read/write  head  port 

FDAF 

8D 

03 

1C 

STA 

$1C03 

for  output 

FDB2 

8D 

01 

1C 

STA 

$1C01 

Write  $FF 

FDB5 

A2 

28 

LDX 

#$28 

Set  counter  in  CPU— Register 

FDB7 

AO 

00 

LDY 

#$00 

to  10240 

FDB93 

50 

FE 

BVC 

$FDB9 

Wait  for  Byte  Ready 

FDBB 

B8 

CLV 

oy  Lc    I\t:cH-iy    r  J.d(j  picpdlcU 

FDBC 

88 

DEY 

Low-byte  of  counter 

FDBD 

DO 

FA 

BNE 

$FDB9 

Executed  once  until  null? 

FDBF 

CA 

DEX 

YES— Then  decremnt  hi-byte/counter 

FDCO 

DO 

F7 

BNE 

$FDB9 

Already  written  10240  times? 

FDC2 

60 

RTS 

YES— Return  from  this  subroutine 

[FB0F/FB17] 

($0621/$0622)  times-wait  on  'Byte  Ready'  signal 


FDC3 

AE 

21 

06 

LDX 

$0621 

Set  loop 

FDC6 

AC 

22 

06 

LDY 

$0622 

counter 

FDC93 

50 

FE 

BVC 

$FDC9 

Wait  for  Byte  Ready 

FDCB 

B8 

CLV 

Reset  Byte  Ready  Flag 

FDCC 

CA 

DEX 

Low-byte  of  counter 

FDCD 

DO 

FA 

BNE 

$FDC9 

at  null? 

FDCF 

88 

DEY 

YES-Then  decrement  Y 

FDD0 

10 

F7 

BPL 

$FDC9 

Y  times  awaited  256  Byte  Readys? 

FDD  2 

60 

RTS 

YES— Return  from  this  subroutine 

[FB09/FB59/FB7A/FBCB/FC12/FC2D/FD5F] 


Stop  control  by 
FDD3     CE  20  06 
FDD 6     F0  03 
FDD 8     4C  9C  F9 
FDDB1  AO  FF 
FDDD     84  51 
FDDF  C8 
FDE0     84  50 
FDE2     4C  69  F9 


format  errors 
DEC  $0620 
BEQ  $FDDB 
JMP  $F99C 
LDY  #$FF 
STY  $51 
INY 

STY  $50 
JMP  $F969 


Number  of  format  attempts  -1 
Run  across  a  format  error? 
NO-Then  continue  formatting 
Set  'Format  to  end' 
flag 

Clear  'Buffer  In  GCR-Code' 
flag 

End  formatting 
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[FC98/FDEC] 

Copy  bytes  in  buffer  0  at  70  bytes  over 


(Y-register 

must  contain  the 

number  of  bytes  to  be  copied) 

FDE5 

B9 

00 

03 

LDA 

$0300, Y 

Get  byte  from  start  of  buffer  and 

FDE8 

99 

45 

03 

STA 

$0345, Y 

transfer  up 

FDEB 

88 

DEY 

Choose  next  byte 

FDEC 

DO 

F7 

BNE 

$FDE5 

All  bytes? 

FDEE 

AD 

00 

03 

LDA 

$0300 

YES— Then  copy  last 

FDF1 

8D 

45 

03 

STA 

$0345 

byte  and 

FDF4 

60 

RTS 

return  from  this  subroutine 

[FC9B] 

Copy  the 

range 

$01BB- 

-$01FF  in 

tne  Durrer  to  wnicn  5JU/$ji  points 

FDF5 

AO 

44 

LDY 

#$44 

Startposition  $01FF 

FDF71 

B9 

BB 

01 

LDA 

$01BB,Y 

Get  byte  from  interim  buffer  and 

FDFA 

91 

30 

STA 

($30) ,Y 

transfer  to  data  buffer 

FDFC 

88 

DEY 

Choose  next  byte 

FDFD 

10 

F8 

BPL 

$FDF7 

All  bytes  already  transferred? 

FDFF 

60 

RTS 

YES— Return  from  this  subroutine 

[8D59/9AE6/9CCC/FB1A/FD24/BF0C] 

Switch  head  circuitry  from  write  to  read 


FE00 

AD 

OC 

1C 

LDA 

$1C0C 

Get  control  register  and 

FE03 

09 

E0 

ORA 

#$E0 

switch  head  to  read 

FE05 

8D 

OC 

1C 

STA 

$1C0C 

(CB2  output  =1) 

FE08 

A9 

00 

LDA 

#$00 

Switch  data  port  to  head 

FE0A 

8D 

03 

1C 

STA 

$1C03 

for  input 

FE0D 

60 

RTS 

Return  from  this  subroutine 

[FCAE] 

Write 

$55 

to  entire  track 

FE0E 

AD 

0C 

1C 

LDA 

$1C0C 

Get  control  register 

FE11 

29 

IF 

AND 

#$1F 

and  invert  head  for  writing 

FE13 

09 

CO 

ORA 

#$C0 

Bit  5-7  spread  and  set  bit  6/7 

FE15 

8D 

OC 

1C 

STA 

$1C0C 

(CB2  output  =0) 

FE18 

A9 

FF 

LDA 

#$FF 

Switch  head  data  port 

FE1A 

8D 

03 

1C 

STA 

$1C03 

to  output 

FE1D 

A9 

55 

LDA 

#$55 

Send  $55  over 

FE1F 

8D 

01 

1C 

STA 

$1C01 

the  write  head 

FE22 

A2 

28 

LDX 

#$28 

Set  register  counter  to 

FE24 

AO 

00 

LDY 

#$00 

write  10240  times 

FE261 

50 

FE 

BVC 

$FE26 

Electronics  ready  for  next  byte? 

FE28 

B8 

CLV 

YES-Reset  flag  again 

FE29 

88 

DEY 

Write  256  bytes 

FE2A 

DO 

FA 

BNE 

$FE26 

256  Bytes  already? 

FE2C 

CA 

DEX 

YES-Write  256  bytes  40  times 

FE2D 

DO 

F7 

BNE 

$FE26 

40  writings  completed? 

FE2F 

60 

RTS 

YES— Return  from  this  subroutine 
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[9BEC/FC92] 

Convert  blockheader  from  binary  into  GCR 


FE30 

A9 

00 

LDA 

#$00 

Reset  buffer  pointer 

FE32 

85 

30 

STA 

$30 

to  start 

FE34 

85 

2E 

STA 

$2E 

Pointer  low-byte  to  binary  data 

FE36 

85 

36 

STA 

$36 

Position  in  current  buffer 

FE38 

A9 

BB 

LDA 

#$BB 

Turn  position  pointer  to 

FE3A 

85 

34 

STA 

$34 

status  buffer 

FE3C 

A5 

31 

LDA 

$31 

Get  pointer  to  current 

FE3E 

85 

2F 

STA 

$2F 

data  buffer 

FE40 

A9 

01 

LDA 

#$01 

Set  pointer  to 

FE42 

85 

31 

STA 

$31 

status  buffer 

FE441 

A4 

36 

LDY 

$36 

Determine  current  position 

FE4  6 

Bl 

2E 

LDA 

($2E) , Y 

Get  byte  from  buffer  and  save 

FE48 

85 

52 

STA 

$52 

as  first  byte  to  be  converted 

FE4A 

C8 

INY 

Turn  pointer  to  next  byte 

FE4B 

Bl 

2E 

LDA 

($2E) ,Y 

Get  byte  from  buffer  and  save 

FE4D 

85 

53 

STA 

$53 

as  second  byte  to  be  converted 

FE4F 

C8 

INY 

Turn  pointer  to  next  byte 

FE50 

Bl 

2E 

LDA 

($2E) ,Y 

Get  byte  from  buffer  and  save 

FE52 

85 

54 

STA 

$54 

as  third  byte  to  be  converted 

FE54 

C8 

INY 

Turn  pointer  to  next  byte 

FE55 

Bl 

2E 

LDA 

($2E) ,Y 

Get  byte  from  buffer  and  save 

FE57 

85 

55 

STA 

$55 

as  third  byte  to  be  converted 

FE59 

C8 

INY 

Turn  pointer  to  next  byte 

FE5A 

FO 

08 

BEQ 

$FE64 

Reached  end  of  buffer? 

FE5C 

84 

36 

STY 

$36 

NO— Save  position 

FE5E 

20 

DO 

F6 

JSR 

$F6D0 

Cmpute  4binary  bytes  to  5GCRbytes 

FE61 

4C 

44 

FE 

JMP 

$FE44 

Continue  conversion 

FE641 

4C 

DO 

F6 

JMP 

$F6D0 

Cmpute  4binary  bytes  to  5GCRbytes 

[Originates 

at 

system  vector 

FFFE] 

FE67 

6C 

A9 

02 

JMP 

($02A9) 

Jump  to  IRQ-Routine  $9D88/$9DDE 

FE6A 

FF 

unused 

FE84 

.  FF 

ROM-area 

Directory  and  BAM  design 

FE85     12  Number  of  directory  track (18) 

FE86    04  #  of  bytes  for  every  track  in  BAM 

FE87     04  BAM  start  position  in  sector  18,0 

FE88     90  Beginning  of  disk  name  (Pos.  144) 
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Table 

of  disk  commands 

FE89 

56 

•V 

Validate  /  Collect 

FE8A 

49 

'I' 

Initialize 

FE8B 

44 

'D' 

Duplicate  (dual  drives  only) 

FE8C 

4D 

•M' 

Memory  command 

FE8D 

42 

'B' 

Block  command 

FE8E 

55 

■U' 

User  command 

FE8F 

50 

•  pi 

Position  /  Record 

FE90 

26 

•S  ' 

&  -  command 

FE91 

43 

■c 

Copy 

FE92 

52 

■R' 

Rename 

FE93 

53 

•S' 

Scratch 

FE94 

4E 

■  Ni 

New  /  Header 

Addresses  of  disk  commands 
FE95     84  05  CI  F8  IB  5C  07  A3 
FE9D    F0  88  23  0D 
FEA1     ED  DO  C8  CA  CC  CB  E2  E7 
FEA9    C8  CA  C8  EE 


Low-bytes  of  origin  addresses 
for  the  commands 
High-bytes  of  origin  addresses 
for  the  commands 


Bit  pattern  for  testing  command  syntax 
Meaning  of  bits  : 

(l=been  tested;  corresponding  bit  in  test  value  must  be  0) 

BitO  1=1  character  on  hand  in  command  string 

Bitl  Other  parameters  on  hand  after  '='  character 

Bit2  Several  filenames  for  2nd  file  designation 

Bit3  Joker  on  hand  in  2nd  file  designation 

Bit6  Several  filenames  for  1st  file  designation 

Bit7  Joker  on  hand  in  1st  file  declaration 

FEAD  51  %01010001  Copy  file(s) 

FEAE  DD  %11011101  Rename  file 

FEAF  1C  %00011100  Scratch  file(s) 

FEBO  9E  %10011110  Format  diskette 

FEB1  1C  %00011100  Read  file 

Identifier  in  command  string  for  operating  mode 
FEB2     52  57  41  4D  R,  W,  A,  M 

File  type  identifier  in  command  string 

FEB 6     44  53  50  55  4C  D,   S,   P,  U,  L 
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Names  of  different  file  types 


FEBB 

44 

53 

50 

55 

52 

1st 

char . : 

D, 

s. 

P, 

U, 

R 

FECO 

45 

45 

52 

53 

45 

2nd 

char . : 

E, 

E, 

R, 

s. 

E 

FEC5 

4C 

51 

47 

52 

4C 

3rd 

char . : 

L, 

Q, 

G, 

R, 

L 

Mask  for  LED-bit  in  control  register 


FECA     08  00 


Drive  0,  drive  1   (not  on  hand) 


Set  processor  status  flag 


FECC  00 

N=0  V=0 

Z=l 

FECD  3F 

N=0  V=0 

Z=0 

FECE  7F 

N=0  V=l 

z=o 

FECF  BF 

N=l  V=0 

z=o 

FED0  FF 

N=l  V=l 

z=o 

Number  of 

sectors  in  declared  track  range 

FED1  11 

Track  31-35 

:  17 

sectors 

FED2  12 

Track  25-30 

:  18 

sectors 

FED 3  13 

Track  18-24 

:  19 

sectors 

FED 4  15 

Track  01-17 

:  21 

sectors 

FED5  41 

Identifier  for  1541-Format  ('A') 

FED 6  04 

Number  of  track  changes 

Tracks  that  will  be  changed  by  the  sector  number  and  bitrate 
FED 7     24  IF  19  12                               track  nummbr  36,  31,  25  and  18 

FEDB     01  FF  FF  01  00 

Readerror  Ctrl  bytes  f/head-move 

Buffer  position  in  memory 
FEE0     03  04  05  06  07  07 

High-bytes  of  buffer  addresses 

FEE  6  FF 

Empty  byte  (1541  DOS  checksum) 

[FF0B]     Reset  w/o  hardware  test; 
FEE 7     6C  65  00       JMP  ($0065) 

Pointer  set  through  $EBC5 
Jump  to  $EB22 

[EA7A] 

Initialize  and  switch  LED 
FEEA     8D  00  1C      STA  $1C00 
FEED     8D  02  1C      STA  $1C02 
FEF0     4C  7D  EA      JMP  $EA7D 

Set  ' LED  on'  bit  (8) 

and  switch  pin  for  output 

Return  to  hardware  error  routine 
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[BF36/E97D] 


Bus  delay  for  1541  bus  as  opposed  to  1540  bus 

FEF3  8A 

TXA 

Retain  X-register 

FEF4     A2  05 

LDX  #$05 

Set  counter 

FEF6*  CA 

DEX 

42  cycles  delay 

FEF7     DO  FD 

BNE  $FEF6 

Time  up? 

FEF9  AA 

TAX 

YES— Re-determine  X-register 

FEFA  60 

RTS 

Return  from  this  subroutine 

[82AB/E980] 

Output  null  bit 

FEFB     20  AE  E9 

JSR  $E9AE 

Set  clock  output  to  high 

FEFE     4C  9C  E9 

JMP  $E99C 

Set  data  output  to  low 

[Original  at  'UI 

'  command] 

1541/1540  Bus  mode  switching 

FF01     AD  02  02 

LDA  $0202 

Get  3rd  char,  frm  command  strings 

FF04     C9  2D 

CMP  #$2D 

test  with  '-' 

FF06    F0  05 

BEQ  $FF0D 

Identical? 

FF08  38 

SEC 

NO— Compare  character 

FF09     E9  2B 

SBC  #$2B 

with  ■+' 

FF0B     DO  DA 

BNE  $FEE7 

Identical? 

FF0D1  85  23 

STA  $23 

YES— Set  flag  for  bus  mode 

FF0F  60 

RTS 

Return  from  this  subroutine 

[EAA4] 

Input/Output  initialization 

FF10     8E  03  18 

STX  $1803 

Set  data  direction  for  PA 

FF13     A9  02 

LDA  #$02 

[For  error, see  7.1.5] 

FF15     4C  5A  A6 

JMP  $A65A 

Continue 

[A664] 

Set  data  direction  for  PB 

FF18     A9  1A 

LDA  #$1A 

%00011010 

FF1A     8D  02  18 

STA  $1802 

in  data  direction  register 

FF1D     4C  A7  EA 

JMP  $EAA7 

Back  to  reset 

[E9DC/FF25] 

Data  waits  to  equal  low  (phys. 

hih) ;  set  timer 

■FF20     AD  00  18 

LDA  $1800 

Get  bus  control  register  and 

FF23     29  01 

AND  #$01 

test  data  line 

FF25     DO  F9 

BNE  $FF20 

Is  data  set? 

FF27     A9  01 

LDA  #$01 

NO— Start  counter 

FF29     8D  05  18 

STA  $1805 

for  256  cycles 

FF2C     4C  DF  E9 

JMP  $E9DF 

Keep  going 
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[EE3D] 

Format  dislette 


FF2F 

A9 

FF 

LDA 

#$FF 

PI  par     f  1  an     "Frtr*  rmrront- 

FF31 

85 

51 

STA 

$51 

track 

FF33 

AD 

OF 

18 

LDA 

$180F 

Get  control  register 

FF36 

29 

20 

AND 

#$20 

and  test  operating  mode 

FF38 

DO 

03 

BNE 

$FF3D 

Is  dr  3  ve   in    1      1    mnHp    M    MH  v  \  *> 

J-  ~>    VAJ.  1VC     J.  J 1                      lllv-'\J.t5      ^  X  1 Till  £,  }  m 

FF3A 

A9 

24 

LDA 

#$24 

YF.S — n^tPTmn  np   ma  v      nn      n~F  trarVc 

FF3C 
FF3D1 

2C 

.byte  $2C 

A9 

47 

LDA 

#$47 

Number  of  tracks  in  2-sided  mode 

FF3F 

8D 

AC 

02 

STA 

$02AC 

Set  track  number 

FF42 

4C 

79 

A7 

JMP 

$A779 

Format  diskette 

[FA32]  cf. 

87E7/9A66 

One  half- 

-step  outward 

FF45 

98 

TYA 

Retain 

FF46 

48 

PHA 

Y— register 

FF47 

AO 

64 

LDY 

#$64 

#  of  pick-up  attempts  /tr.O  (100) 

FF4  91 

AD 

OF 

18 

LDA 

$180F 

Get  control  register  A 

FF4C 

6A 

ROR 

A 

Put  t rackO— ident      fbit"Cn    \  n  r^arr-v 

FF4D 

08 

PHP 

and  save  parrv 

FF4E 

AD 

OF 

18 

LDA 

$180F 

Read  control  register  again 

FF51 

6A 

ROR 

A 

Shift  t rack 0- ident      fbi  1-  fn 

FF52 

6A 

ROR 

A 

to  bit7 

FF53 

28 

PLP 

Get  Drevious  nick— nn  result" 

FF54 

29 

80 

AND 

#$80 

Isolate  last  pick— up  result 

FF56 

90 

04 

BCC 

$FF5C 

Is  trackO  active  in  first  test? 

FF58 

10 

ID 

BPL 

$FF77 

NO— Has  trackO  now  been  reached? 

FF5A 

30 

02 

BMI 

$FF5E 

YES— Jump  to  $FE5E 

FF5C1 

30 

19 

BMI 

$FF77 

Is  track  0  still  active? 

FF5E1 

88 

DEY 

YES— Try  again 

FF5F 

DO 

E8 

BNE 

$FF49 

All  tries  executed? 

FF61 

BO 

14 

BCS 

$FF77 

YES-Is  head  at  trackO-position? 

FF63 

AD 

00 

1C 

LDA 

$1C00 

YES— Cntrl  register  for  step-motor 

FF66 

29 

03 

AND 

#$03 

Isolate  stepper  bits 

FF68 

DO 

OD 

BNE 

$FF77 

Is  a  stepper  coil  under  control? 

FF6A 

A5 

7B 

LDA 

$7B 

NO-Set  head  cntrl  byte/read  error 

FF6C 

DO 

09 

BNE 

$FF77 

Head  in  position? 

FF6E 

68 

PLA 

NO-Re-establish 

FF6F 

A8 

TAY 

Y-register 

FF70 

A9 

00 

LDA 

#$00 

Clear  number  of  steps  done  by 

FF72 

85 

4A 

STA 

$4A 

stepper 
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FF74  4C  BE  FA      JMP  $FABE  Initialize  head 

FF7  74  68  PLA  Re-establish 

FF78  A8  TAY  Y-register 

FF7  9  E6  4A           INC  $4 A  Move  another  step  out 

FF7B  AE  00  1C      LDX  $1C00  Get  control  register  and  set 

FF7E  CA  DEX  head  to  move  one 

FF7F  4C  38  FA      JMP  $FA38  step  outward 


[903D/EBC2] 
Initialize  1541  mode 


FF82 

20 

59 

F2 

JSR 

$F259 

Disk  controller  reset 

FF85 

A9 

05 

LDA 

#$05 

Determine  IBM-34 

FF87 

85 

3C 

STA 

$3C 

sector  layout 

FF89 

A9 

88 

LDA 

#$88 

Turn  IRQ  vectors 

FF8B 

8D 

A9 

02 

STA 

$02A9 

to  routine 

FF8E 

A9 

9D 

LDA 

#$9D 

$9D88  (1541 

FF90 

8D 

AA 

02 

STA 

$02AA 

interrupt) 

FF93 

A9 

24 

LDA 

#$24 

Set  maximum  number 

FF95 

8D 

AC 

02 

STA 

$02AC 

of  tracks  35) 

FF98 

18 

CLC 

Flag  for  'side  1' 

FF99 

4C 

F3 

93 

JMP 

$93F3 

Choose  head 

[EE1D] 

Activate  drive 

FF9C     85  FF  STA  $FF  Set  drive  status 

FF9E     4C  00  CI       JMP  $C100  LED  on 


[D610] 

Set  head  control  byte 

FFA1     85  7B  STA  $7B  Set  byte  in  pointer 

FFA3     4C  7  6  D6       JMP  $D67  6  Go  back 


[D628] 

Rest  positioning  mode  to  next  track 
FFA6    20  76  D6      JSR  $D676  Control  head 

FFA9    A9  00  LDA  #$00  Clear  'head  mode' 

FFAB    85  7B  STA  $7B  flag 

FFAD    60  RTS  Return  from  this  subroutine 


[CD91] 

Set  buffer  pointer  to  'B-W 

FFAE    A4  82  LDY  $82  Get  channel  number 

FFB0     4C  DE  D3      JMP  $D3DE  Set  pointer 


FFB3    FF  ...  Unused 
FFE5     ...  FF  ROM-area 
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[Not  used  in  1571  DOS] 
DOS  system  vectors 
FFE6     C6  C8 
$C8C6 

FFE8     8F  F9 
$F98F 


Format  diskette 
Switch  off  drive  motor 


User 

vectors;  jump  addre: 

sses  of  User  commands 

FFEA 

5F 

CD 

Ul 

or 

UA  : 

Read  sector 

$CD5F 

FFEC 

CD 

97 

U2 

or 

UB  : 

Write  sector 

$CD97 

FFFE 

03 

05 

U3 

or 

UC  : 

Jump  to 

buffer  2 

$0500 

FFFO 

06 

05 

U4 

or 

UD  : 

Jump  to 

buffer  2 

$0503 

FFF2 

09 

05 

U5 

or 

UE  : 

Jump  to 

buffer  2 

$0506 

FFF4 

OC 

05 

U6 

or 

UF  : 

Jump  to 

buffer  2 

$0509 

FFF6 

05 

OF 

U7 

or 

UG  : 

Jump  to 

buffer  2 

$050C 

FFF8 

OF 

05 

U8 

or 

UH  : 

Jump  to 

buffer  2 

$050F 

FFFA 

01 

FF 

U9 

or 

UI  : 

Toggle 

1540/41 

$FF01 

System  vectors 

FFFC 

AO 

EA 

u: 

or 

UJ  : 

Execute 

reset 

$EAA0 

FFFE 

67 

FE 

IRQ  vector 

(Bus/Disk  controller) 

$FE67 

©1985  Rainer  Ellinger 
©1986  Abacus  Software,  Inc. 
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Appendix  B 
The  1570  DOS  (1571  Revisions) 

The  Commodore  1570  disk  drive  is  a  single-sided  drive  that  utilizes  1571 
electronics,  and  is  currently  available  only  in  Europe.  Because  this  book  is 
marketed  internationally,  and  as  Commodore  may  release  the  the  1570  in  the 
United  States,  we  have  included  this  section  detailing  the  differences 
between  the  two  drives. 

The  1570  disk  drive  has  almost  the  same  operating  system  as  the  1571 
drive,  and  so  is  treated  as  a  modified  1571  ROM.  In  fact,  the  hardware  of 
the  two  drives  is  almost  identical. 

The  biggest  difference  is  that  the  1570  drive  is  a  single-sided  drive  (i.e.,  no 
two-sided  read/write  heads).  All  ROMs  have  been  modified  accordingly, 
making  this  drive  operate  with  the  same  BAM  as  a  1541  drive. 

There  are  changes  in  the  1570's  two  motors.  The  stepper  motor  is  not  as 
efficient  as  that  of  the  1571  drive,  and  the  1570  motors  are  simply  not  as 
fast  as  those  of  the  1571.  Thus,  time  constants  for  motor  control  have  been 
changed. 

A  few  small  errors  have  been  cleared  up  in  the  1570  which  existed  in  the 
1571  series. 

1570  DOS 


8000 

75 

98 

1570  ROM  checksum 

84E4 

20 

4D 

AA 

JSR 

$AA4D 

Format  diskette 

8827 

AO 

08 

LDY 

#$08 

1541  stepper  motor  delay 

8FD4 

4C 

21 

90 

JMP 

$9021 

Display  '31  Syntax  Error' 

90D9 

20 

5B 

AA 

JSR 

$AA5B 

Test  filet ype  for  'PRC 

A4  0F 

8D 

D7 

FE 

STA 

$FED7 

Set  highest  track  number 

A445 
A446 

60 
EA 

RTS 
NOP 

Separate  from 

2nd  side  of  diskette 
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A4DD 

53 

54 

45 

56  45 

20  4C  41 

Copyright  for  1570  modification 

A4E5 

4D 

0D 

by  Steve  Lam 

Aoy  / 

AD 

D7 

FE 

LDA 

$FED7 

Get  highest  track  number 

Ad  / 1 

AD 

D7 

FE 

LDA 

$FED7 

Get  highest  track  number 

A6C4 

8D 

D7 

FE 

STA 

$FED7 

Set  highest  track  number 

A6DF 

8D 

D7 

FE 

STA 

$FED7 

Set  highest  track  number 

A/^D 

8D 

D7 

FE 

STA 

$FED7 

Set  highest  track  number 

/\  /  /  J 

OT\ 

BD 

D7 

FE 

STA 

$FED7 

Set  highest  track  number 

A  /  ISO 

62 

AA 

JSR 

$AA62 

Get  control  register 

4C 

CE 

A7 

JMP 

$A7CE 

Don't  test  1541  mode 

A7D7 

AD 

D7 

FE 

LDA 

$FED7 

Get  highest  track  number 

A941 

AD 

D7 

FE 

LDA 

$FED7 

Get  highest  track  number 

[D867] 

Test 

for 

error  acknowledgements 

AA3F 

C9 

02 

CMP 

#$02 

Compare  with  first  error  number 

AA41 

90 

07 

BCC 

$AA4A 

Is  there  an  error? 

AA43 

C9 

OF 

CMP 

#$0F 

NC—Test  for  'Drive  not  ready' 

AA45 

F0 

03 

BEQ 

$AA4A 

Is  drive  ready? 

AA47 

4C 

6B 

D3 

JMP 

$D36B 

YES-Return  to  main  routine 

AA4A1 

4C 

73 

D3 

JMP 

$D373 

Observe  error 

[84E4] 

Format 

diskette 

AA4D 

85 

51 

STA 

$51 

Set  current  track  to  be  formatted 

AA4F 

20 

7C 

87 

JSR 

$877C 

Drive  LED  on 

AA52 

20 

89 

A9 

JSR 

$A989 

Format  diskette 

AA55 

48 

PHA 

Retain  acknowledgement 

AA56 

20 

88 

87 

JSR 

$8788 

Drive  LED  off 

AA59 

68 

PLA 

Repeat  acknowledgement 

AA5A 

60 

RTS 

Return  from  this  subroutine 

[90D9] 

Test 

filetype  for  program  file 

AA5B 

A5 

E7 

LDA 

$E7 

Get  filetype  byte 

AA5D 

29 

07 

AND 

#$07 

and  isolate  filetype  flags 

AA5F 

C9 

02 

CMP 

#$02 

Compare  with  'PRC 

AA61 

60 

RTS 

Return  from  this  subroutine 
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[AA62]  Read  control  register 

AA62    AD  OF  18      LDA  #$180F        Get  value  of  control  register 


AA65 

2C 

01 

18 

BIT 

#$1801 

Read  in  new  value  in  control 

register 
AA68  60 

RTS 

Return  from  this  subroutine 

CD22 

CD 

D7 

FE 

CMP 

$FED7 

Compare  with  maximum  track 

DO  JI 

flu 

8C 

D5 

JMP 

$D58C 

Execute  job 

D05D 

86 

D5 

JSR 

$D586 

Read  BAM  from  diskette 

D097 

yD 

FA 

02 

STA 

$02FA,X 

High-byte  of  number  of  free  blocks 

DJb  1 

3F 

AA 

JMP 

$AA3F 

Test  acknowledgement 

uo±u 

D7 

FE 

CMP 

$FED7 

Compare  with  maximum  track 

UJ  OJ 

pn 

D7 

FE 

CMP 

$FED7 

Compare  with  maximum  track 

Last  character  of  on-message 

Trn  5J  ti1 

^  <J 

B7 

EE 

JSR 

$EEB7 

Create  new  BAM 

20 

05 

F0 

JSR 

$F005 

Set  buffer  for  BAM 

60 

D4 

JSR 

$D4  60 

Read  sector 

EF28 

20 

20 

F2 

JSR 

$F220 

Test  number  of  blocks  free 

EF2F 

CD 

D7 

EE 

CMP 

$FED7 

Compare  with  maximum  track 

EF37 

4C 

8A 

D5 

JMP 

$D58A 

Write  BAM  to  diskette 

EF5F 

20 

CF 

EF 

JSR 

$EFCF 

Set  buffer  pointer 

EF93 

20 

CF 

EF 

JSR 

$EFCF 

Set  buffer  pointer 

F001 

4C 

8A 

D5 

JMP 

$D58A 

Write  BAM  to  diskette 

F005 

20 

3A 

EF 

JSR 

$EF3A 

Set  buffer  pointer 

F09C 

4C 

8A 

D5 

JMP 

$D58A 

Write  BAM  to  diskette 

F107 

4C 

86 

D5 

JMP 

$D586 

Read  BAM  from  diskette 
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F12D 
F12F 

A5 
48 

6F 

LDA 
PHA 

$6F 

Reserve  current 
BAM  pointer 

F147 

CD 

D7 

EE 

CMP 

$FED7 

Compare  with  maximum  track 

F1C4 

20 

11 

F0 

JSR 

$F011 

Set  BAM  pointer 

F1D5 

CD 

D7 

EE 

CMP 

$FED7 

Compare  with  maximum  track 

F1DF 

20 

11 

FO 

JSR 

$F011 

Set  BAM  pointer 

F24B 

AE 

D6 

FE 

LDX 

$FED6 

Number  of  track  zones  on  diskette 

F98A 

A9 

7D 

LDA 

#$7D 

'Motor  on'  delay  about  1/0.5  sec. 

FF3F 

8D 

D7 

FE 

STA 

$FED7 

Mark  maximum  track  number 

FF95 

8D 

D7 

FE 

STA 

$FED7 

Mark  maximum  track  number 
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Appendix  C 

1571  Zeropage  Listing 

0-5  Jobcode  of  corresponding  buffer  assignment  (0-5) 
$0    -  $5    Buffer  5  is  not  allocated  in  RAM. 

Meanings  of  jobcodes: 

$80  Read  a  sector 

$88  Read  sector  from  same  track 

$90  Write  a  sector 

$A0  Verify  a  sector 

$B0  Look  for  a  sector  header 

$C0  Set  head  to  track  0 

$D0  Execute  program  in  buffer 

$E0  Combine  program  in  jobloop 

$F0  Format  diskette 

Meanings  of  acknowledgements: 

$00/01  No  errors 

$02  Blockheader  not  found 

$03  Sync-mark  not  found 

$04  Data  block  not  found 

$05  Data  block  checksum  wrong 

$06  Format  error 

$07  Verify  error 

$08  Write-protect  on  hand 

$09  Wrong  header  checksum 

$0A  Data  block  too  long 

$0B  False  ID  /  diskette  changed 

$0D  Index  hole  not  found 

$0E  CP/M  syntax  error 

$0F  No  disk  found 


6  - 

17 

Respective  track/sector  number 

for  buffers  0-5 

$6  - 

$11 

e.g.,   6  contains  the  track  and 

7  the  sector  for 

buffer  0 

18  - 

19 

First  and  second  characters  of 

disk  ID 

$12  - 

$13 

in  drive  0 

20  - 

21 

Unused 

$14  - 

$15 

memory 
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22 
$16 

-  23 

-  $17 

First  and  second  ID  characters  of  last-read 
sector  header 

24 
$18 

-  25 

-  $19 

Track  and  sector  number  of 
last-read  sector  header 

26 
$1A 

Checksum  of  last-read 
sector  header 

27 
$1B 

Control  byte  of  routine  at  $86E6 
Buffer  pointer  on  format  routine  $9B89 

28 
$1C 

'Diskette  initialized'  flag 
0=no  <>=yes 

29 
$1D 

Like  28/$lC,  but  for  drive  1 
Value  always  1  [EBBA] 

30 
$1E 

Current  status  of  write-protect  notch 
0=write  protect  active;  l=no  write  protect 

31 

$1F 

Unused 

32 
$20 

Operating  status  of  drive  0 

Bit  4:  l=motor  runs  until  turned  off 

Bit  5:  l=motor  switched  on 

Bit  6:  l=stepper  motor  active,  head  set 

Bit  7 :  l=drive  not  ready 

33 

$21 

Like  32/$20,  only  for  drive  1 

34 

$22 

Track  number  of  current  job 

35 

$23 

Flag  for  bus  mode:  0=1541  bus    <>0=  1540  bus 

36 
$24 

-  43 

-  $2B 

Sector  header  buffer 

Commodore  sectors  :  Data  in  GCR-code 

CP/M  sectors           :  ID  array  contents 

44 

$2C 

-  45 

-  $2D 

Unused 
memory 

46 
$2E 

-  47 

-  $2F 

Pointer  to  current  buffer  position 
converted  to  GCR 
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48 

-  49 

Pointer  to  position  in 

$30 

-  $31 

current  data  buffer 

50 

-  51 

Pointer  to  track/sector  of  jobloop  (6-17) 

$32 

-  $33 

by  formatting:  pointer  to  current  sector  header 

52 

$34 

Pointer  converted  to  current  GCR  byte 

jODioops  yet  to  De  run  oy     motor  out. 

OH 

.....  , 
Pointer  to  position  of  binary  byte  by  GCR  conversion 

c  c 
OO 

«t  "3  *7 

Bus  status  byte: 

Bit  0  l=Flag  for  'file  only  has  one  sector' 

Bit  3  Reverse  status  of  Clock  line 

next,  waiting  for  Clock  signal 

Bit  6  1=1571  bus  mode  0=1541  bus  mode 

Bit  7  1=1571  operating  mode  (2mHz) 

0=1541  operating  mode  (lmHz) 

56 

$38 

Identifer  for  last-read  header   (normal  7) 

57 

$39 

Data  block  identifier  (8) 

58 

$3A 

Checksum  of  buffer /data  block 

59 

$3B 

•U0'  command  number  [see  $8030] 

60 

$3C 

IBM  system  34  sector  format  (after  reset  5) 

61 

$3D 

Drive  number  of  current  job 

62 

$3E 

Number  of  active  drives  ($ff=no  drives) 

63 

$3F 

Buffer  number  of  current  job 

64 

$40 

Track  of  last  job 

65 

$41 

Number  of  last  job  [used  only  in  F340/F44B] 

66 

$42 

Difference  between  new  and  old  track 

67 

$43 

Number  of  sectors  per  track 

68 

$44 

Number  of  CP/M  sub-sectors  per  sector 
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69    $45    Jobcode  command  bits   (bits  3-6  of  original  jobcode) 


I  U 

Next    CilaiaCt-ei    uu   i»»fcJ    sciil    wvcl    x «j  /  x  uuo 

71 

$47 

Data  block  identifier  (80 

72 

$48 

Runtime  counter  for  motor 

73 

$49 

Temporary  storage  for  stack  pointer 

74 

$4A 

Bits  0-6  :  Number  of  half-track-step  travel 
Bit  7         :  0=step  out 
:  l=step  in 

75 
76 

$4B 
$4C 

Assorted  temporary  storage 

Sector  difference  to  next  optimal  job 

77 

$4D 

Sector  number  of  next  optimal  job 

78 

SAT 

-  79 

—  S4F 
v 

Temporary  storage  of  current  buffer  pointer 

80 

$50 

Buffer  data  format  flag 
0=binary  <>=GCR 

81 

$51 

Current  track  of  format 
$FF=Format  not  in  process 

82 
$52 

-  85 

-  $55 

Temporary  storage  for  4  binary  bytes,  which  will 
be  converted  to  5  GCR  bytes 

86 
$56 

-  93 

-  $5D 

Temporary  storage  for  8  GCR  values,  to  produce  8 

binary  half -bytes, 

and  from  that  4  binary  bytes 

94 

$5E 

Command  status  byte 

Bit  0-4:  Last  CP/M  error  message  in  jobloop 
Bit  7:     l=Disk  in  IBM  System  34  format 

95 

$5F 

Current  jobcode 

96 

$60 

IBM-34  format:  Smallest  sector  number  per  track 

97 

$61 

IBM-34  format:  Largest  sector  number  per  track 
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98  - 
$62  - 

99 
$63 

1541  mode:  Pointer  to  current  head  control 
1571  mode:  Pointer  to  positioning  phase 

routine 

100 

$64 

Current  head  position  in  half-track  steps 

101  - 
$65  - 

102 
$66 

Pointer  to  reset  (no  hardware  test)  $EB22 
will  jump  from  $FEE7  when  'UI'  has  not  '+' 

or  '-' 

103 

$67 

Target  track 

104 

$68 

Flag  for  initializer  method  (always  0)  [set 
0=Automatic  initialization 
<>0=lnitialized  by  'hand'  (i-command) 

by  C63D] 

105 

$69 

Sector  format  for  Commodore  diskettes  (6) 

106 

$6A 

Bits  0-5:  Number  of  'bad'  read  attempts 
Bit  6       :  Head  not  set  next  to  track 
Bit  7      :  Track  0  not  run 

107  - 
$6B  - 

110 
$6C 

Pointer  to  table  of  1541  User-command 
($FFEa) 

111  - 
$6F  - 

114 
$72 

Temporary  storage  for  sundries 
(BAM  calculations,  etc.) 

115 

$73 

Number  of  side-sectors  to  relative  file 

116 

$74 

Unused  memory 

117  - 
$75  - 

118 
$76 

Address  pointer  for  different 
system  operations 

119 

$77 

Device  address  for  Listen  +  20 (flag  in  command  byte) 

120 

$78 

Device  address  for  Talk  +  20  (flag  in  command  byte) 

121 

$79 

Listen  flag  (l=listener  mode) 

122 

$7A 

Talk  flag  (l=talk  mode) 

123 

$7B 

Current  head  positioning  control  byte  from 

readerror 

124 

$7C 

'ATN  encountered'  flag 
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125     $7D     ' ATN  observed'  flag  0=yes;  <>0=  ATN  ignored 


1 

$7E 

Trark   number  of  last  access 

127 

37F 

Current  drive  number 

128 

$80 

Current  track  number 

129 

$81 

Current  sector  number 

130 

$82 

Current  internal  channel  number  (0-6) 

131 

$83 

Current  secondary  address 

132 

$84 

Last  command  word  sent  over  serial  bus 

133 

$85 

Current  1541  bus  data  byte 

134 
$86 

-138 
-$8A 

Temporary  storage  for 
assorted  purposes 

139 
$8B 

-142 
-$8E 

Math  register  1 

142 
$8F 

-147 
-$93 

Math  register  2 

148 
$94 

-149 
-$95 

Pointer  in  directory  buffer 

150 

$96 

Number  of  first  System  34  sector  read 

151 

$97 

Number  of  System  34  sectors  per  track 

152 

$98 

Bit  counter  for  bits  per  byte  (for  data  transfer) 

153 
$99 

-154 
-$9A 

Pointer  to  start  of 
buffer  0  ($0300) 

155 
$9B 

-156 
-$9C 

Pointer  to  start  of 
buffer  1  ($0400) 

157 
$9D 

-158 
-$9E 

Pointer  to  start  of 
buffer  2  ($0500) 
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159  - 
$9F  - 

160 
$A0 

Pointer  to  start  of 
buffer  3  ($0600) 

161  - 
$A1  - 

162 
$A2 

Pointer  to  start  of 
buffer  4  ($0700) 

163  - 
$A3  - 

164 
$A4 

Pointer  to  start  of 
input  buffer  ($0200) 

165  - 
$A5  - 

166 
$A6 

Pointer  to  start  of 

error  message  buffer  ($02D5) 

167  - 
$A7  - 

173 
$AD 

Channel  buffer  table  1: 

Arranged  one  of  the  first  buffers  to  internal 

channels 

167-173  correspond  to  channels  0-6 
Meaning  of  bytes: 

Bits  0-5:  Buffer  number  arranged  in  channel 
Bit  6       :  l=Rewrite  buffer  contents 
Bit  7       :  0=Buffer  used  active 
$FF  :  No  buffer  separated 


174 

180 

Channel  buffer  table  2: 

$AE 

$B4 

arrange  2nd  buffer   (functions  like  167-173  above) 

181 

186 

Number  of  blocks  allocated  to  file  by  internal 

channel 

$B5 

$BA 

(low-byte)   Index:  Channel  number  $82 

187 

192 

Number  of  blocks  allocated  to  file  by  internal 

channel 

$BB 

$C0 

(high-byte)   Index:  Channel  number  $82 

193 

198 

Pointer  to  current  databyte  of  file  by  internal 

channel 

$C1 

$C6 

Index:  Channel  number  $82 

199 

204 

Record  length  of  relative  file  opened  via 

$C7 

$CC 

internal  channel 

Index:  Channel  number  $82 

205 

210 

Channel  buffer  table  3: 

$CD 

$D2 

Organize  3rd  buffer  (see  167-173) 
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211    $D3    Pointer  to  first  filename 


212 

$D4 

Position  in  current  record 

213 

$D5 

Side-sector  number 

214 

$D6 

Pointer  to  record  in  side-sector 

215 

$D7 

Pointer  to  data  set  of  relative  file 

216 

-  220 

Directory  filename  table 

$D8 

-  $DC 

Directory  sector  where  filename  is  found 

221 

-  225 

Filename  position  table 

$DD 

-  $E1 

marks  diectory  entry  area 

226 

-  230 

Filename-specified  drive  table 

$E2 

-  $E6 

231 

-  235 

Filename/ filet ype  table 

$E7 

-  $EB 

236 

-  241 

Channel  number/ filetype  table 

$EC 

-  SF1 

Bit  0     :  Drive  number  (0/1) 

Bits  l-3:Filetype 

242 

-  247 

Channel  number  status  table 

$F2 

-  $F7 

Bit  1     : l=channel  is  write  channel 

Bit  3     :0=EOF  flag  set 

Bit  7     :l=channel  is  write  channel 

248 

$F8 

EOI  flag  (last  char.);  0=YES  1=N0 

249 

$F9 

Current  buffer  number 

250 

-  254 

Table  for  buffer-contained  channel  number 

$FA 

-$FE 

255 

$FF 

Drive  status  (drive  0) :  0=drive  ready 

256 

$100 

Drive  status  (drive  1) :  0=drive  ready 

257 

-  325 

Hardware  stack  of 

$101-$145  processor 
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326 

-  431 

BAM  buffer  2  for  1571  diskettes 

$146 

-$1AF 

432 

$1B0 

CP/M  error  message 

433 

$1B1 

Flag  for  current  diskette  side:  0=side  1 

443 

-  511 

Status  buffer  to  take  GCR  data 

$1BB 

-$1FF 

512 

-  553 

Input  buffer  for  command  strings 

$200 

-$229 

from  computer 

554 

$22A 

Current  command  number;  $FF=no  command 

555 

-  573 

Secondary  address  table-internal  channel 

$22B 

-$23D 

Bits  0—3  :  internal  channel  number 

Bit  6        :  l=channel  for  reading 

Bit  7        :  l=write  channel 

$FF            :  no  secondary  address 

574 

-  579 

Channel  number  table  -  current  data  byte 

$23E 

-$243 

580 

-  585 

Channel  number  table  -  #  of  bytes  to  be  transferred 

$244- 

-$249 

586 

$24A 

Current  filetype 

587 

$24B 

Length  of  current  filename  in  command  string 

588 

$24C 

Temporary  storage  for  OPEN  secondary  address 

589 

$24D 

Combine  with  call  from  D506  in  jobcode 

590 

$24E 

Max.  number  of  sectors  in  current  track 

591  • 

-  592 

Buffer  assignment  table 

$24F- 

-$250 

Every  bit  of  16-bit  value  represents  a  buffer 

l=buffer  assigned;  0=buffer  free 

593 

$251 

'Newly  written  BAM,  illegal';  l=yes  0=no 

594 

$252 

As  above,  for  drive  1 

595 

$253 

Flag  for  'File  found';  $FF=no 
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596    $254   'Directory  in  buffer*  flag;  0=yes  <>0=no 


597 

$255 

Command  mode 

598 

$256 

Bitmap  for  channel  assignment 
l=channel  free;  0=channel  used 

599 

$257 

Pointer  to  current  active  buffers  from  2-buffer 
operation 

600 

$258 

Record  length 

601 

$259 

Current  side-sector  (track) 

602 

$25A 

Current  side-sector 

603  • 
$25B- 

-  607 
-$25F 

Table  for  buffer- jobcode 
last  jobcode  of  buffer 

608  • 
$260- 

-  613 
-$265 

Table  for  channel  -  data  sector  (track  number) 

614  • 
$266- 

-  619 
-$2  6B 

Table  for  channel  -  data  sector  (sector  number) 

620 

$2  6C 

Error  number/blink  counter 

621 

$2  6D 

LED  mask  from  error  blinking 

622 

$26E 

Last  active  drive  [D7D1/D9FE] 

623 

$26F 

Last  sector  number  [D7DC/DA03] 

624 

$270 

Current  channel  number 

625 

$271 

Number  of  bytes  per  IBM  sub-sector 

626 
$272 

-  627 
-$273 

Temporary  storage  of  directory  entry 
(e.g.,   for  block  amount,  etc.) 

628 

$274 

Length  of  command  string  in  input  buffer 

629 

$275 

Characters  to  be  sought  in  input  buffer 
[C165/C16D/C268/C273] 

630 

$276 

Length  of  current  filename  in  input  buffer 
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631     $277  Number  of  filenames  for  1st  file  declaration 


632  ■ 
$27A- 

-  639 
-$27F 

Filename  position  table  in  input  buffer  points 
to  beginning  of  command  string 

640  • 
$280- 

-  644 
-$284 

Filename  track  table  to  current  sector 

645  • 
$285- 

-  649 
-$289 

Filename  number  table  of  current  sector 

650 

$28A 

Joker  flag;  0=no  joker 

651 

$28B 

Command  syntax  byte 

652 

$28C 

Number  of  drives  to  be  accessed  (0/1/2) 

653 

$2  8D  Flag  for  directory  from  both  drives;  0=no 

654 

$28E 

Number  of  last  drive 

655 

$28F 

Position  of  current  directory  entry 

656 

$2  90 

Sector  of  current  file  entry 

657 

$291 

Sector  of  current  file  entry 

658 

$292 

Pointer  to  valid  entry 

659 

$293 

Pointer  to  next  directory  sector 

660 

$294 

Position  in  directory  sector 

661 
662 

$2  95 
$296 

Counter  for  directory  entries  per  sector  (8) 
Filetype  from  command  string;  0=no  assignment 

663 

$297 

File  operation  mode  0/l=read/write  2=append  3=modify 

664 

$298 

■Error  from  job  observed'  flag;  >128=no  <128=yes 

665 

$299 

Pointer  to  position  phase  from  read  error 

666 

$2  9A 

Control  byte  for  head  positioning  by  read  error 

667  - 
$29B- 

•  668 
-$29C 

Pointer  to  current  BAM-track  storage 
for  drive  0  and  1 
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669  -  670  Track  number  assigned  by  the 
$29D-$29E    BAm  temporary  storage 


673  -  680  BAM  temporary  storage 
$2A1-$2A8 


681  -  682  IRQ  vector  from  FE67 
$2A9-$2AA 


683     $2AB  Assign  motor  runtime  counter  from  diskette 


684     $2AC  Number  of  greates  track+1  of  diskette 


685  -  686  Pointer  in  BAM  buffer 

$2AD-$2AE  (temporary  storage  reserved  at  pointer) 


687     $2AF  '1541/1571  IRQ  toggle'  flag;  1-no 


688  -  715  Produce  buffer  at 
$2B0-$2CB  directory  line 


716  -  724  Unused 
$2CC-$2D4  memory 


725  -  7  60  Generate  buffer  for  error  text 
$2D5-$2F8  message 


7  61     $2F9  'Invalid  BAM*  flag;  0=no  l=yes 


7  62  -  763  Number  of  blocks  free  in  drives 
$2FA-$2FB  0  and  1  (low-bytes) 


764  -  7  65  Number  of  blocks  free  in  drives 
$2FC-$2FD  0  and  1  (high-bytes) 


7  66  -  767  Control  byte  for  positioning  next  track  for 
$2FE-$2FF  drives  0  and  1 
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Appendix  D 
Overview  of  Disk  Errors 

NUMBER  DEFINITION 

00  OK 

01            FILES    SCRATCHED, XX 

n\*r±iiv w xcuy  ciumi  u     \j L     SCi  at  Cn 

XX  gives   number  of   files  deleted 

TT=track;    SS=sector   at   which  error  occurred 

20            READ    ERROR,  TT,SS 

Sector  header   of   a  block  was   not  found. 

The  disk   is  treated 

as  unformatted  or  bad. 

21  READ    ERROR,  TT,SS 

Sync  marker  not  found.  Either  disk  is  unformatted  or  there 
is   a  drive  error,    such  as   a  misaligned  read  head,  etc. 

22  READ    ERROR,  TT,SS 

Data  block  of  a   sector  has  not  been  found. 

23  READ    ERROR,  TT,SS 

Checksum  error.  When  this  happens,  you  will  have  to  look 
into  the  sector  several  times  with  direct  access  commands, 
until  the  error  is  found.  Then,  you  will  have  to  read  the 
sector  into  the  disk  buffer,  and  rewrite  the  sector.  This 
re-computes  the  checksum,  although  the  contents  of  the 
sector   can  be  incorrect. 

24  READ    ERROR,  TT,  SS 

Error   caused  by  hardware  trouble— invalid  bit  pattern. 

25  WRITE    ERROR, TT,SS 

Writing  a  sector  has  caused  a  discrepancy  determined  by  a 
verify  error.   Use  a  new  diskette. 

26  WRITE    PROTECT  ON,TT,SS 

The  diskette   is  guarded  by  a  write-protect  tab. 

27  READ    ERROR,  TT,SS 

Checksum  error  detected  in   sector  header. 
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29  DISK    ID   MISMATCH, TT,SS 

Sector  header  ID  doesn't  match  with  last-read  ID.  Cause: 
Initialized  or   newly-formatted  disk. 


30  SYNTAX  ERROR 

The  1571/1570  does  not  recognize  the  command  sent  over  the 
command  channel. 

31  SYNTAX  ERROR 

Command  cannot  be  executed. 

32  SYNTAX  ERROR 

Command  sent  over  channel  is  longer  than  41  characters,  and 
input  buffer   is  full. 

33  SYNTAX  ERROR 

Joker  has  been  used  by  writing  as  filename. 

34  SYNTAX  ERROR 

Filename  was  not  found.  Eventually,  the  characters  after 
the  command  colon  were  forgotten. 

39  FILE  NOT  FOUND 

Autoboot   file  given   not  found. 

50  RECORD   NOT  PRESENT 

Data  set  of  a  relative  file  does  not  exist.  This  message 
can  be  ignored  when  first  writing  a  data  set,  only  to  have 
it   show  itself  when  trying  to  read  that  file. 


51  OVERFLOW   IN  RECORD 

Data  being  transferred  to  the  disk  is  larger  than  the  data 
set,    so  any  more  characters  are  ignored. 

52  FILE   TOO  LARGE 

Number  of  last  data  set  is  too  large;  no  more  files  can  be 
fit   onto  the  diskette. 

60  WRITE   FILE  OPEN 

An  attempt  is  made  to  access  a  file  not  closed  by  the 
normal  methods.  This  file  can  only  be  re-opened  using 
•modify'  . 


61  FILE  NOT  OPEN 

An  un-opened  file  is  sought. 
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62  FILE  NOT  FOUND 

Given  program  or  file  is  not  found. 

63  FILE  EXISTS 

The  new  file  already  exists  on  diskette. 

64  FILE    TYPE  MISMATCH 

The  given  filetype  doesn't  match  any  filetype  given  on 
disk. 

65  NO   BLOCK, TT, SS 

The  block  given  by  Block-Allocate  is  already  occupied.  TT 
and  SS  give  the  track  and  sector  of  the  next  free  block  of 
the  track.  If  TT  and  SS=0,  there  are  no  more  free  sectors. 
See  Chapter  2.1.3  for  Block-Allocate  and  error  handling  for 
that  command. 

66  ILLEGAL   TRACK   OR   SECTOR, TT,SS 

The  sector  parameters  given  by  direct  access  commands  are 
wrong . 

67  ILLEGAL   TRACK   OR   SECTOR, TT,SS 

The   sector  linking  points  to  a  sector  which  is  not  onhand. 

70  NO  CHANNEL 

No  more  channels  are  available.  You  will  have  to  close  an 
already-open   file  somewhere  to  get   a  channel  back. 

71  DIR   ERROR,  TT,SS 

The  BAM  contents  in  disk  memory  do  not  match  with  the  BAM 
on  diskette.  You  will  have  to  initialize  the  diskette  when 
this  happens. 

72  DISK  FULL 

You  have  reached  the  maximum  capacity  of  the  disk,  and  have 
less  than  three  blocks  free. 

73  Power-on  message 

An  attempt  has  been  made  to  write  to  a  disk  formatted  under 
another  DOS. 

74  DRIVE  NOT  READY 

There  is  no  formatted  disk  in  the  drive. 
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APPEND,  53,  ROM-188,  ROM-190 
ATN,  ROM-3  ,ROM-4 
autostart  files,  100 

&  command,  ROM-96,  ROM-232 

BACKUP,  38 

BAM,  33, 75-80,  ROM-95,  ROM-97,  ROM-159,  ROM-300 
BASIC  versions,  11 
BDOS  and  BIOS,  105 

BLOAD/BSAVE,  21 

block  commands,  ROM- 145 

B-A,ROM-148 

B-E,ROM-150 

B-P,  ROM- 150 

B-R,ROM-149 

B-W,ROM-149 
blocks  69 

allocate/free,  72,  ROM- 159,  ROM-254 

reading/writing,  69 

execute,  88 

BOOT,  40 
bus  1541 
input 

output,  ROM-7 
bus  1571 

input,ROM-5 

output,ROM-5,  ROM-6, 

read,  ROM-8 
buffers,  68 

C-128ports,3 

carriage  return  (CR),  45 

checksum,  ROM-1,  ROM-48,  ROM-56 

CIA  6526, 136 

circuitry  (1570/1571),  130 

clock  buts,  109 

channels 

close,  ROM-169 

open,  ROM- 196 
COLLECT,33 
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command  channel,  31 

command  string,  ROM-112,  ROM-114,  ROM-118 

search,  ROM- 116 

table,  ROM- 117 
Commodore  controller,  139 
CONCAT,  35 
COPY,  36,ROM-135 
CP/M  boot,  41 

error,  ROM-26 

formats,  93-96, 111-117,  ROM-28 
initialize,  ROM-31 
programming  under,  105 

read  sector,  ROM-10,  ROM-13,  ROM- 15,  ROM-42,  ROM-47 
write  sector,  ROM-1 1,  ROM-44 
sector  format,  ROM- 14 
verify,  ROM-46 
Cyclic  Redundancy  Check  (CRC),  112 

data  channels,  13 
data  field,  45 

data  storage,  7, 13, 44, 58 

DCLEAR,  39 
DCLOSE,  48 

device  address,  ROM-50 

device  request  fast,  ROM-5 

DIP  switches,  4,  12 

direct  access  commands,  67 

DIRECTORY/CATALOG,  23 

directory,  73,  ROM-174,  ROM-182,  ROM-300 

close,  ROM- 195 

LOAD  "$",  ROM-247 

search,  ROM-122 

transmit,  ROM- 191 
disk  command  table,  ROM-301 
Disk  Operating  System  (DOS),  8, 14 

buffer,  87 

controller  reset,  ROM-264 
errors,  160,  ROM-225 
history,  155 

important  routines,  156,  ROM-1 10 
SHELL,  38 
zero-page,  178 
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Disk  Parameter  Block  (DPB),  106 
diskettes  (5  1/4"),  6 

formatting,  14 

formats,  9, 93 

free  blocks,  ROM-106,  ROM- 132 
operation,  108 

D LOAD /RUN,  16 
DOPEN#,  57 

drive  LED,  ROM-23 
drive  motor 

off,  ROM-23,  ROM-285 

on,ROM-22,ROM-286 

step,  ROM-24 
DS/DS$/ST,  27 
DSAVE,  18 
D VERIFY,  20 

EOI,  29 
EOT,  29 
erasing  files,  25 
error  byte 

output,  ROM- 17 
error  channel,  ROM-172,  ROM-175 

error  messages,  27,  ROM- 10,  ROM-54,  ROM- 114,  ROM- 177,  ROM-225 

listing,  ROM-323 

output,  ROM-226 

RAM  or  ROM,  ROM-240 
fast-load,  ROM-51 
file  construction,  81 
file 

close,  ROM-192,  ROM-193 

open,  ROM- 189,  ROM- 190 

pointer,  ROM-201 
filename  rules,  18 
file  type  names,  ROM-302 

formatting  diskettes,  14,ROM-80,  ROM-90,  ROM-304 

GCR  coding,  128-129,  ROM-65,  ROM-71,  ROM-74,  ROM-271, 
ROM-278,  ROM-300 
tables,ROM-88,  ROM-279,  ROM-283 
GET#,  49,  63 
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handshaking,  144 
head 

control  routine,  ROM-79,  ROM-286 
initialize,  ROM-287 
movement,  ROM-288 
set,  ROM-48,  ROM-49,  ROM-60 
switch  circuitry,  ROM-299 
headers,  8,  14 

IBM  System  34  format,  93, 96-99, 111-117,  ROM-34,  ROM-39,  ROM-41 

read,  ROM-29,-32-42 

routine,  ROM-21 

sector,  ROM-18,  ROM-20 
initiahze,  ROM-99,  ROM- 1 19,  ROM-158 
INPUT*,  49, 51,  63 
interface  components  (6522/6526),  131 
IRQ  vector,-306 

"killer  track",  89 

LED  lights,  4,  ROM-1 1 1,  ROM-240,  ROM-246 
loading/saving  programs,  16-19, 21-22 

speed,  19 

fast-load,  94 

machine  language,  12 

built-in  monitor,  10 

programming  WD- 1770, 118- 121 
memory  read/write,  87 
memory  execute,  88 
MFM  data  recording,  108 
mode,  ROM-50 
M-R  command,  ROM-142 
M-W  command,  ROM- 143 

NEW,ROM-250 

OPEN,  31, 45,  ROM- 184 

peripheral  control  register,  133 
PRINT*,  32, 47,  58 
pointer,  62 
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RAM  and  ROM  test,  ROM-241 

read  attempts,  ROM-48 

read  error,  ROM- 179 

read-write  head,  6, 108 

relative  files,  44, 56-64,  ROM- 140,  ROM- 151 

end,  ROM-215 

errors,  ROM-224 

insert  records,  ROM-219 

number  of  sectors,  ROM-207 

side  sectors,  ROM-206,  ROM-207,  ROM-210,  ROM-222 
write  record,  ROM-209 

RECORD*,  58 
RENAME,  34,  ROM-141 

reset,  ROM-306 


SCRATCH,  25 

routine,  ROM- 132 
sectors  (diskette),  7 
format  set,  ROM-48 
get,ROM-203 

headers,8,  ROM-62,  ROM-65,  ROM-69,  ROM-273 
read,  ROM-66,  ROM-272 
size  7 

write,  ROM-70,  ROM-274 

verify,  ROM-74,  ROM-277 
serial  bus,  141-150 

operating  system  routines,  146 
sequential  files,  44-55 
side-sector  blocks,  82-84 
SRQ  line,  148 
status  byte 

display,  ROM- 16 

get,  ROM- 15 

set,ROM-16 
stepper  motor,  151 
sync  marks,  9, 109, 126-127 

tracks  (diskette),  7 
density,  9 
get,ROM-203 
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USER  commands,  91,  ROM-109,  ROM-143 

jump  addresses  U1-U9,  ROM-306 
USER-0,  ROM-1,  ROM-2,  ROM-109 
Ul,  ROM-149 
U2,  ROM- 150 
user  files,  81 

VALIDATE,  ROM-249 
verify  ROM--94 

Versatile  Interface  Adapter  (VIA),  131-135 

WD-1770  controller,  118, 137 
wildcards,  42 

write-protect  tab  (diskette),  7 
status,  ROM-25,  ROM-32 

zeropage,  158 

initialize,  ROM-242 
listing,  ROM-3 11 

1541 

create  BAM,  ROM- 102 
new ,  ROM-252 

format,  ROM-101,-134,  ROM-290 
initialize  1541  mode,  ROM-305 
interrupt  routine,ROM-86 
mode,  140,  ROM-50 
switching  1540.1541,  ROM-303 

1571 

create  BAM,  ROM-102 
format,  ROM-90,  ROM-101 
initialize,  ROM-99 
reset,  ROM-3 1,  ROM-51 

#  command,  ROM- 144 


Optional  Diskette 


Includes  Disk  Monitor! 

For  your  convenience,  the  program  listings  contained  in  this  book  are 
available  on  a  Commodore  formatted  floppy  disk.  You  should  order  the 
diskette  if  you  want  to  use  the  programs,  but  don't  want  to  type  them  in 
from  the  listings  in  the  book. 

All  programs  on  the  diskette  have  been  fully  tested.  You  can  change  the 
programs  for  your  particular  needs.  The  diskette  is  available  for  $14.95  plus 
$2.00  ($5.00  foreign)  for  postage  and  handling. 

When  ordering,  please  give  your  name  and  shipping  address.  Enclose  a 
check,  money  order  or  credit  card  information.  Mail  your  order  to: 

Abacus  Software 
P.O.  Box  7219 
Grand  Rapids,  MI  49510 


Or  for  fast  service,  call  (616)  241-5510. 
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Abacus  IflUlim  Software 


Detailed  guide  presents  the  128's 
operating  system,  explains  graphic 
chips,  Memory  Management  Unit,  80 
column  graphics  and  commented 
ROM  fistings.  SOOpp  $19.95 


Get  all  the  Inside  information  on 
BASIC  7.0.  This  exhaustive  hand- 
book is  complete  with  commented 
BASIC  7.0  ROM  listings.  Coming 
Summer '86.  $19.95 


Filled  with  info  for  everyone.  Covers 
80  column  hi-res  graphics,  win- 
dowing, memory  layout,  Kernal 
routines,  sprites,  software  pro- 
tection, autostarting.  300pp  $19.95 


Insiders'  guide  for  novice  &  ad- 
vanced users.  Covers  sequential  & 
relative  files,  &  direct  access  com- 
mands. Describes  DOS  routines. 
Commented  listings.  $19.95 


Learn  fundamentals  of  CAD  while 
developing  your  own  system.  Design 
objects  on  your  screen  to  dump  to  a 
printer.  Includes  listings  for  '64  with 
Simon's  Base.  300pp  $19.95 


Introduction  to  programing;  problem 
analysis;  thorough  description  of  all 
BASIC  commands  with  hundreds  of 
examples;  monitor  commands;  util- 
ities; much  more.  $16.95 


Presents  dozens  of  programming 
quick-hitters.  Easy  and  useful 
techniques  on  the  operating  system, 
stacks,  zero-page,  pointers,  the 
BASIC  interpreter  and  more.  $16.95 


Essential  guide  for  everyone  inter- 
ested in  CP/M  on  the  128.  Simple 
explanation  o(  the  operating  system, 
memory  usage,  CP/M  utility  pro- 
grams, submit  tiles  4  more.  $19.95 


ANATOMY  OF 

handbook  on  rK. 
examples  and  ^M&p.W 


ANATOMY  OF  C-64  Insider's  guide  to  the 
'64  internals.  Graphics,  sound,  I/O,  kernal, 
memory  maps,  more.  Complete  commented 
ROM  listings.  300pp  $19.95 

&DRIVE  Best 

s  all.  Many 
. ..  commented 
1 541  ROM  tisttng£>r ' "  SOOpp  $1 9.95 
MACHINE  LANGUAGE  C-64  Learn 
6510  code  write  fast  programs.  Many  sam- 
ples and  listings  tor  complete  assembler, 
monitor.  4  simulator.  200pp  $14.95 

GRAPHICS  BOOK  C-64  -  best  reference 
covers  basic  and  advanced  graphics. 
Sprites,  animation.  Hires.  Multicolor, 
lightpen.  3D-graphics.  IRQ.  CAD.  pro- 
jections, curves,  more.        350pp  $19.95 


TRICKS  &  TIPS  FOR  C-64  Collection  of 
easy-to-use  techniques:  advanced  graphics, 
improved  data  input,  enhanced  BASIC, 
CP/M,  more.  275pp'  $19.95 

1541  REPAIR  &  MAINTENANCE 
Handbook  describes  the  disk  drive  hard- 
ware. Includes  schematics  and  techniques 
to  keep  1541  running.         200pp  $19.95 

ADVANCED    MACHINE  LANGUAGE 

Not  covered  elsewhere:  -  video  controller, 
interrupts,  timers,  clocks,  I/O.  real  time; 
extended  BASIC,  more.       2l0pp  $14.95 

PRINTER  BOOK  C-64/VIC-20  Under- 
stand Commodore,  Epson-compatible  print- 
ers and  1520  plotter.  Packed:  utilities;  gra- 
phics dump;  30  plot;  commented  MPS801 
ROM  listings,  more.  330pp  $19.95 
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SCIENCE/ENGINEERING  ON  C-64  In 

depth  intra  to  computers  in  science.  Topics: 
chemistry,  physics,  biology,  astronomy, 
electronics,  others.  3S0pp  $19.95 

CASSETTE  BOOK  C-64/VIC-20 
Comprehensive  guide;  many  sample 
programs.  High  speed  operating  system 
fast  file  loading  and  saving.  225  pp  $14.95 
IDEAS  FOR  USE  ON  C-64  Themes: 
auto  expenses,  calculator,  recipe  file,  stock 
lists,  diet  planner,  window  advertising, 
others.  Includes  listings.  200pp  $12.95 
COMPILER  BOOK  C-64/C-128  All  you 
need  to  know  about  compilers:  how  they 
work;  designing  and  writing  your  own; 
generating  machine  code.  With  working 
example  compiler.  300pp  $19.95 

C-128  and  C-64 


Adventure  Game  writer'*  Handbook 

Step-by-step  guide  to  designing  and  writing 
your  own  adventure  games.  With  automated 
adventure  game  generator.  200pp  $14.95 

PEEKS  ft  POKES  FOR  THE  C-64 

Includes  in-depth  explanations  of  PEEK, 
POKE,  USR,  and  other  BASIC  commands. 
Leam  the  "inside"  tricks  to  get  the  most  out 
ofyour'64.  200pp  $14.95 

Optlonaf  Diskettes  for  books 
For  your  convenience,  the  programs 
contained  In  each  of  our  books  are  avail- 
able on  diskette  to  save  you  time  entering 
them  from  your  keyboard.  Specify  name  of 
book  when  ordering.  $14.95  etch 
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P.O.  Box7219  Grand  Rapids,  Ml  49510  -Telex709-101  -  Phone  (616)  241-5510 

Call  now  for  the  name  of  your  nearest  dealer.  Or  to  order  directly  by  credit  card,  MC,  AMEX  of  VISA  call  (616) 
241-5510.  Other  software  and  books  are  available-Call  and  ask  for  your  free  catalog.  Add  $4.00  for  shipping 
per  order.  Foreign  orders  add  $10.00  per  book.  Dealer  inquires  welcome-1400+  nationwide. 
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INTERNALS 

Essential  guide  to  learning  the 
inside  information  of  the  ST. 
Detailed  descriptions  of  sound 
&  graphics  chips,  internal 
hardware,  various  ports,  GEM. 
Commented  BIOS  listing.  An 
Indispenslble  reference  tor 
your  library.    450pp.  $19.95 


GEM  Programmer's  Ref. 

For  serious  programmers  in 
need  of  detailed  Information 
on  GEM.  Written  with  an 
easy-to-understand  format.  All 
GEM  examples  are  written  In 
C  and  assembly.  Required 
reading  for  the  serious  pro- 
grammer.      450pp.  $19.95 


TRICKS  &  TIPS 

Fantastic  collection  of  pro- 
grams and  info  for  the  ST. 
Complete  programs  include: 
super-fast  RAM  disk;  time- 
saving  printer  spooler;  color 
print  hardcopy;  plotter  output 
hardcopy.  Money  saving  tricks 
and  tips.       200  pp.  $19.95 


GRAPHICS  A  SOUND 

Detailed  guide  to  understand- 
ing graphics  &  sound  on  the 
ST.  2D  &  3D  function  plotters, 
Moire  patterns,  various  reso- 
lutions and  graphic  memory, 
fractals,  waveform  generation. 
Examples  written  In  C,  LOGO, 
BASIC  and  Modula2.  $19.95 


BASIC  Training  Guide 

Indispensible  handbook  for 
beginning  BASIC  program- 
mers. Learn  fundamentals  of 
programming.  Flowcharting, 
numbering  system,  logical 
operators,  program  structures, 
bits  &  bytes,  disk  use,  chapter 
quizzes.         200pp.  $16.95 


PRESENTING  THE  ST 

Gives  you  an  in-depth 
look  at  this  sensational 
new  computer.  Discusses 
the  architecture  of  the 
ST,  working  with  GEM, 
the  mouse,  operating 
system,  all  the  various 
interfaces,  the  68000 
chip  and  its  instructions, 
LOGO.  $16.95 


MACHINE  LANGUAGE 

Program  in  the  fastest 
language  for  your  Atari 
ST.  Learn  the  68000 
assembly  language,  its 
numbering  system,  use 
of  registers,  the  structure 
&  important  details  of  the 
instruction  set,  and  use  of 
the  internal  system 
routines.    280pp  $19.95 


LOGO 

Take  control  of  your 
ATARI  ST  by  learning 
LOGO-the  easy-to-use, 
yet  powerful  language. 
Topics  covered  include 
structured  programming, 
graphic  movement,  file 
handling  and  more.  An 
excellent  book  for  kids  as 
well  as  adults.       $1 9.95 


PEEKS  &  POKES 

Enhance  your  programs 
with  the  examples  found 
within  this  book.  Explores 
using  the  different  lang- 
uages BASIC,  C,  LOGO 
and  machine  language, 
using  various  interfaces, 
memory  usage,  reading 
and  saving  from  and  to 
disk,  more.  $16.95 


BEGINNER'S  GUIDE 

Finally  a  book  for  those 
new  to  the  ST  wanting  to 
understanding  ST  basics. 
Thoroughly  understand 
your  ST  and  its  many 
devices.  Learn  the  funda- 
mentals of  BASIC,  LOGO 
and  more.  Complete  with 
index,  glossary  and  illus- 
trations. +200pp  $14.95 


BASIC  TO  C 

If  you  are  already  familiar 
with  BASIC,  learning  C 
will  be  all  that  much 
easier.  Shows  the  trans- 
ition from  a  BASIC 
program,  translated  step 
by  step,  to  the  final  C 
program.  For  all  users 
interested  in  taking  the 
next  step.  $19.95 
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The  ATARI  logo  and  ATARI  ST  ere  frademarks  of  Atari  Corp. 
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P.O.  Box  7219  Grand  Rapids,  Ml  49510  ■  Telex  709-101  ■  Phone  (616)  241-5510 

Optional  diskettes  are  available  for  all  book  titles  at  $14.95 

Call  now  for  the  name  of  your  nearest  dealer.  Or  order  directly  from  ABACUS  with  your  MasterCard,  VISA,  or  Amex  card.  Add 
$4.00  per  order  for  postage  and  handling.  Foreign  add  $10.00  per  book.  Other  software  and  books  coming  soon.  Call  or 
write  for  your  free  catalog.  Dealer  inquiries  welcome-over  1 400  dealers  nationwide. 


Make  your  BASIC  program 


The  complete  compiler 
and  development  pack- 
age. Speed  up  your  pro- 
grams 5x  to  35x.  Many 
options:  flexible  memory 
management;  choice  of 
compiling  to  machine 
code,  compact  p-code  or 
both.  '128  version:  40  or 
80  column  monitor  output 
and  FAST-mode  opera- 
tion. '128  Compiler's  ex- 
tensive 80-page  pro- 
grammer's guide  covers 
compiler  directives  and 
options,    two  levels  of 
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optimization,  memory  usage,  I/O  handling,  80  column  hi-res  graphics,  faster, 
higher  precision  math  functions,  speed  and  space  saving  tips,  more.  A  great 
package  that  no  software  library  should  be  without.  12B  Compiler  $59.95 

64  Compiler  $39.95 

For  school  or  software 
development.  Learn  C  on 
your  Commodore  with  our  in- 
depth  tutorial.  Compile  C  pro- 
grams into  fast  machine 
language.  C-128  version  has 
added  features:  Unix™ -like 
operating  system;  60K  RAM 
disk  for  fast  editing  and 
compiling  Linker  combines 
up  to  10  modules;  Combine 
M/L  and  C  using  CALL;  51 K 
available  for   object  code; 


Fast  loading  (8  sec.  1571, 18  sec.  1541);  Two  standard  I/O  librarys  plus 
two  additional  libraries— math  functions  (sin,  cos,  sqrt,  etc.)  &  20+  graphic 
commands  (line,  fill,  dot,  etc.).  C-128  $79.95 

C-64  $79.95 


Easily  create  professional 
high  quality  charts  and 
graphs  without  programming. 
You  can  immediately  change 
the  scaling,  labeling,  axis, 
bar-  filling,  etc.  to  suit  your 
needs.  Accepts  data  from 
CalcFfesult  and  MultiPlan. 
C-128  version  has  3X  the 
resolution  of  the  '64  version. 
Outputs  to  most  printers. 

C-128  $39.95 
C-64  $39.95 


PowerPlan 

One  of  the  most  powerful  spreadsheets  with  integraded 
graphics.  Includes  menu  or  keyword  selections,  online  help 
screens,  field  protection,  windowing.trlg  functions  and  more. 
PowerGraph,  the  graphics  package,  is  included  to  create 

integrated  graphs  &  charts.  C-64  $39.95 

$39.95 
$39.95 
$39.95 


COBOL  Compiler  for  the  C-64 
Ada  Compiler  for  the  C-64 
VideoBasic  Language  for  the  C-64 


Remarkably  easy-to-use 
interactive  drawing  pack- 
age for  accurate  graphic 
designs.  New  dimension- 
ing features  to  create 
exact  scaled  output  to  all 
major  dot-matrix  printers. 
Enhanced  version  allows 
you  to  input  via  keyboard 
or  high  quality  lightpen. 
Two  graphic  screens  for 
COPYing  from  one  to  the 
other.  DRAW,  LINE,  BOX, 
CIRCLE,  ARC,  ELLIPSE 
available.  FILL  objects 
with  preselected  PAT- 
TbHNS;  add  1  EXT;  SAVE  and  RECALL  designs  to/from  disk.  Define  your  own 
library  of  symbols/objects  with  the  easy-to-use  OBJECT  MANAGEMENT 
SYSTEM-store  up  to  104  separate  objects.  C-1 28  $59.95 

C-64  $39.95 


Compiler  and  Software 
Development  System 


Not  just  a  compiler,  but  a 
complete  system  for  develop- 
ing applications  in  Pascal 
with  graphics  and  sound 
features.  Extensive  editor 
with  search,  replace,  auto, 
renumber,  etc.  Standard  J  & 
W  compiler  that  generates 
fast  machine  code.  If  you 
want  to  learn  Pascal  or  to 
develop  software  using  the 
best  tools  available-SUPER 
Pascal  is  your  first  choice. 

C-128  $59.95 
C-64  $59.95 


OTHER  TITLES  AVAILABLE: 

Technical  Analysis  System 

Sophisticated  charting  and  technical  analysis  system  for 
serious  investors.  Charting  and  analyzing  past  history  of  a 
stock,  TAS  can  help  pinpoint  trends  &  patterns  and  predict  a 
stock's  future.  Enter  data  from  the  keyboard  or  from  online 
financial  services.  C-64  $59.95 

Personal  Portfolio  Manager 

Complete  protfolio  management  system  for  the  individual  or 
professional  investor.  Easily  manage  your  portfolios,  obtain 
up-to-the-minute  quotes  and  news,  and  perform  selected 
analysis.  Enter  quotes  manually  or  automatically  through 
Warner  Computer  Systems.  C-64  $39.95 

Xper 

XPER  is  the  first  "expert  systenf  for  the  C-128  and  C-64.  While 
ordinary  data  base  systems  are  good  tor  reproducing  facts, 
XPER  can  derive  knowledge  from  a  mountain  of  facts  and  help 
you  make  expert  decisions.  Large  capacity.  Complete  with 
editing  and  reporting.  C-64  $59.95 
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Call  now  for  the  name  of  your  nearest  dealer.  Or  to  order  directly  by  credit  card,  MC.  AMEX  of  VISA  call  (616) 
241-5510  Other  software  and  books  are  available-Call  and  ask  for  your  free  catalog.  Add  $4.00  for  shipping 
per  order  Foreign  orders  add  $12.00  per  item.  Dealer  inquires  welcome-1400+  nationwide. 
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The  essential  reference 
forall  1571  users 


For  the  beginner  to  the  advanced  user,  1571  Internals  is  a  vital 
addition  to  your  C-128  computer  library.  Packed  with  straight- 
forward, detailed  information  on  how  to  get  the  most  out  of  your 
1571  drive.  Just  a  few  of  the  topics  covered  in  1571  Internals: 

Fundamentals  for  beginners 
Applying  the  disk  drive  commands 
Creating  sequential  and  relative  files 
Using  your  1571  under  Commodore  BASIC 
Working  with  "foreign"  disk  formats 
Putting  programs  in  the  DOS  buffer 
The  1571  and  CP/M™ 
Internal  disk  drive  functions 
Fully  documented  1571  DOS  listing 

About  the  author: 

Rainer  Ellinger  is  a  microcomputer  assembly  language  and  hard- 
ware expert.  One  of  his  many  skills  is  taking  complex  computing 
subjects  and  making  them  understandable  to  the  average  user. 
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